Форум: "Основная";
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];

Вниз

Как посмотреть нажата ли левая кнопка мыши?   Найти похожие ветки 

← →
Фэ   (2002-02-01 23:39) [3]

..
private
procedure AppMessage(var Msg: TMsg; var Handled: Boolean);
..

procedure TForm.FormCreate(Sender: TObject);
begin
Application.OnMessage := AppMessage; // own proc
end;

procedure TForm.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
if Msg.message = WM_LBUTTONDOWN then ShowMessage("Left button click !");
end;

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.004 c