Variable von Typ TForm in andre Unit überbeben

[shmia]

Delphi-Quellcode:

procedure Test(AForm: TForm); 
begin 
  Assert(Assigned(AForm));  // Parameter darf nicht nil sein

  // durchaus möglich, dass kein Control aktiv ist
  if Assigned(AForm.ActiveControl) then
     ShowMessage(AForm.ActiveControl.Name)
  else
     ShowMessage(AForm.Name+': kein Control aktiv');
end;