TFrame auf TForm ziehen

[Angel4585]

Hallo,

ich glaub ich stell mich - mal wieder - mega-dumm an.

Ich hab ein TFrame im Code erzeugt, das in einem Objekt liegt.
Jetzt möchte ich bei einem Ereignis das TFrame auf einem TForm anzeigen.
Was muss ich jetzt machen damit das TFrame dort draufliegt?
Normalerweise muss ich doch Owner oder Parent oder so setzen, was aber nicht geht da es readonly Eigenschaften sind.

[FAlter]

Hi,

Parent ist nicht readonly. Zum Beispiel so:

Delphi-Quellcode:

MyFrame := TMyFrame.Create(MyForm);
MyFrame.Parent := MyForm;
MyFrame.Align := alLeft;

Wenn der Code irgendwo im Code von TMyForm liegt, solltest du natürlich self statt MyForm nehmen, ich habe es aber so gelesen, dass du das "von außen" erledigen willst.

Mfg
FAlter

[Matze]

Hallo

Zitat von Angel4585:

[...] was aber nicht geht da es readonly Eigenschaften sind.

Nö, das geht einwandfrei:

Delphi-Quellcode:

uses UnitFrame;

procedure TForm1.Button1Click(Sender: TObject);
var
  MyFrame: TFrame;
begin
  MyFrame := TFrame1.Create(Form1);
  MyFrame.Parent := Form1;
  MyFrame.Show;
end;

Grüße

Edit: Wo kommt Felix denn plötzlich her ...

[Angel4585]

Also bei mir kommt die Meldung das Parent eine read-only Eigenschaft ist.

Ich habs aber mittlerweile so gelöst:

Frame1.insertControl(Frame1);