Memo da en son satıra gitmek

[CiTiZEN]

bu işini görebilir

Kod: Tümünü seç

var i:integer;
begin
i:=Memo1.Lines.Count;
Memo1.Lines[i-1];
ShowMessage(Memo1.Lines[i-1]);
end;

[CiTiZEN]

imleci kaydırmak mı istiyosun?

[CiTiZEN]

birde bunu denermisin

Kod: Tümünü seç

var i:integer;
begin
i:=Memo1.Lines.Count;
Memo1.SelLength:=i;

[CiTiZEN]

hata mı verdi yoksa başka bir sorun mu var bunları paylaşırsan daha iyi yardım edebiliriz.

[conari]

Kod: Tümünü seç

Memo1.SelStart := Length(Memo1.Lines.Text) - 1;
Memo1.SelLength := 1;

bu şekilde scroll kayması gerekir.
veya sendkey ile scroll u kaydırabilirsiniz.

[emin_as]

SendMessage(Memo1.Handle, EM_SCROLLCARET, 0, 0);

Eğer programda döngü ile bazı bilgiler ekliyorsan, bu komuttan sonra application.processmessages; i da kullanmalısın.

[CiTiZEN]

Peki @Conari ve @Emin_as'ın kodlarını denedin mi?

[CiTiZEN]

Bu kodları birde delphinin TMemo bileşeni ile kullanırmısın, ben deneme yaparken o bileşen ile yaptım hiç kullanmadım ama belki farklar olabilir.

[CiTiZEN]

TMS de olan delphide olmayan özelliği nedir?Neden ihtiyacın var o bileşene?

[NeverFear]

Kod: Tümünü seç

ShowMessage(Memo1.Lines.Strings[Memo1.Lines.Count-1]);

şeklindeki kodlama, sana Memo1'in en son satırındaki değeri geri döndürecektir.
sana düşen, bu kodlamayı TMS'nin AdvMemo bileşenine uyarlaman.