Entwickler-Ecke
Delphi Language (Object-Pascal) / CLX - Eigenes Panel als Klasse anlegen
ironman - Fr 07.04.06 14:55
Titel: Eigenes Panel als Klasse anlegen
Hallo zusammen,
ich möchte mir ein eigenes Panel als Klasse deklarieren. Irgendwie verändert sich aber die Eigenschaft "parent". Beim normalen Panel erwartet Delphi "TWinControl". Bei meinem abgeleiteten wird das plötzlich zu "TWidgetControl".
Noch ist im Constructor nichts zusätzliches drin. Ich bekomme mein Panel ja gar nicht zu Gesicht. Da lohnt noch keine weitere Bearbeitung...
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
| (...)
type TMandantenPanel=class(TPanel)
(...)
constructor TMandantenPanel.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
end; |
Moderiert von 
raziel: Delphi-Tags hinzugefügt
Kroko - Fr 07.04.06 15:27
:welcome: in DF
(a) hier gibt es Delphi-Tags, damit man Quellen besser lesen kann (Bereiche!)
(b)schau mal , ob du jetzt immer noch nichts siehst
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
| type
TMandantenPanel=class(TPanel)
constructor Create(AOwner: TComponent);
end;
constructor TMandantenPanel.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Color := clYellow;
end; |
ironman - Mo 10.04.06 08:35
Hallo,
ich sehe leider immer noch nichst. Der will als Parent zwingend etwas vom Typ TWidgetControl. Hier ist mal der Code in vollständig:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
| unit UMandantenPanel;
interface
uses QExtCtrls, QStdCtrls, classes, Controls, QControls, Forms, QGraphics;
type
TMandantenPanel=class(TPanel)
private
protected
public
constructor Create(AOwner: TComponent);
destructor Destroy;
end;
implementation
|
Delphi-Quelltext
1:
2:
3:
4:
5:
| constructor TMandantenPanel.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Color := clYellow;
end; |
Kroko - Mo 10.04.06 12:12
Auf welchem System Programmierst Du denn, bei Windoofs mußt Du die Q's weglassen!
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
| unit UMandantenPanel;
interface
uses
ExtCtrls, StdCtrls, classes, Controls, Forms, Graphics;
type
TMandantenPanel=class(TPanel)
private
protected
public
constructor Create(AOwner: TComponent);
destructor Destroy;
end;
implementation
constructor TMandantenPanel.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Color := clYellow;
Width := 152;
Height := 31;
end;
destructor TMandantenPanel.Destroy;
begin
inherited;
end; |
ironman - Mo 10.04.06 13:08
Danke Kroko,
hatte nach ca. 1,5 Jahren Delphi-Pause mit der Hilfe so leichte Probleme und den falschen Hilfeeintrag gewählt. Ohne Q klappt es wunderbar...
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!