Автор Dwad задал вопрос в разделе Другие языки и технологии
помогите с Delphi 7 и получил лучший ответ
Ответ от Владимир[новичек]
Edit1.SelStart:=1;
Edit1.SelLength:=length(edit1.text);
Edit1.SetFocus;
Clipboard.SetTextBuf(PChar(edit1.text));
такие дела
Ответ от Дмитрий Алексеевич[гуру]
Для выделения текста в компоненте Delphi Edit. Для реализации этих задач служат свойства
SelStart
SelLength
SelText
Все эти свойства доступны и для чтения, и для записи.
- Свойство SelStart (типа Integer) определяет порядковый номер символа, перед которым находится курсор. Отсчёт идёт от нуля;
- Свойство SelLength (типа Integer) задаёт количество выделенных символов. Причём оно может быть и отрицательным. Тогда выделение идёт в обратную сторону, справа налево;
- Свойство SelText (типа String) содержит выделенный текст.
Чтобы выделенный текст был заметен, необходимо, чтобы компонент Edit обладал фокусом ввода. Для перемещения фокуса ввода к нужному компоненту служит свойство SetFocus. То есть, чтобы было видно выделение второго символа, нужно написать:
begin
Edit1.SetFocus;
Edit1.SelStart:=1;
Edit1.SelLength:=1;
end;
Если пропустить первый оператор, то свойство SelText всё равно будет содержать в себе второй символ, но на экране заметно этого не будет, если, конечно, фокус ввода не был перемещён туда ранее.
Для выделения текста в компоненте Delphi Edit. Для реализации этих задач служат свойства
SelStart
SelLength
SelText
Все эти свойства доступны и для чтения, и для записи.
- Свойство SelStart (типа Integer) определяет порядковый номер символа, перед которым находится курсор. Отсчёт идёт от нуля;
- Свойство SelLength (типа Integer) задаёт количество выделенных символов. Причём оно может быть и отрицательным. Тогда выделение идёт в обратную сторону, справа налево;
- Свойство SelText (типа String) содержит выделенный текст.
Чтобы выделенный текст был заметен, необходимо, чтобы компонент Edit обладал фокусом ввода. Для перемещения фокуса ввода к нужному компоненту служит свойство SetFocus. То есть, чтобы было видно выделение второго символа, нужно написать:
begin
Edit1.SetFocus;
Edit1.SelStart:=1;
Edit1.SelLength:=1;
end;
Если пропустить первый оператор, то свойство SelText всё равно будет содержать в себе второй символ, но на экране заметно этого не будет, если, конечно, фокус ввода не был перемещён туда ранее.
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: помогите с Delphi 7
спросили в Фокусы
Как установить фокус на поле ввода текста? Delphi 7
Доброго времени суток.
Попробуйте после установки фокуса ввода на TEdit поиграться его
подробнее...
Как установить фокус на поле ввода текста? Delphi 7
Доброго времени суток.
Попробуйте после установки фокуса ввода на TEdit поиграться его
подробнее...
Проверка Edit в Delphi
Доброго времени суток.
Трудно не зная тонкостей задачи дать вменяемый ответ. Попробую в
подробнее...
спросили в Type Moon
delphi: как реализовать выполнение Ctrl+A в моем поле Memo?
В обработчике OnKeyDown можно написать
if (ssCtrl in Shift)and(key=ord('A')) then
подробнее...
delphi: как реализовать выполнение Ctrl+A в моем поле Memo?
В обработчике OnKeyDown можно написать
if (ssCtrl in Shift)and(key=ord('A')) then
подробнее...
Delphi как сделать ввод только чисел с точкой ?
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in
подробнее...
Хочу купить фитопрожекторы, фитосветильники, фитолампы и фитоленту
молодец, хорошее желание. нельзя себе
подробнее...
Ответ от 3 ответа[гуру]
Привет! Вот еще темы с похожими вопросами:
спросили в Растения
Есть вопрос про светодиодные светильники для растений Led grow light, нужна помощь!
у меня светодиодные ленты, средней яркости (там их 3 типа, но все они относятся к сверх-ярким как
подробнее...
Есть вопрос про светодиодные светильники для растений Led grow light, нужна помощь!
у меня светодиодные ленты, средней яркости (там их 3 типа, но все они относятся к сверх-ярким как
подробнее...