Variable von Typ TForm in andre Unit überbeben

[Jerry]

Hallo zusammen

Folgende Frage:

Ich habe in einer Variable Typ TForm das aktuelle Form einer anderen Form übergeben.

In dieser anderen Form möchte ich den Namen "ActiveControl.Name" anzeigen lassen.
Leider funzt mein Code nicht siehe hier:

Delphi-Quellcode:

procedure Test(AForm: TForm);
begin
  ShowMessage(AForm.ActiveControl.Name);
end;

Bei diesen Code bekomme ich eine Zugriffsverletzung.

Woran habe ich nicht gedacht, oder was ist falsch?
Danke für Eure Tipps!

[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;

[Jerry]

Danke perfekt! Funzt!