Vorausgesetzt, die Form wird auch so dort eingedockt:
Delphi-Quellcode:
procedure TMyForm.DockNewForm( APageControl : TPageControl; ADockFormClass : TDockFormClass );
var
LForm : TDockForm;
begin
LForm := TDockFormClass.Create( APageControl );
try
LForm.ManualDock( APgeControl, nil, alClient );
LForm.Visible := True;
LForm := nil;
finally
LForm.Free;
end;
end;
...
Danke für die ausführlich Beschreibung.
Ich kann aber nirgends ein Ereignis wie
onDockNewForm
finden. Und dann habe ich noch das Problem wo bzw. wie ist
TDockFormClass
definiert?
[edit]
Und noch ein Problem fällt mir ein:
Wie greife ich auf die einzelnen Komponenten (TImage etc.) nach dem Erstellen des angedockten Forms zu?
Der Benutzer soll die Bilder erst scannen. Dann mit dem Button Bilder, die er nicht haben will, löschen können und schließlich über einen zentralen Save-Button alle Bilder nacheinander abspeichern.
Letzteres soll dann über einen Thread vom Hauptformular erfolgen. Ich muss also irgendwie rankommen...
[/edit]
Gruß, Alex