Unit für Virtual Key Codes?

[PeterPanino]

Ich muss immer wieder Virtual Key Codes selbst deklarieren, z.B.:

VK_P = 80; Hat denn die Delphi Runtime Library keine Unit, in der ALLE Virtual Key Codes (zumindest die Buchstaben-Tasten) deklariert sind?

[Delphi.Narium]

Schonmal auf die Idee gekommen, sie selbst zu schreiben und dann bei Bedarf ins Uses aufnehmen?

Delphi-Quellcode:

program PascalScriptUnitVK;
var
  i : Integer;
  sl : TStringList;
begin
  sl := TStringList.Create;
  sl.Add('unit VK;');
  sl.Add('interface');
  sl.Add('const');
  for i := Ord('0') to Ord('9') do sl.Add(Format('  VK_%s = %d;',[Chr(i),i]));
  for i := Ord('A') to Ord('Z') do sl.Add(Format('  VK_%s = %d;',[Chr(i),i]));
  for i := Ord('a') to Ord('z') do sl.Add(Format('  VK_%s = %d;',[Chr(i),i]));
  sl.Add('end.');
  sl.SaveToFile('VK.pas');
  sl.Free;
end.

Bei meinem ollen Delphi 7 sind die gesuchten VKs alle in der Unit Windows zu finden, mit Ausnahme der Ziffern und Buchstaben. Im Kommentar steht in der Unit dann direkt dabei, warum sie nicht in der Unit definiert sind

[PeterPanino]

Zitat von Delphi.Narium:

Schonmal auf die Idee gekommen, sie selbst zu schreiben

Das zu vermeiden, war ja der Gegenstand meines Postings.

Die Frage war ja: Gibt es (k)eine Standard-Unit für Virtual Key Codes?
Und nicht: Wie kann ich eine Unit für Virtual Key Codes erzeugen?

Trotzdem Danke. Guten Rutsch!

[mmw]

vielleicht hier - System.UITypes -

http://docwiki.embarcadero.com/Libra...s#Virtual_Keys

[PeterPanino]

Zitat von mmw:

vielleicht hier - System.UITypes -

http://docwiki.embarcadero.com/Libra...s#Virtual_Keys

Ich wundere mich, wieso die Unit
C:\Program Files (x86)\Embarcadero\Studio\21.0\source\rtl\common\Sy stem.UITypes.pas
die ScanCode-Konstanten-Namen nicht standardmäßig definiert: vkP = $50; {  80 } Standard wäre ja: VK_XX

[mmw]

hallo,

das scheint auch erst seit XE4 so zu sein.

Gruß

[PeterPanino]

Zitat von mmw:

hallo,

das scheint auch erst seit XE4 so zu sein.

Gruß

Also ein neuer Standard?

Schönen Sonntag!

[himitsu]

Weil diese Konstanten nur ein Import sind und schon beim Hersteller Microsoft wurden die "Buchstaben" auch nicht definiert, sondern nur als Kommentar erwähnt, dass man sie über einen Cast einfach bekommt, z.B. Ord('P') .

Delphi-Quellcode:

  VK_DELETE = vkDelete; {46}
  VK_HELP = vkHelp; {47}
{ VK_0 thru VK_9 are the same as ASCII '0' thru '9' ($30 - $39) }
{ VK_A thru VK_Z are the same as ASCII 'A' thru 'Z' ($41 - $5A) }
  VK_LWIN = vkLWin; {91}
  VK_RWIN = vkRWin; {92}

Seit wann es diese kurzen Delphi-vkXyz gegenüber den Windows VK_XYZ gibt, kann ich grad nicht sagen,
aber ich vermute das ist gekommen, seitdem/nachdem Delphi nicht mehr nur für Windows kompilieren kann, wo die Windows.pas dann natürlich nicht verwendet werden kann/darf.

[PeterPanino]

Denke, ich werde mich umgewöhnen und die System.UITypes verwenden.

Gutes neues Jahr an alle!