Also das:
Delphi-Quellcode:
type TBluePanel = class(TPanel)
public
constructor Create (AOwner: TComponent); override;
end;
implementation
{$R *.dfm}
{ TBluePanel }
constructor TBluePanel.Create(AOwner: TComponent);
begin
inherited;
Color := clBlue;
Caption := 'Blau';
Height := 40;
Width := 185;
BorderStyle := bsNone;
BorderWidth := 1;
BevelOuter := bvNone;
BevelInner := bvRaised;
BevelWidth := 4;
Visible := True;
end;
procedure TForm2.Button1Click(Sender: TObject);
var
bp: TBluePanel;
begin
bp := TBluePanel.Create(Self);
bp.Parent := Panel1;
end;
Funktioniert bei mir ohne Probleme. Das BluePanel wird dabei auf einem normalen Panel erzeugt.
Welchen Wert hat
iTop bei dir? Liegt der eventuell ausserhalb der Form bzw. des Panels auf dem die BluePanels erzeugt werden??