IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

- Delphi (https://www.ircforumlari.net/delphi/)

- - memo nesnesinde otomatik tab kullanma (https://www.ircforumlari.net/delphi/689146-memo-nesnesinde-otomatik-tab-kullanma.html)

Kaf_Dağı

16 Mart 2015 12:14

memo nesnesinde otomatik tab kullanma

memo nesnesinde otomatik tab kullanma

Kod:

procedure TForm1.Button1Click(Sender: TObject);

var

 R : TRect;

 Linkm:integer; { Linker Marge }

 Rightm:integer; { Rechter Marge }

begin

 Linkm:=20;

 Rightm:=10;

 

 R := Memo1.ClientRect;

 R.Left:=R.Left + Linkm;

 R.Top:=R.Top + 2;

 R.Bottom:=R.Bottom - 2;

 R.Right:=R.Right-Rightm;

 SendMessage(Memo1.Handle, EM_SETRECT, 0, Longint(@R));

end;

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 09:07.