Главная страница
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.036 c
4-1272049250
@!!ex
2010-04-23 23:00
2015.09.10
Как из service удалить куки для всех пользователей?


2-1397314902
Andrey5
2014-04-12 19:01
2015.09.10
Работа с Edit


2-1393319059
Novicer
2014-02-25 13:04
2015.09.10
Ошибка при удалении записей таблицы Firebird


11-1252401951
Ruzzz
2009-09-08 13:25
2015.09.10
Немного переделал MHXP Компонент


2-1395731174
Сергей
2014-03-25 11:06
2015.09.10
Определить тип данных