| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Tab код? [D5, D6, D7]

4x4 ©   (2002-11-29 12:23:00) 

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

---

Sonder   (2002-12-01 21:29:00) [1]

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;



---

Vlad1   (2002-12-01 20:52:00) [2]

9

---

Sonder   (2002-12-01 18:56:00) [3]

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

---

Sonder   (2002-12-01 17:23:00) [4]

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

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

---

Карелин Артем   (2002-11-29 12:29:00) [5]

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

---

Skier   (2002-11-29 12:27:00) [6]

>4x4
VK_TAB (unit Windows.pas)

---

Наверх