|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Событие зажатия ЛКМ
Для события нажатия на кнопку у меня написана определённая последовательность действий.
Как сделать так, чтобы эта последовательность действий повторялась постоянно, пока я держу нажатой кнопку? Спасибо! |
#2
|
||||
|
||||
логика такая: сделать таймер. стартуешь его когда клавиша нажата, и в обработчике делаешь что надо
|
#3
|
|||
|
|||
А "клавиша ЛКМ нажата" это как событие называется?
|
#4
|
||||
|
||||
Цитата:
ну а далее как говорит friz, по таймеру с проверкой этой переменной TAleD = class(TUser) public function HelpMe(ASubject, ARequest: String): String; function GiveMeExample(ASubject: String): TStringList; procedure WriteReview(APost: Integer; ADescription: TStringList); end; |
#5
|
|||
|
|||
Не нужен лишний таймер, т.к. при нажатой клавише таймер клавиатуры сам повторяет код этой клавиши. Нажмите какую-нибудь клавишу и смотрите на заговолок формы:
Код:
var i: Integer = 0; procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin Inc(i); Caption:= IntToStr(i); end; Всё, дошло, это "левая клавиша мыши". Нет, чтобы сразу расшифровать! Последний раз редактировалось AlexSku, 18.03.2010 в 18:28. |
#6
|
||||
|
||||
дело в том что с клавишей на клаве это проканает, а с мышкой нет, так как если ты зажмешь левую кнопу, то ничего не произойдет и отработает только одно нажатие
|