Цитата:
Сообщение от kardinal94
У меня довольно простой и относительно идиотский вопрос, с помощью какого события и как фиксировать нажата ли мышь, суть в том что при удерживании нажатой мышку над кнопкой должна делаться одна команда, при отпускании другая. Расчитываю на скорейшую помощь.
|
английский надо учить, OnMouseDown, OnMouseUp. если нет такого события то обрабатывать сообщения WM_LBUTTONDOWN, WM_LBUTTONUP
__________________
TAleD = class(TUser)
public
function HelpMe(ASubject, ARequest: String): String;
function GiveMeExample(ASubject: String): TStringList;
procedure WriteReview(APost: Integer; ADescription: TStringList);
end;
|