Komponentenbreite an Textbreite anpassen

[MSSSSM]

Delphi-Quellcode:

var rec:TRect;
begin
  SendMessage(Memo1.Handle,EM_GETRECT,0,Integer(@rec));

Heißt:
Du sendest eine Nachricht (EM_GETRECT) an das Memo, das du sein Rechteck in Rec haben willst. (@ ist für die Adresse und diese muss auf Integer gecastet werden)
In Rec steht das ganze dann.

mfg MSSSSM