Своиства кнопки

[rainbow]

Может вопрос несколько тупой, но как сделать событие при нажатии и удерживании нажатой кнопки на форме, и при отпускании её? Все свойства кнопки перерыл, нифига не нашел.

[Sazary]

onMouseDown и onMouseUp

Пример:
на форме кнопка, таймер и эдит. В эдит вбейте 0.

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Timer1.Enabled := true;
end;

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Timer1.Enabled := false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Edit1.Text := IntToStr(StrToInt(Edit1.Text)+1);
end;

При зажатии кнопки значение в эдите будет увеличиваться.

[Stilet]

События кнопки:
OnMouseDown - Если нажата и не отпущена
OnMouseUp - Если была нажата и отпущена

[Toxa]

Сообщение от Stilet

События кнопки:
OnMouseDown - Если нажата и не отпущена
OnMouseUp - Если была нажата и отпущена

я бы сказал OnMouseDown это нажатие на кнопку
а OnMouseUp отпускание кнопки
насколько я знаю независимо от была ли она нажата(во 2ом случае) или будет отпущена (в 1ом случае)

[Stilet]

Toxa

Ну это я так... Учитывая что автор всетки мышкой будет нажимать а не мыслями