Danke, ich glaube ich habe es geschnallt!
Jetzt sieht das Ganze so aus:
Delphi-Quellcode:
procedure Groessenanpassung(var f: TCustomForm);
begin
f.left := MainformPos.x;
f.top := MainformPos.y;
f.width := MainformPos.w;
f.height := MainformPos.h;
end;
end;
und beim Aufruf caste ich das aufrufende Formular
Groessenanpassung(TCustomForm(self));
Habe ich noch was übersehen, zumindest funktioniert es nun wie gewünscht.
Ciao
Stefan