Vielleicht braucht ihr ein bisschen Code:
Delphi-Quellcode:
fHeader := TShape.Create(Self);
with fHeader do
begin
Parent := Self;
Align := alTop;
Height := 22;
Brush.Color := $00C4D5D8;
Pen.Color := $00C4D5D8;
Visible := False;
end;
Dieser Code steht im constructor. fHeader ist im private Abschnitt der Klasse deklariert. Self ist ein abgeleitetes TCustomPanel.
indirekter push