ثابت ماندن در خط اول

[solook]

با سلام .
من می خوام با این دستور:

Memo.Lines.Add(a)

تعداد زیادی خط به memo اضافه کنم
اما در حینی که اضافه میشه در نهایت میره به آخرین خط یا اسرول میره پایین ..
حالا می خوام ببینم چطوری میشه اون اسکرول رو اول نگه داشت و خطوط اضافه ولی اون محل ثابت بمونه..

[vcldeveloper]

Memo1.Lines.Insert(0,'Test');

[Hamid_PaK]

از این روش استفاده کنید.


procedure TForm1.Button2Click(Sender: TObject);
var
idx: Integer;
begin
with Memo1 do begin
if Lines.Count < 20 then
for idx := 0 to 20 do
Lines.Add( Format('line%3d', [idx]));
Lines.Insert(5, 'Sample Text');
SendMessage(handle, EM_SCROLLCARET, 0, 0);
end;
end;


یا حق ...