TForm.Close

[jonny]

Ja das tue ich auch

Hiermal ein Beispiel aus dem Code:

Code:

procedure TForm1.irgendwasClick(Sender: TObject);
var TfSU: TfrmSendURL;
begin
  If Application.FindComponent('SUForm') = Nil Then
  begin
    Application.CreateForm(TfrmSendURL, TfSU);
    TfSU.Name:='SUForm';
    TfSU.lblUserName.Caption := 'Hahaha';
  end
  else
  begin
    (Application.FindComponent('SUForm') As TfrmSendURL).SetFocus;
  end;
end;

Beim ersten mal klappt alles aber wenn ich die Form Schliesse mit

Code:

Close

dann sagt er mir beim nächsten Click auf "irgendwas" das man kein Focus auf eine Unsichtbare Form setzen kann.