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
NewForm := NewFormClass.Create(self);
NewForm.Hide;
NewForm.BorderStyle := bsNone;
NewForm.Parent := ContainerPanel;
NewForm.Align := alClient;
NewForm.Show;
end;
end;
Geht ja nicht weil Compiler meckert!
[dcc32 Fehler] Unit1.pas(39): E2010 Inkompatible Typen: 'TForm1' und 'TForm'
Ich glaub ich steh grad am Schlauch