Autor Beitrag
ironman
Hält's aus hier
Beiträge: 7



BeitragVerfasst: Fr 07.04.06 14:55 
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...

ausblenden 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 user profile iconraziel: Delphi-Tags hinzugefügt
Kroko
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 1284

W98 W2k WXP
Turbo D
BeitragVerfasst: 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
ausblenden 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;

_________________
Die F1-Taste steht nicht unter Naturschutz und darf somit regelmäßig und oft benutzt werden! oder Wer lesen kann, ist klar im Vorteil!
ironman Threadstarter
Hält's aus hier
Beiträge: 7



BeitragVerfasst: 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:


ausblenden 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
  // Public Deklarationen
  constructor Create(AOwner: TComponent);
  destructor  Destroy;

end//type

implementation

{ TMandantenPanel }


ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
constructor TMandantenPanel.Create(AOwner: TComponent);
begin
 inherited Create(AOwner);
 Color := clYellow;
end;
Kroko
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 1284

W98 W2k WXP
Turbo D
BeitragVerfasst: Mo 10.04.06 12:12 
Auf welchem System Programmierst Du denn, bei Windoofs mußt Du die Q's weglassen!
ausblenden volle Höhe 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
  // Public Deklarationen
  constructor Create(AOwner: TComponent);
  destructor  Destroy;

end//type

implementation

{ TMandantenPanel }
constructor TMandantenPanel.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Color := clYellow;
  Width := 152;
  Height := 31;
end;

destructor TMandantenPanel.Destroy;
begin
  inherited;
end;

_________________
Die F1-Taste steht nicht unter Naturschutz und darf somit regelmäßig und oft benutzt werden! oder Wer lesen kann, ist klar im Vorteil!
ironman Threadstarter
Hält's aus hier
Beiträge: 7



BeitragVerfasst: 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...