Komponenten

[LoL]

hi

2 Fragen:
1. Warum kann ich einem Label nicht den Parent eines Panels zuweisen?
2. Wie erstelle ich einen ColorDialog zur Laufzeit? Habs schon so probiert:

Delphi-Quellcode:

var dlg_color : TColorDialog;
begin
  dlg_color.Create(IrgendEinPanel);
end;

...funzt aber nicht

[sakura]

Die erste Frage verstehe ich inhaltlich nicht Was willst Du.

2.

Delphi-Quellcode:

var dlg_color : TColorDialog;
begin
  dlg_color := TColorDialog.Create(IrgendEinPanel);
end;

......

[LoL]

label.parent := panel das geht nicht warum?

[Robert Marquardt]

zu 2:

Delphi-Quellcode:

var dlg_color : TColorDialog;
begin
  dlg_color.Create(IrgendEinPanel);
end;

TColorDialog.Create(IrgendEinPanel) ist die richtige Formulierung.
Nur dann wird ein neues Objekt erzeugt. Deine Formulierung ruft Create als normale Methode eines bereits erzeugten Objektes auf. Das geht aber schief, da ja noch kein Objekt erzeugt wurde.

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]

[Mario]

Zitat von LoL:

label.parent := panel das geht nicht warum?

Das geht bei mir problemlos.

[Robert Marquardt]

label ist ein reserviertes Wort in Pascal!

[Mario]

Ah, darauf spielt die Frage an

[LoL]

nein spielt sie nicht
ich will einem label den parent von einem panel setzten und das geht bei mit nicht

Zitat:

Incompatible types: 'TWidgetControl' and 'TMyPanel'

Delphi-Quellcode:

TMyPanel = class(TPanel)
procedure ...
...
...
(kommen nur prozeduren)

procedure TMyPanel.blabla;
var meinpanel : TMyPanel;
begin
  meinlabel.parent := meinpanel;
end;

[Mario]

Ein Widget-Control gehört nicht in die VCL, sondern CLX. Kann es sein, dass Du das TPanel aus der CLX genommen hast? Schaue mal bei den uses nach, ob das einige Units mit Q anfangen.

[LoL]

jo



das wars