Komponente auf Frame ansprechen

[TheThrust]

Hallo Leute!

Ich habe ein eher ungewöhnliches Problem und ich kann mir gut vorstellen dass ich einfach nur einen Denkfehler gemacht habe:

Es ist ein Frame über folgenden Code in meine Hauptunit eigebunden worden:

Delphi-Quellcode:

uses Unit2, Unit3;

var
  fr : array[0..3] of TFrame;

procedure TForm1.FormCreate(Sender: TObject);
begin
  fr[0] := Unit2.TFrame2.Create(self);
  fr[0].Parent := Form1;
end;

Soweit, sogut, nun möchte ich aber ein Label mit dem Namen Label1 auf dem Frame verändern. Ich habe verschiedene Möglichkeiten ausprobiert, habe aber jede Mal eine Fehlermeldung bekommen:

  fr[0].FindComponent('Label1').Caption := 'hi';

Zitat:

Undeclared identifier 'Caption'

  fr[0].FindComponent(Label1).Caption := 'hi';

Zitat:

Undeclared identifier 'Caption'

fr[0].Label1.Caption := 'hi';

Zitat:

Undeclared Identifier 'Label1'

Mir fällt keine andere Möglichkeit ein...

Ich hoffe da gibt es eine einfache Lösung, mit Forms bekomme ich die ganze sache sehr leicht hin, nur halt mit dem Frame nicht

mfG TheThrust

[Looper]

Das Frame kann man doch auch über FormX. ansprechen oder nicht?

mfg Looper

[teebee]

Woher soll der Compiler wissen, welche Komponenten sich auf dem Frame fr[0] befinden? fr ist ja ein Array von TFrame und nicht von TFrame2.
 TFrame2(fr[0]).Label1.Caption := 'hi'; oder(fr[0] as TFrame2).Label1.Caption := 'hi';

[webcss]

Zitat:

fr[0].FindComponent('Label1').Caption := 'hi';

TLabel(fr[0].FindComponent('Label1')).Caption := 'hi'; Weil ein TComponent kennt keine Eigenschaft Caption

[mkinzler]

Oder besser einen Softcast:
(fr[0].FindComponent('Label1') as TLabel).Caption := 'hi';

[webcss]

Zitat von mkinzler:

Oder besser einen Softcast:
(fr[0].FindComponent('Label1') as TLabel).Caption := 'hi';

Wo ist da eigentlich der Unterschied?

[Dani]

Zitat von webcss:

Zitat von mkinzler:

Oder besser einen Softcast:
(fr[0].FindComponent('Label1') as TLabel).Caption := 'hi';

Wo ist da eigentlich der Unterschied?

Der direkte Cast schlägt niemals fehl, auch dann nicht, wenn die Typen eigentlich nicht kompatibel sind. Mit dem Softcast bekommt man dagegen im schlechtesten Fall einen Laufzeitfehler.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := IntToStr(TStrings(Button1).IndexOf('Not a Stringlist'));
end;

-> Compiler beschwert sich nicht, Caption wird (zufällig!) auf "0" gesetzt. Da kommt nicht mal eine Exception

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := IntToStr((Button1 as TStrings).IndexOf('Not a Stringlist'));
end;

-> Compiler bemerkt den Fehler und bricht mit der Meldung "Inkompatible Typen" ab.

[omata]

Eine andere Variante wäre der IS-Operator.

Gruss
Thorsten