Если mouse1 нажата, то

[romka1608]

Помогите с кодом плз.
если mouse1 нажата, то таймер включен
если розжата ,то то таймер выключен

[Praud]

Обрабатываешь события которые тебе нужны. mouse1 - лвк?
Если так, то вот:

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


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

[romka1608]

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

Обрабатываешь события которые тебе нужны. mouse1 - лвк?
Если так, то вот:

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


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

Мне надо что бы не только на форме.

[Stilet]

Тогда выбирай из этого: http://yandex.ua/yandsearch?text=WH_...mdoc=10&lr=143

[romka1608]

Можете показать пример кода пожалуйста.

[Stilet]

Можете показать пример кода пожалуйста.

Могу. Внимательно пройди по моей ссылке и увидишь там ссылки на темы с примерами.