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