RichEdit
Народ!
Помогите...
Надо сделать так чтобы при на нажатии на кномочку в RichEdit появлялся текст сразу за курсором!
Я знаю что так Lines.Add('String'); добавляются но в новой строке а как сразу за курсором без перехода на нов строку???
Спасибо!
Помогите...
Надо сделать так чтобы при на нажатии на кномочку в RichEdit появлялся текст сразу за курсором!
Я знаю что так Lines.Add('String'); добавляются но в новой строке а как сразу за курсором без перехода на нов строку???
Спасибо!
SelText := 'Чаво-нибудь';
А смотри... тогда при нажатии на кнопку только 1 раз текст добавляется т.е какбы курсор остается на кнопке и добавлять не хочет... хотя tabstop=false странно...
не подскажешь как это исправить?
не подскажешь как это исправить?
procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit1.SelText := Edit1.Text;
end;
При каждом нажатии на кнопку будет вставляться текст. Курсора при том видно не будет, т.к. он виден только тогда, когда элемент имеет фокус ввода. Если дописать в тело процедуры
RichEdit1.SetFocus;
то и посе вставки курсор будет оставаться в RichEdit.
begin
RichEdit1.SelText := Edit1.Text;
end;
При каждом нажатии на кнопку будет вставляться текст. Курсора при том видно не будет, т.к. он виден только тогда, когда элемент имеет фокус ввода. Если дописать в тело процедуры
RichEdit1.SetFocus;
то и посе вставки курсор будет оставаться в RichEdit.