Editbereich verkleinern über EM_SETRECT geht nicht

[backdraft]

Hallo,
ich habe ein merkwürdiges Problem. Ich bin mir ziemlich sicher, dass es vorher mal funktioniert hat.
Ich möchte in einem Edit Feld den Raum verkleinern in dem ich etwas eingeben kann.

Ich habe folgendes zum Testen probiert, was meiner Meinung nach funktionieren müsste.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Loc: TRect;
begin
  SendMessage(Edit1.Handle, EM_GETRECT, 0, LongInt(@Loc));
  dec(Loc.Right, 20);
  SendMessage(Edit1.Handle, EM_SETRECT, 0, LongInt(@Loc));
  SendMessage(Edit1.Handle, EM_GETRECT, 0, LongInt(@Loc));
end;

Leider steht nachher in der Variable Loc der selbe Wert wie beim ersten Mal.
Hab es auch schon mit der Botschaft EM_SETRECTNC versucht, geht auch nicht.

Wo ist mein Fehler?

[taaktaak]

Moin, Moin,

Fehler ist wohl, dass Get/SetRect nur für mehrzeilige Edits vorgesehen sind (also z.B. MEMO und RICHEDIT). Für das Edit verwende ich EM_SetMargins...

[backdraft]

Ok, dann war mein Fehler, dass ich irgendwann meinen Edit auf "ohne Multiline" in den CreateParams abgeändert habe.

Super, so funktioniert es bestens, Vielen Dank
Oliver