Forum: Programmieren allgemein
Delphi
by KodeZwerg,
6. Nov 2018
Um es hier auch erwähnt zu haben, so ist es nun gelöst.
Ich und die verschiedenen Typen und Lo und Hi und AND und OR und all das :-) nenene, da hat mir ein Profi geholfen, ich war zu unerfahren in dem Moment.
if cbALT.Checked then HotKeyMod := ( HotKeyMod or HOTKEYF_ALT );
if cbCTRL.Checked then HotKeyMod := ( HotKeyMod or HOTKEYF_CONTROL );
if cbSHIFT.Checked then HotKeyMod := (...
Forum: Programmieren allgemein
Delphi
by KodeZwerg,
6. Nov 2018
Also das auslesen klappt perfekt.
(SLI ist ein Record fürs LinkFile)
edHotKey.Text := '';
HotKeyMod := Hi( SLI.HotKey );
cbALT.Checked := (HotKeyMod and HOTKEYF_ALT) = HOTKEYF_ALT;
cbCTRL.Checked := (HotKeyMod and HOTKEYF_CONTROL) = HOTKEYF_CONTROL;
cbSHIFT.Checked := (HotKeyMod and HOTKEYF_SHIFT) = HOTKEYF_SHIFT;
edHotKey.Text := ShortcutToText( SLI.HotKey );
so...
Forum: Programmieren allgemein
Delphi
by KodeZwerg,
6. Nov 2018
edHotKey.Text := '';
HotKeyMod := Hi( SLI.HotKey );
if (HotKeyMod and HOTKEYF_ALT) = HOTKEYF_ALT then
edHotKey.Text := 'ALT+';
if (HotKeyMod and HOTKEYF_CONTROL) = HOTKEYF_CONTROL then
edHotKey.Text := edHotKey.Text + 'CTRL+';
if (HotKeyMod and HOTKEYF_SHIFT) = HOTKEYF_SHIFT then
edHotKey.Text := edHotKey.Text + 'SHIFT+';
if (HotKeyMod and...
Forum: Programmieren allgemein
Delphi
by KodeZwerg,
6. Nov 2018
Euer beides vermengt sollte mich ans Ziel bringen, vielen Dank!
Forum: Programmieren allgemein
Delphi
by KodeZwerg,
6. Nov 2018
Hallo, ich bekomme es einfach nicht hin, ich öffne eine Shortcut-Datei (.lnk), lese alles aus, das klappt auch soweit.
Als Hotkey wird mir ein "Word" mitgeteilt.
Nun wollte ich es erreichen das ich das auch lesbar habe und habe eine Hotkey komponente auf Form abgelegt.
Ich hatte gehofft ein "HotKey1.HotKey := Word(Wert);" reicht aus, aber das Feld bleibt immer leer.
Mein zweiter Anlauf war so...
