constructor wird aufgerufen aber nicht ausgeführt

[fliegermichl]

Hallo zusammen,

Wenn ich mit Lazarus (1.0) ein simples Formular erstelle mit einem Button drauf und folgenden OnClick Code ausführe,
dann wird der constructor TSpeedbutton.Create zwar angesprungen aber nicht ausgeführt.
TSpeedButton ist nur ein Beispiel. Es funktioniert bei keinem Control wie erwartet.
Kann mir jemand sagen woran das liegt und wie ich erreichen kann, daß der Konstruktor auch ausgeführt wird?

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var ControlClass : TControlClass;
    newcontrol : TControl;
begin
  ControlClass := TSpeedButton;
  newControl := ControlClass.Create(Application);
  newControl.Parent := self;
end;

Viele Grüße
Micha

[mschnell]

Ich verstehe zwar nicht, warum Du das so machst, aber wenn TControlClass ein Vorfahre von TSpeedButton ist, ist erstmal ControlClass.Create(Application) falsch. Create muss mit der Klasse und nicht mit der Variablen aufgerufen werden: newconrtol := TControlClass.Create(Application);

Dann weiß create aber immer noch nicht, dass es einen TSpeedButton kreieren soll also vielleicht eher newconrtol := TSpeedButton.Create(Application);

Dann kann aber newcontrol auch gleich vom Typ TSpeedbutton sein.

-Michael

[martin_frb]

Ich verstehe zwar nicht, warum Du das so machst, aber wenn TControlClass ein Vorfahre von TSpeedButton ist, ist erstmal ControlClass.Create(Application) falsch. Create muss mit der Klasse und nicht mit der Variablen aufgerufen werden: newconrtol := TControlClass.Create(Application);

TControlClass = class of TControl

TControl like all components has a virtual constructor. So this should work.

[mschnell]

OK.

Trotzdem weiß Create nicht, was es kreieren soll.

-Michael

[martin_frb]

Trotzdem weiß Create nicht, was es kreieren soll.

Ich hab den Code mal eben selbst ausgeführt.

TSpeedButton.Create wird komplett ausgefuehrt.

Und das Ergebnis ist eine instance von TSpeedButton

[mschnell]

I see.

Danke.

Dann verstehe ich aber nicht, was er für ein Problem hat.....

Das Funktioniert bei mir:

Code: Alles auswählen

ControlClass := TButton;
  newControl := ControlClass.Create(Application);
  newcontrol.Height:= 20;
  newcontrol.Width:=80;
  newcontrol.Top:= 5;
  newcontrol.Left:=5;
  newcontrol.Caption:='NewControl';
  newcontrol.Visible:=True;
  newControl.Parent := self;

-Michael