Variable auf Form setzen

[c4rtm4n]

Um eventuelle Zugiffsschutzverletzungen entgegenzuwirken könnte man vielleicht noch folgendes machen:

Delphi-Quellcode:

...

var
  c: TComponent;
begin
  c := FindComponent('Form4');

  if not Assigned(c) then
    exit;

  if (c is TForm) then
    ShowMessage(TForm(c).Name);
end;

Gruß