ASCII-Code für "Entf"

[Nalincah]

Laut dieser Tabelle ist der Ascii-Code für "Entf" 127, oder?

Ich hab versucht in einer Listbox beim drücken von "Entf" ein Ereignis aufzurufen, aber es klappt nicht so ganz:

Delphi-Quellcode:

procedure TFrmMain.ListBoxVerglFavKeyPress(Sender: TObject; var Key: Char);
begin
  if (Key = #127) then
    ButtonVerglLoeschen.Click;
end;

[himitsu]

Ein Hallöle von http://www.FrankNStein.de/Smiley-Wolke.gif,

versuchs mal hiermit (mit OnKeyPress geht es nicht):

Delphi-Quellcode:

{OnKeyDown}
Procedure TForm1.FormKeyDown(Sender: TObject; Var Key: Word; Shift: TShiftState);
  Begin
    If Key = VK_DELETE{46/$2E} Then Beep;
  End;

siehe Liste der virtuellen Tastencodes (VK_)


http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif

[Christian18]

Hallo General 2003

Ich habe vieleicht einen kleinen Tip für dich. Wenn du mit der ESC Taste dein programm schließen willst oder eine andere Form mit der ESC Taste schließen willst dann kannst du diese Procedure nehmen mußt du aber nicht!

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if shift=[] then
    case key of
      27: Close;
    end;
end;

noch ein kleiner tip statt close kannst du natürlich auch andere proceduren ablaufen lassen.

27 = ESC Taste
45 = Einf. Taste
13 = Enter Taste
46 = ENTF Taste

Bye Bye Christian18

[Christian18]

Hallo @all

Nicht das ihr euch wundert das ich jetzt so ein müll geschrieben habe. Mein Browser hat die zweite zeile von seinen eintrag nicht richtig angezeigt. oder besser gesagt er hat sie mir gar nicht ganze zeigt. ich glaube ich sollte meinen browser wechseln!!!

Sorry

Bye Bye Christian18

[Nalincah]

Zitat von Christian18:

Hallo General 2003

Ich habe vieleicht einen kleinen Tip für dich. Wenn du mit der ESC Taste dein programm schließen willst oder eine andere Form mit der ESC Taste schließen willst dann kannst du diese Procedure nehmen mußt du aber nicht!

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if shift=[] then
    case key of
      27: Close;
    end;
end;

noch ein kleiner tip statt close kannst du natürlich auch andere proceduren ablaufen lassen.

27 = ESC Taste
45 = Einf. Taste
13 = Enter Taste
46 = ENTF Taste

Bye Bye Christian18

Funktioniert leider nicht. Müsste das in jede Komponenten einbauen die einen Focus kriegen kann, damit der das Fenster schließt

[Christian Seehase]

Moin Sebastian,

Zitat von General2003:

Müsste das in jede Komponenten einbauen die einen Focus kriegen kann, damit der das Fenster schließt

oder KeyPreview des Formulares auf true setzen.

[Nalincah]

Jo, klappt. Danke

Aber ich mach es liebe so:

Delphi-Quellcode:

procedure TFrmDBStartOeffnen.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if (Key = #27) then
    ButtonSchliessen.Click;
end;

Oder könnte das Probleme geben?