AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Key in ComboBox

Ein Thema von thomas2009 · begonnen am 1. Mär 2009 · letzter Beitrag vom 2. Mär 2009
Antwort Antwort
Seite 2 von 2     12   
thomas2009
(Gast)

n/a Beiträge
 
#11

Re: Key in ComboBox

  Alt 2. Mär 2009, 14:28
Nun funktioniert :
Delphi-Quellcode:
//...
             if Combobox1.Items[Combobox1.ItemIndex] = 'F1then begin key := vk_F1; end
        else if Combobox1.Items[Combobox1.ItemIndex] = 'F2then begin key := vk_F2; end
        else if Combobox1.Items[Combobox1.ItemIndex] = 'F3then begin key := vk_F3; end
        else if Combobox1.Items[Combobox1.ItemIndex] = 'F4then begin key := vk_F4; end
        else if Combobox1.Items[Combobox1.ItemIndex] = 'F5then begin key := vk_F5; end
        else if Combobox1.Items[Combobox1.ItemIndex] = 'F6then begin key := vk_F6; end
        else if Combobox1.Items[Combobox1.ItemIndex] = 'F7then begin key := vk_F7; end
        else if Combobox1.Items[Combobox1.ItemIndex] = 'F8then begin key := vk_F8; end
        else if Combobox1.Items[Combobox1.ItemIndex] = 'F9then begin key := vk_F9; end
        else if Combobox1.Items[Combobox1.ItemIndex] = 'F10then begin key := vk_F10; end
        else if Combobox1.Items[Combobox1.ItemIndex] = 'F11then begin key := vk_F11; end
        else if Combobox1.Items[Combobox1.ItemIndex] = 'F12then begin key := vk_F12; end

        else if Combobox1.Items[Combobox1.ItemIndex] = 'RETURNthen begin key := VK_RETURN; end
        else if Combobox1.Items[Combobox1.ItemIndex] = 'SPACEthen begin key := VK_SPACE; end
// ...
        else if Combobox1.ItemIndex < 35 then begin

          key := Ord(Combobox1.Items[Combobox1.ItemIndex][1]); end;
  Mit Zitat antworten Zitat
Benutzerbild von jaenicke
jaenicke

Registriert seit: 10. Jun 2003
Ort: Berlin
9.580 Beiträge
 
Delphi 11 Alexandria
 
#12

Re: Key in ComboBox

  Alt 2. Mär 2009, 14:41
Das geht so viel einfacher, da werden die auch automatisch aufgelistet:
http://fhasovic.blogspot.com/2004/08...key-codes.html
Die entsprechenden Zahlenwerten kann man auch einfach als Objekt zu dem String einfügen statt sichtbar.
Und man kann natürlich auch nur die gewünschten Wertebereiche auflisten lassen.
Sebastian Jänicke
Alle eigenen Projekte sind eingestellt, ebenso meine Homepage, Downloadlinks usw. im Forum bleiben aktiv!
  Mit Zitat antworten Zitat
thomas2009
(Gast)

n/a Beiträge
 
#13

Re: Key in ComboBox

  Alt 2. Mär 2009, 16:38
Nun habe ich noch ein Problem
Wenn ich die Hotkey als String in ini Datei speichern möchte, dann welchen Wert muss ich speichern?

Hotkey_id ?
wenn ja, wie kann ich zum Beispiel beim Programm-Start die Hotkey nach dem Laden von Ini-Datei registrieren ?

Delphi-Quellcode:
var
  IniFile1 : TIniFile;
  hotkey1: Integer;
begin

FName := ExtractFilePath(Application.ExeName) + 'test.ini';
IniFile1 := TIniFile.Create(FName);
hotkey1 := StrToInt(MyIniFile.ReadString('hotkeys','hotkey1',''));
RegisterHotKey( ???
...

IniFile1.free;
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.619 Beiträge
 
Delphi 12 Athens
 
#14

Re: Key in ComboBox

  Alt 2. Mär 2009, 16:44
Man hat Dich schon einmal gefragt, wieso Du den Hotkey als String speichern willst. Das macht doch keinen Sinn, da es sich um eine Zahl handelt.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
thomas2009
(Gast)

n/a Beiträge
 
#15

Re: Key in ComboBox

  Alt 2. Mär 2009, 16:50
Zahl kann man in String konvertieren und dann in ini speichern
Beim laden von String in Integer wieder zurücksetzen. wo ist das Problem ?
  Mit Zitat antworten Zitat
Satty67

Registriert seit: 24. Feb 2007
Ort: Baden
1.566 Beiträge
 
Delphi 2007 Professional
 
#16

Re: Key in ComboBox

  Alt 2. Mär 2009, 16:51
Das verwirrt mich doch sehr:
hotkey1 := StrToInt(MyIniFile.ReadString('hotkeys','hotkey1','')); warum nicht so?
hotkey1 := MyIniFile.ReadInteger('hotkeys','hotkey1',0);
Zitat von thomas2009:
wo ist das Problem ?
In INIs kann man direkt Zahlen speichern, also warum die Umwandlung in einen String?
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.619 Beiträge
 
Delphi 12 Athens
 
#17

Re: Key in ComboBox

  Alt 2. Mär 2009, 16:56
Zitat von thomas2009:
Nun habe ich noch ein Problem
Wenn ich die Hotkey als String in ini Datei speichern möchte, dann welchen Wert muss ich speichern?
Zitat von thomas2009:
wo ist das Problem ?
Du widersprichst Dir selbst
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
thomas2009
(Gast)

n/a Beiträge
 
#18

Re: Key in ComboBox

  Alt 2. Mär 2009, 21:10
Meine Frage ist :
Zitat von thomas2009:
wie kann ich zum Beispiel beim Programm-Start die Hotkey nach dem Laden von Ini-Datei registrieren ?
Ich möchte also die in INI-Datei gespeicherte Hotkey, registrieren

mein Versuch hat nicht geklappt:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
          Key : Word;
          Modifiers: UINT;
            FName: String;
  IniFile1 : TIniFile;
  hotkey1: Integer;
begin

FName := ExtractFilePath(Application.ExeName) + 'test.ini';
IniFile := TIniFile.Create(FName);
hotkey1 := StrToInt(MyIniFile.ReadString('hotkeys','hotkey1',''));
          Modifiers := 0;
          key := hotkey1;
          Hotkey_id := GlobalAddAtom('MyHotKey_1');
          RegisterHotKey(Handle, Hotkey_id, Modifiers, Key);
IniFile1.free;
end;
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 2     12   


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:03 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz