Delphi erkennt die SetMargin nicht.
Muss ich irgendetwas bestimmtes einbinden oder beachten?
füge unter private den Prozedurkopf ein, damit Delphi die Prozedur kennt:
Delphi-Quellcode:
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
// hier einfügen
procedure SetMargin(RE: TRichEdit; L,R,T,B : Integer);
die Prozedur fügst du dann irgendwo nach implementation ein
Delphi-Quellcode:
implementation
{$R *.dfm}
procedure TForm1.SetMargin(RE: TRichEdit; L,R,T,B : Integer);
// Linken, Rechten, Oberen und Unteren Rand setzen
var Rect :TRect;
begin
SendMessage(RE.Handle,EM_GETRECT,0,LongInt(@Rect));
Rect.Left := Rect.Left + L;
Rect.Right := Rect.Right - R;
Rect.Top := Rect.Top + T;
Rect.Bottom := Rect.Bottom - B;
SendMessage(RE.Handle,EM_SETRECT,0,LongInt(@Rect));
end;
und die Prozedur rufst du dann im Formcreate auf:
setMargin(richedit1,30,50,100,20);