Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.29;
Скачать: CL | DM;

Вниз

Можноли отловить событие 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;



Страницы: 1 вся ветка

Текущий архив: 2002.07.29;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.018 c
3-95214
ppcat
2002-07-06 09:04
2002.07.29
ADO, MS SQL 7.0 и обновляемые просмотры


3-95246
Rustik
2002-07-05 14:35
2002.07.29
Refresh для Grida


3-95192
Анонимщик
2002-07-02 21:14
2002.07.29
Interbase, ISC4.gdb


1-95360
Andrushk
2002-07-15 16:16
2002.07.29
Как сохранить кучу разнородной информации в одном файле


1-95313
EugenCFG
2002-07-17 18:47
2002.07.29
Как преобразовать значение ColorValue в строку...???