Service mit PopupMenu

[Nalincah]

Habs jetzt erstmal Interaktiv gemacht. Es wird auch angezeigt, leider wird aber dir form nicht angezeigt.

So ruf ich die Form auf:

Delphi-Quellcode:

procedure TTN2004Service.Einstellungen1Click(Sender: TObject);
begin
  if FrmMain = nil then
  begin
    FrmMain := TFrmMain.Create(nil);
    FrmMain.Show;
  end;
end;

In im OnClose-Ereignis der Form:

Delphi-Quellcode:

procedure TFrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caNone;
  FrmMain.Release;
end;