MouseUp Event mit gedrückter rechter Maustaste

[Alex_ITA01]

Hallo zusammen,
ich habe folgendes festgestellt.

Linke Maustaste gedrückt halten auf einem Button führt zum MouseDown.
Linke Maustaste auf dem Button oder irgendwo anders loslassen (auf der Form oder außerhalb der Anwendung) führt zum MouseUp.

Rechte Maustaste gedrückt halten auf einem Button führt zum MouseDown.
Rechte Maustaste auf dem Button oder irgendwo anders loslassen (auf der Form oder außerhalb der Anwendung) führt NICHT zum MouseUp.

Gibt es da eine Möglichkeit, dass das MouseUp auch bei gedrückter rechter Maustaste kommt, wenn die Komp mit der Maus eigentlich "verlassen" wurde?

[BerndS]

Das geht mit SetCapture/ReleaseCapture.

Delphi-Quellcode:

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Button = TMouseButton.mbRight then
    SetCapture(sbx1.Handle);
  ...
end;

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Button = TMouseButton.mbRight then
    ReleaseCapture;
  ...
end;

[Michael II]

Ja du kannst WM_RBUTTONUP abfangen. Dann klappt es wie du es wünschst; also entweder durch einen eigenen Handler oder via TApplicationEvents:

Delphi-Quellcode:

procedure TForm17.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
    if Msg.message = WM_RBUTTONUP then
        showmessage( 'hallo' );
end;

Tipp: Wenn du alle Mausmeldungen abfangen willst, wenn zum Beispiel wieder mal was mit der Maus nicht so funktioniert wie du es gern hast und du mal sehen willst, was alles an WM_Maus ankommt:

Delphi-Quellcode:

procedure TForm17.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
      if ( Msg.message >= WM_MOUSEFIRST ) and  ( Msg.message <= WM_MOUSELAST ) then
      begin
...
      end;
end;

[Alex_ITA01]

SetCapture und ReleaseCapture kannte ich gar nicht. Danke.
Sollte man das dann nicht auch beim linke Maustaste nutzen oder wirklich nur bei der rechten?

[BerndS]

Für die Linke Taste hat die Vcl das im TButtonStyleHook schon so drin.
Die Frage ist, warum nicht auch für die rechte und mittlere Maustaste?

[Alex_ITA01]

Danke, wieder was dazu gelernt

[himitsu]

Links ist/war für Drag&Drop nötig.


SelectionChange ist oft auch nur für Links drin, aber beim Kontextmenü an Listen fehlt es.

[Benmik]

Zitat von Michael II:

Tipp: Wenn du alle Mausmeldungen abfangen willst, wenn zum Beispiel wieder mal was mit der Maus nicht so funktioniert wie du es gern hast und du mal sehen willst, was alles an WM_Maus ankommt:

Delphi-Quellcode:

procedure TForm17.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
      if ( Msg.message >= WM_MOUSEFIRST ) and  ( Msg.message <= WM_MOUSELAST ) then
      begin
...
      end;
end;

Das ist mal ein guter Tipp!