Thema: Delphi TPanel.Create PROBLEM!!!

Einzelnen Beitrag anzeigen

Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#9

Re: TPanel.Create PROBLEM!!!

  Alt 30. Mai 2009, 10:47
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??
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat