Форум: "Основная";
Текущий архив: 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