Автор 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