//set margins for Memo1Ever needed to set some additional properties to the standard Memo component? By default you use the Tmemo when you need a standard Windows multiline edit control on a form. Here are some nifty TMemo related tips and tricks
var
R : TRect;
LeftMargin:integer;
RightMargin:integer;
begin
LeftMargin:=20;
RightMargin:=10;
R := Memo1.ClientRect;
R.Left := R.Left + LeftMargin;
R.Top := R.Top + 2;
R.Bottom := R.Bottom - 2;
R.Right := R.Right-RightMargin;
SendMessage(Memo1.Handle, EM_SETRECT,0, Longint(@R)) ;
end;
Delphi tips navigator:
» Get Windows Temp directory
« TImage.Bitmap fade out
