Moin,
ich habe Folgendes gemacht:
-ich habe eine Klasse erstellt
-diese Klasse ist eine Unterklasse vom normalen Panel
-ich möchte panels erstellen, in dem ich auf ein schon vorhandenes Panel klicke
-es kommen keine Fehlermeldungen, wenn ich das Programm starte
-PROBLEM: Die Pannels sind unsichtbar, sind aber vorhanden.
hier ist der Quellcode von der Unterklasse, die ich erstellt habe:
------------------------------------------------------------------------------------------------------------------
Delphi-Quellcode:
unit UBluePanel;
interface
uses ExtCtrls,
Classes,
Graphics,
Forms,
Controls;
type TBluePanel =
class(TPanel)
public
constructor Create (AOwner: TComponent);
override;
end;
implementation
constructor TBluePanel.Create (AOwner: TComponent);
begin
inherited Create (AOwner);
Color := clBlue;
Caption := '
Blau';
Height := 40;
Width := 185;
BorderStyle := bsNone;
BorderWidth := 1;
BevelOuter := bvNone;
BevelInner := bvRaised;
BevelWidth := 4;
Visible := True;
end;
end.
----------------------------------------------------------------------------------------
und in dieser Procedure erstelle ich das BluePanel:
----------------------------------------------------------------------------------------
Delphi-Quellcode:
procedure TFPanels.POwnerClick(Sender: TObject);
begin
BluePanel := TBluePanel.Create(FPanels);
BluePanel.Autosize := true;
BluePanel.Left := 10;
BluePanel.Top := top1;
BluePanel.Show; {ich habe auch "BluePanel.Visible := true" ausprobiert}
BluePanel.Parent := FPanels;
top1 := top1+50;
end;
-----------------------------------------------------------------------------------------
"top1" ist eine variable, die beim erstellen der Form auf 50 gesetzt wird.
ich habe als Parent vom BluePanel schon alles ausprobiert aber es erscheint eifach nicht.
Ich würde mich sehr über Lösungsvorschläge freuen.
mfg
DragonDrake
[edit=mkinzler]Delphi-Tags eingefügt Mfg, mkinzler[/edit]