Service mit PopupMenu

[sakura]

Dann ändere mal:

Code:

procedure TTN2004Service.Einstellungen1Click(Sender: TObject);
begin
  if FrmMain = nil then
  begin
    FrmMain := TFrmMain.Create(nil);
    [s][color=#ff0000]FrmMain.Show;[/color][/s]
  end;
  [color=#ff0000]FrmMain.Show;[/color]
end;

......

P.S.: Und Du bist Dir sicher, daß Du einen interaktiven Service schreiben möchtest Das würde Dir in mancher Firma inzwischen einen "blauen Brief" einbringen.