Einzelnen Beitrag anzeigen

Fritzew

Registriert seit: 18. Nov 2015
Ort: Kehl
678 Beiträge
 
Delphi 11 Alexandria
 
#10

AW: Wie auf Komponenten und Ereignisse im eigebettenten Formular zugreifen?

  Alt 26. Jan 2018, 14:27
Sorry wollte schreiben:
Delphi-Quellcode:
procedure TMainForm.FormCreate(Sender: TObject);
var
  NewFormClass: TFormClass;
  NewForm: TForm;
begin
  NewFormClass := TForm1;
  if ContainerPanel.ControlCount > 0 then
    ContainerPanel.Controls[0].Free;
  if Assigned(NewFormClass) then
  begin
    Form1 := NewFormClass.Create(self);
    NewForm.Hide;
    NewForm.BorderStyle := bsNone;
    NewForm.Parent := ContainerPanel;
    NewForm.Align := alClient;
    NewForm.Show;
  end;
end;

Warum nicht einfach?

Delphi-Quellcode:
procedure TMainForm.FormCreate(Sender: TObject);
begin
 
  if ContainerPanel.ControlCount > 0 then
    ContainerPanel.Controls[0].Free;
  
  
    Form1 := TForm1.Create(self);
    Form1.Hide;
    Form1.BorderStyle := bsNone;
    Form1.Parent := ContainerPanel;
    Form1.Align := alClient;
    Form1.Show;
  end;
end;
Fritz Westermann
  Mit Zitat antworten Zitat