| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

maxim2 ©   (2002-07-15 20:53:00) 

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

---

alxx   (2002-07-15 23:10:00) [1]

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

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

---

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

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

---

Юрий Зотов   (2002-07-15 22:06:00) [3]

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

var
Flag: boolean;

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

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

---

Наверх