forum.boolean.name - Считываение клавиш

forum.boolean.name (http://forum.boolean.name/index.php)

- Delphi (http://forum.boolean.name/forumdisplay.php?f=66)

- - Считываение клавиш (http://forum.boolean.name/showthread.php?t=17303)

Считываение клавиш

:''(( как считать кликнувшую клавишу в дельфи 7?Мне нужно только ЛКМ
P.S. Для особо одарённых ЛКМ - Левая Клавиша Мыши;)

Ответ: Считываение клавиш

Смотря куда кликнувшую. Если по форме, то можно использовать событие OnMouseDown например.
Код из брата дельфи - с++ билдера:

Код:

void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,

                  int X, int Y)

{

String s;

if(Button == mbLeft)

        s = "mbLeft";

else if(Button == mbRight)

        s = "mbRight";

else if(Button == mbMiddle)

        s = "mbMiddle";

ShowMessage("Нажали мышкой кнопку "+s);

}