Moin ihr,
ich hab praktisch soeine Prozedur
Delphi-Quellcode:
Procedure TToolMain._ShowMenu(MenuID: Integer);
Var Item: TMenuItem;
P: TPoint;
Begin
SetForegroundWindow(Application.Handle);
_Menu.Items.Clear;
...
Item := TMenuItem.Create(_Menu);
Item.Caption := 'Optionen';
Item.OnClick := OptionClick;
_Menu.Items.Add(Item);
Item := TMenuItem.Create(_Menu);
Item.Caption := 'Exit';
Item.OnClick := ExitClick;
_Menu.Items.Add(Item);
P := Mouse.CursorPos;
_Menu.Popup(P.X, P.Y);
End;
diese erstellt eigentlich nur ein PopupMenü und "soll" es anzeigen
erstellt wurde es bei Programmstart so
Delphi-Quellcode:
_Menu := TPopupMenu.Create(Application);
_Menu.AutoPopup := False;
_Menu.MenuAnimation := [maBottomToTop];
Sooo, nun funktioniert es unter D2009 komischer Weise,
aber in TurboDelphi und Delphi 7 überhaupt nicht.
Dort taucht es ganz kurz auf und verschwindet sofort wieder.
In Delphi 2009 bleibt es zwar sichtbar und ist auch bediehnbar, allerdings wird die Abarbeitung des Programmes wärend _Menu.Popup angehalten, also die nächste Programmzeile wird erst nach Schließen des Popups ausgführt.
(hier wäre es schön, wenn das Programm dort weiteraufen würde, aber das könnte och notfalls noch verkraften)
Aber daß es in älteren Delphis nicht funktioniert, wundert mich etwas
Ach ja:
- es handelt sich um eine
VCL-Anwendung ohne Fenster (dieses Optionsfenster wird nur manchmal später manuell erzeugt)
Delphi-Quellcode:
Program theTool;
Uses Main, Forms;
{$R *.res}
Begin
Application.Initialize;
Repeat
Try
Application.HandleMessage;
Except
Application.HandleException(Application);
End;
Until Application.Terminated;
End.
Statt der Schleife hätt ich auch gern Application.Run; genommen, aber ohne Fenster beendet sich dieses ja sofort wieder.
[add]
wenn ich Pech hab, werd ich wohl doch noch die Options-Form ständig unsichtbar im Hintergrund mitlaufen lassen müssen
