Нажатие левой кнопки мышки

[sashaxD]

Нужно чтобы при нажатии левой кнопки мышки включался timer1 а как только левая кнопка мышки отпускается timer1.enabled:=false;

Прошу помощи, спасибо.

[A-IX-2]

Ну так существуют же события OnMouseDown и OnMouseUp.

[sashaxD]

Сообщение от A-IX-2

Ну так существуют же события OnMouseDown и OnMouseUp.

Мне нужно не на форме. А даже при свернутом состоянии.

[Pein95]

попробуйте API хотя не уверен.

[sashaxD]

По подробнее

[volod3000]

Label1: TLabel;
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if ssLeft in Shift then begin
Label1.Caption := 'Нажал левую';
end;
if ssRight in Shift then begin
Label1.Caption := 'Нажал правую';
end;
end;

end.

[sashaxD]

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

Label1: TLabel;
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if ssLeft in Shift then begin
Label1.Caption := 'Нажал левую';
end;
if ssRight in Shift then begin
Label1.Caption := 'Нажал правую';
end;
end;

end.

Говорю же, на форме не надо

[sashaxD]

del /

[sashaxD]

UPD Достаточно чтобы при отпускании мышки срабатывало условие.
Т.е таймер выключался

[volod3000]

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

Нужно чтобы при нажатии левой кнопки мышки вклю....

Нажатии где ?