| memo nesnesinde otomatik tab kullanma
memo nesnesinde otomatik tab kullanma Kod: Kodu kopyalamak için üzerine çift tıklayın! 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;
__________________ SusKun ve Sessiz Mürekkep...
Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
|