Tja,
nachdem (zumindest bei uns im Ösiland) das Sommerhoch voll zugeschlagen hat,
und niemand mein Problem lösen wollte, habe ich es selbst gemacht
Delphi-Quellcode:
PROCEDURE TfMain.CreateMyFormInplaced(CONST aFormClass: TFormClass; CONST Alignment: TAlign);
VAR
NewForm : Tform;
BEGIN
IF Assigned(aFormClass) THEN
BEGIN
NewForm := aFormClass.Create(Self);
NewForm.Visible := False;
NewForm.BorderStyle := bsSingle;
NewForm.Align := Alignment;
NewForm.Parent := Panel1;
NewForm.Show;
FCurrentForm.Free;
FCurrentForm := NewForm;
END;
END;
der Aufruf erfolgt nun so:
Delphi-Quellcode:
PROCEDURE TfMain.Button2Click(Sender: TObject);
BEGIN
CreateMyFormInplaced(TMySubForm1, alClient);
END;
Aber meine 2. Frage ist noch ausständig, wer weiß was?