Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2015.09.10;
Скачать: CL | DM;

Вниз

горячие клавиши в 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 вся ветка

Текущий архив: 2015.09.10;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.033 c
2-1390997184
JohnKorsh
2014-01-29 16:06
2015.09.10
Удаление файла средствами Delphi


2-1393856756
GroupBox
2014-03-03 18:25
2015.09.10
Скрыть рамку котрола


15-1418938202
Юрий
2014-12-19 00:30
2015.09.10
С днем рождения ! 19 декабря 2014 пятница


2-1395331412
Дмитрий
2014-03-20 20:03
2015.09.10
Как отключить у ДБТекстБокса копирование в буфер


15-1418419802
Юрий
2014-12-13 00:30
2015.09.10
С днем рождения ! 13 декабря 2014 суббота