Forumunuz.Com - memo nesnesinde otomatik tab kullanma

Forumunuz.Com (https://www.forumunuz.com/)

- Webmaster Forum (https://www.forumunuz.com/webmaster-forum/)

- - memo nesnesinde otomatik tab kullanma (https://www.forumunuz.com/webmaster-forum/17417-memo-nesnesinde-otomatik-tab-kullanma.html)

Kaf Dağı

27 Mart 2015 15:33

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: 03:34.