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?