Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Делфи _ Tmemo

Автор: Наташа 16.09.2007 21:59

Если есть обьект TMemo, как в нём по ходу программы переходить на новую строку?
Зарание спасибо.

Автор: мисс_граффити 16.09.2007 22:38

Memo1.Lines.Add('еще одна строка'); 

это?

Автор: klem4 16.09.2007 22:47

Или это ?

2 варианта нашел:

procedure TForm1.Button1Click(Sender: TObject);
var
new_x, new_y, i: integer;
begin
new_x := 0;
new_y := 1;
i := SendMessage(Memo1.Handle, EM_LINEINDEX, new_y, 0) + new_x;
SendMessage(Memo1.Handle, EM_SETSEL, i, i);
Memo1.SetFocus;
end;


или


type
TCM = class(TCustomMemo);
//...
procedure TForm1.Button1Click(Sender: TObject);
var
new_caret_pos: TPoint;
begin
new_caret_pos.X := 5;
new_caret_pos.Y := 1;
TCM(Memo1).SetCaretPos(new_caret_pos);
Memo1.SetFocus;
end;