[tigra-nsk]

Совбственно простой вопрос: как реализовать какое-либо действие, пока зажат button не клавиатурой, а мышкой?

[Alegun]

Первое, что пришло в голову

Код:

procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 Button1.Tag:= 1;
end;

procedure TForm1.Button1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 Button1.Tag:= 0;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if Button1.Tag > 0 then 
  Label1.Caption:= 'Нажат Button1' 
 else        
  Label1.Caption:= 'Button1 не нажат';
end;

[NumLock]

OnMouseDown

[Alegun]

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

OnMouseDown

Опа, точно, не доглядел, спсб, но лучше тогда OnMouse(Key)Down и OnMouse(Key)Up в связке использовать, так и с клавы и смыша можно нажатие отслеживать

[tigra-nsk]

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

OnMouseDown

OnMouseDown почему-то работает как просто клик по кнопке.
т.е. при нажатом button у меня должна расти переменная, а она, зараза, растет строго на единицу при каждом клике, а хочется, чтобы увеличивалась, пока держу нажатой кнопку.

[Alegun]

Ну в этом примере не зря таймер используется, контроллер клавы повторяет посылки нажатий, а с мышки нет. Используйте повтор

З.Ы. В смысле

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if Button1.Tag > 0 then Inc(Переменная);
  end;

[tigra-nsk]

Спасибо огромное, помогло!