Таймер "ловит" не все клики мыши

[tetris]

Проблема таймер "ловит" не все клики левой кнопки мыши над объектом.
пропускает ...

Интервал тайиера 50мс

procedure TfmLock.Timer_WorkTimer(Sender: TObject);
var p: TPoint;
begin
GetCursorPos(p);

// определяем что мышь над объектом:
if ((p.x > fmLock.Left + Zona_1.Left) and (p.x < fmLock.Left + Zona_1.Left + 50) and
(p.y > fmLock.Top + Zona_1.Top) and (p.y < fmLock.Top + Zona_1.Top+ 50)) then
Mouse_Sb_1 := True else Mouse_Sb_1 := False;

if ((Mouse_Sb_1 = True) and (Mouse_Left_1 = True)) then begin
Brush.Style := bsSolid;
Brush.Color := clWhite;
.. рисуем на канве
...
end;

procedure TfmLock.Zona_1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then Mouse_Left_1 := True;
if Button = mbRight then Mouse_Right_1 := True;
if Button = mbMiddle then Mouse_Middle_1 := True;
end;

procedure TfmLock.Zona_1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then Mouse_Left_1 := False;
if Button = mbRight then Mouse_Right_1 := False;
if Button = mbMiddle then Mouse_Middle_1 := False;
end;

[Stilet]

А зачем ты эти клики в таймере ловишь?

[tetris]

по кликам перерисовывается канва

[Квэнди]

а на клик перерисовать канву не судьба ?

[tetris]

прямо на MouseDown? А там можно?
(П.П. я не программист,- я аниматор и только волей судьбы вынужден писать код для своих презентаций...)

[Reaction]

А там можно?

Конечно можно, а для чего там это стоит? Если нельзя использовать.

[Stilet]

только волей судьбы вынужден писать код для своих презентаций...

Дык зачем на делфе? Для презентаций есть другие средства гораздо получше.

[tetris]

ну это философский вопрос. а такие "запарки" у меня раз два в году по неделе. когда прогер в отпуске или на больничном,- не стоит шкура выделки... А изучать мне для работы надо счас endorphin. а не средства программирования (извиняюсь если обидел прогеров)...

А по сути вопроса: Я так понял событие MouseDown очень кратковременно и таймер его просто не успевает "поймать"? Так это?

[Stilet]

Это событие вообще с таймером не совместимо.
Вот то что ты твориш в таймере перенеси в OnMouseDown

[tetris]

все понял спс.