Tab код?

← →
4x4 (2002-11-29 12:23) [0]

Какой код у Tab клавиши? Спасибо!

← →
Skier © (2002-11-29 12:27) [1]

>4x4
VK_TAB (unit Windows.pas)

← →
Карелин Артем © (2002-11-29 12:29) [2]

Данная штука позволит тебе узнать код любой клавиши:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
ShowMessage(IntToStr(Key));
end;

← →
Sonder © (2002-12-01 17:23) [3]

> Карелин Артем ©

Сам для Tab пробовал?

← →
Sonder © (2002-12-01 18:56) [4]

http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=988624853&n=15

Vlad молодец. Влад посмотрел. Посмотрел и увидел

> Skier © (29.11.02 12:27)
> >4x4

{$EXTERNALSYM VK_TAB} (unit Windows.pas ln.18112)
VK_TAB = 9;
Tab еще со Spectrum"a №9

Кому интересно:

program Project1; Application.ShowMainForm := False; Application.CreateForm(TForm1, Form1); unit Unit1; ...... var HotKey:Integer; procedure TForm1.FormCreate(Sender: TObject); begin HotKey:=GlobalAddAtom("Tab"); RegisterHotKey(Handle,HotKey,{MOD_CONTROL, MOD_SHIFT,..}{F1} 0,VK_TAB); end; procedure TForm1.FormDestroy(Sender: TObject); begin UnRegisterHotKey(Handle,HotKey); end; procedure TForm1.WMHotKey(var Message: TMessage); begin if (Message.LParamHi = VK_TAB) then Show; end;

Tab код? Найти похожие ветки