Ich bin gerade etwas sozial, also habe ich dir deinen Code mal etwas angepasst.
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 =
class(TForm)
Label1: TLabel;
Label2: TLabel;
procedure Label2Click(Sender: TObject);
procedure Form1OnKeyPress(Sender: TObject; *: Word);
// Diese Zeile wird von Delphi automatisch generiert: OI -> Form1 -> Ereignisse -> OnKeyPress -> Doppelklick daneben, wie für alle anderen Ereignisse.
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
// Taste muss keine globals Variable sein. Das Ereignis gibt dir ja immer die Taste.
implementation
procedure TForm1.Label2Click(Sender: TObject)
begin
// k.A. was hier hin kommt. Deine Sache
end;
procedure TForm1.Form1OnKeyPress(Sender: TObject,
var Key: Word);
// Diese Zeile erzeugt Delphi übrigens auch automatisch
begin
if (Key = ord ('
A'))
then label1.caption := ('
Taste A wurde gedrückt');
if (Key = ord ('
B'))
then label1.caption := ('
Taste B wurde gedrückt');
end;
end.
Das mit dem KeyPreview scheinst du etwas falsch verstanden zu haben.
OI -> Form -> Eigenschaften -> KeyPreview und dann die Combobox daneben auf TRUE stellen.
Bernhard