Event sobald Popup geschl. wird, wenn kein Eintr. gew. wurde

[DerDan]

Hallo

ich hab eine Grafik Applikation. Im Zeichenfenster kann man mit der rechten Mouse Taste Popupmenus aufklappen.

Wenn man einen Eintrag auswählt soll danch die Mouse per SetMousePos wieder an den Punkt verschoben werden, der aktuell war als
das Popup geöffnet wurde.

Delphi-Quellcode:

procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if mbRight = Button then
  begin
    FMouseDownAt := Mouse.CursorPos;
    // als nächstes erscheint das Popup
  end;
end;

procedure TForm1.Memo1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if mbRight = Button then
  begin
    // Popup ist wieder weg 
    Mouse.CursorPos := FMouseDownAt;
  end;
end;

Funktioniert soweit schon.

Aber wenn kein Eintrag ausgewählt wurde soll die Mouse nicht automatisch verschoben werden. Leider gibt es dafür kein Ereignis!

Wie löse ich das Problem?


mfg


DerDan

[Phistev]

Verlege den Code zum Zurückbewegen des Cursors in die OnClick-Events der MenuItems, da das der Zeitpunkt ist, an dem der Cursor zurückbewegt werden soll.