30.05.2007, 21:45
общий
это ответ
Здравствуйте, Устинов В В!
Вот код:
<code>procedure TForm1.Button1Click(Sender: TObject);
var numLine:integer;
begin
numLine:=3; <font color=green>{номер строки в которую необходимо поставить курсор}</font>
with Memo1 do
begin
selstart:=perform(EM_LineIndex,numLine-1,0); <font color=green>{расчет позиции}</font>
perform(EM_ScrollCaret,0,0); <font color=green>{устанавливаем курсор}</font>
SetFocus; <font color=green>{делаем объект активным}</font>
end;
end;</code>
Good Luck!!!