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

Вниз

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

---

← →
Vlad1   (2002-12-01 20:52) [5]

9

---

← →
Sonder   (2002-12-01 21:29) [6]

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;



---

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

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

Наверх

Память: 0.45 MB
Время: 0.005 c