Código Delphi
[-]procedure TForm2.DecodeHotKey(shortcut: Tshortcut; var key: Word; var modif: Integer);
var
comb: String;
shiftkey: TshiftState;
begin
modif := 0;
shortcuttokey(shortcut, key, shiftkey);
comb := shortcuttotext(shortcut);
if pos('Shift', comb) <> 0 then
inc(modif, 4);
if pos('Ctrl', comb) <> 0 then
inc(modif, 2);
if pos('Alt', comb) <> 0 then
inc(modif, 1);
end;
procedure FormCreate;
var teclappal :word;
modificadores:integer;
begin
decodehotkey(hotkey1.hotkey, teclappal, modificadores);
registerhotkey(self.Handle, 0, modificadores, teclappal);
decodehotkey(hotkey2.hotkey, teclappal, modificadores);
registerhotkey(self.Handle, 1, modificadores, teclappal);
end;
El error me lo da ahy me dice algo como:
Undeclared Indentifiquer: DecodeHootKey
Undeclared Indentifiquer:shortcuttokey
etc.
Si pudieran postear un ejemplo sencillo..
Saludos y desde ya mucha gracias