Можноли отловить событие MouseDown в событии MouseMove

← →
maxim2 (2002-07-15 20:53) [0]

Привет всем!
Подскажите кто может мне надо узнать нажал ли пользователь кнопку мыши при перемещении.

← →
Юрий Зотов (2002-07-15 22:06) [1]

Схема примерно такая (детали реализации зависят от задачи):

var
Flag: boolean;

procedure ... OnMouseDown(...);
begin
Flag := True;
end;

procedure ...OnMouseMove(...);
begin
...
if Flag then
try
...
finally
Flag := False
end;
...
end;

← →
Helg (2002-07-15 22:10) [2]

Поставь в обработчике MouseDown оператор
Application.ProcessMessages;
Я в таких случаях всегда так делаю. Работает железно, правда тоже есть свои тонкости.

← →
alxx (2002-07-15 23:10) [3]

А так нельзя что ли?

procedure TForm1.Panel2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin If ssLeft in Shift Then Begin // ShowMessage("Нажата левая кнопка."); End; End;

Можноли отловить событие MouseDown в событии MouseMove Найти похожие ветки