Re: [Delphi] OnMouseMove - problem

2017-05-04T22:03:25+01:00

Dzieje się tak dlatego, że kliknięta kontrolka lub forma powoduje przetrzymanie komunikatu myszy tylko dla siebie. Można to łatwo sprawdzić odczytując na bieżąco parametry X,Y w zdarzeniu OnMouseMove. Po wciśnięciu lewego klawisza można jeździć kursorem po innych kontrolkach a i tak działa tylko kod zdarzenia kontrolki na której został wciśnięty lewy klawisz myszy. Zachowanie jest inne dla prawego klawisza, ale tak to już jest urządzone w Windowsie i ma to prawdopodobnie związek z Drag&Drop.

Są na to różne sposoby. Najprościej dla każdej kontrolki oraz głównej formy w zdarzeniu OnMouseMove wywołać procedurę ReleaseCapture lub SetCaptureControl(nil). Powoduje to zwolnienie tego przetrzymania. Dla tej drugiej procedury parametr (nil) oznacza brak przetrzymującej kontrolki. Jeśli zmienimy to np. na SetCaptureControl(Button1) to nastąpi przejęcie komunikatów przez Button1.

Drugi sposób to usunięcie flagi csCaptureMouse ze zbioru ControlStyle danego komponentu:
[syntax=delphi]procedure TForm1.FormCreate(Sender: TObject);
begin
ControlStyle := ControlStyle - [csCaptureMouse]; //dla Form1
Panel1.ControlStyle := Panel1.ControlStyle - [csCaptureMouse];
Panel2.ControlStyle := Panel2.ControlStyle - [csCaptureMouse];
end;[/syntax]

Działa to jednak chyba tylko dla "nieklikalnych komponentów" jak forma, panel. Dla przycisku i tak trzeba stosować ReleaseCapture. Jeśli jednak założymy, że wciśnięcie klawisza nastąpi w obrębie formy lub jednego z paneli to ten sposób może być wystarczający.
Przy większej ilości kontrolek najlepiej zastosować oba sposoby, a wywołanie ReleaseCapture umieścić w osobnej procedurze np:
[syntax=delphi]procedure TForm1.ReleaseCaptureMouse(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
// SetCaptureControl(nil);
end;[/syntax]
którą podpinamy pod zdarzenie OnMouseMove każdej pozostałej kontrolki na formie o ile nie wymaga ona jakiejś specjalnej obsługi tego zdarzenia.

W załączniku poprawiony program w wersji z csCaptureMouse i procedurą ReleaseCaptureMouse podpiętą do OnMouseMove Buttona1. Przy okazji trochę się pobawiłem i dodałem obsługę wciśnięcia dwóch klawiszy na raz.

Statystyki: Napisane przez Adam12 — 4 maja 2017, o 22:03

[Delphi] OnMouseMove - problem

2017-05-03T14:43:56+01:00

Witam

Chciałbym napisać program, w którym mógłbym kolorować panele (komponent TPanel) za pomocą kliknięcia i przytrzymania (prawego lub lewego) przycisku myszy.
W tym celu dla każdego panelu przygotowałem zdarzenie OnMouseMove, które sprawdza stan przycisków (funkcja przekazuje parametr Shift: TShiftState).
Mimo, że instrukcje sprawdzające dla lewego i prawego przycisku myszy są takie same to zachowanie ich jest inne.

[syntax=Pascal]procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if ssLeft in Shift then begin
Panel1.Color:=$FF;
end;
if ssRight in Shift then begin
Panel1.Color:=$FF00;
end;
end;

procedure TForm1.Panel2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if ssLeft in Shift then begin
Panel2.Color:=$FF;
end;
if ssRight in Shift then begin
Panel2.Color:=$FF00;
end;
end;[/syntax]

Zachowanie programu:
*Prawy przycisk myszy - klikniecie i przytrzymanie w dowolnym obszarze okna i przemieszczenie kursora na jeden z paneli powoduję zmianę koloru - reakcja prawidłowa.
*Lewy przycisk myszy - klikniecie i przytrzymanie w dowolnym obszarze okna i przemieszczenie kursora na jeden z paneli nie powoduję zmianę koloru - reakcja nieprawidłowa. Zmiana koloru następuje jedynie po kliknięciu w obszarach paneli i przemieszczenie kursora o jeden pixel(?).
W załączniku umieściłem projekt programu.
Czy ktoś borykał się już z takim problemem? Czy jest prostszy sposób na realizację takiej funkcji?

Statystyki: Napisane przez Gaek — 3 maja 2017, o 14:43

ATNEL tech-forum

Re: [Delphi] OnMouseMove - problem

[Delphi] OnMouseMove - problem