Форум: "KOL";
Текущий архив: 2015.09.10;
Скачать: [xml.tar.bz2];
Внизгорячие клавиши в KOL Найти похожие ветки
← →
tippa (2009-12-10 20:25) [0]Надо перенести проект с VCL на KOL.
type
..............................
private
procedure WMHotkey( var msg: TWMHotkey ); message WM_HOTKEY;
..............................
end;
..................................
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterHotkey(Handle, 1, MOD_ALT or MOD_SHIFT, VK_F4);
RegisterHotkey(Handle, 2, MOD_ALT or MOD_SHIFT, VK_F5);
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
UnRegisterHotkey(Handle, 1);
UnRegisterHotkey(Handle, 2);
end;
procedure TForm1.WMHotkey( var msg: TWMHotkey );
begin
if msg.hotkey = 1 then form1.Visible := false;
if msg.hotkey = 2 then form1.Visible := true;
end;
Просто голая форма, которая исчезает и появляется по нажатию горячих клавиш. При переносе возникли трудности, уже при определении процедуры WMHotkey в секции private выдаёт ошибку.
Пробовал уже по всякому, прошу помочь.
← →
Dufa © (2009-12-10 22:30) [1]регать\анрегать так же, а обработчик весить на OnMessage:
function TForm1.KOLFormMessage(var Msg: tagMSG; var Rslt: Integer): Boolean;
begin
case Msg.message of
WM_HOTKEY:
begin
case Msg.wParam of
1:
///
2:
///
end;
end;
end;
Result := False;
end;
← →
tippa (2009-12-11 13:54) [2]спасибо, всё получилось:
function TForm1.KOLForm1Message(var Msg: tagMSG;
var Rslt: Integer): Boolean;
begin
case Msg.message of
WM_HOTKEY:
begin
case Msg.wParam of
1:form1.Form.Visible:=false;
2:form1.Form.Visible:=true;
end;
end;
end;
Result := False;
end;
procedure TForm1.KOLForm1FormCreate(Sender: PObj);
begin
RegisterHotkey(form.Handle, 1, MOD_ALT or MOD_SHIFT, VK_F4);
RegisterHotkey(form.Handle, 2, MOD_ALT or MOD_SHIFT, VK_F5);
end;
procedure TForm1.KOLForm1Close(Sender: PObj; var Accept: Boolean);
begin
UnRegisterHotkey(form.Handle, 1);
UnRegisterHotkey(form.Handle, 2);
end;
Страницы: 1 вся ветка
Форум: "KOL";
Текущий архив: 2015.09.10;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.154 c