Zitat von
NickelM:
//das geht nur wenn du einen neue Komponente erstellst. Zur Design-Zeit, also wo du die Komponenten aufs Form ziehst, musst du erst ne Variable Canvas erstellen
Muss er nicht:
Delphi-Quellcode:
type
THACK_CustomPanel = class(TCustomPanel);
procedure TForm1.Button1Click(Sender: TObject);
begin
Panel1.Width := THACK_CustomPanel(Panel1).Canvas.TextWidth(Panel1.Caption) + 16;
end;