ListBox Keypress Steuertasten

Moonbiker · Beiträge: 37

Hi,

war lange nicht mehr hier unterwegs - also erstmal einen Gruß an Alle!

Ich verwende seit kurzen das TMS Unicode Pack, welches ursprünglich von TNT stammt. Die daraus entstammende Listbox sollte bez. meiner Frage allerdings der std-Listbox gleich sein.

Ich möchte ein markiertes Element mit der ENTF-Taste löschen. Dazu habe ich

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

procedure TMainForm.SourceFilesKeyPress(Sender: TObject; var Key: Char);
begin
  case key of
    Chr(VK_ESCAPE): MainForm.Close;
    Chr(VK_DELETE): SourceFilesDeleteItem;
    else showmessage('Taste: '+key); //zum debuggen
  end;
end;

angelegt. Meine Frage ist nun, wie ich nun Tasten wie ENTF (Einf-Taste o.Ä. geht auch nicht) behandeln kann.
Dazu habe ich bereits diesen Topic gelesen, der mir allerdings nicht recht weitergeholfen hat.

Über eure Hilfe würde ich mich sehr freuen,
Gruß
Michael

Xion · Verfasst: Fr 04.04.08 14:15

Hi, dass ist etwas, was ich zwar nicht verstehe, aber weiß, wie ich es behandeln muss :roll:

Manche Tasten lösen KEIN KeyPress aus, vermutlich, vielleicht weil sie nur 1x ausgelöst werden, anders als bei Buchstaben (T > TTTTT). Du musst dafür einfach das OnKeyDown verwenden, damit gehts.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TForm1.LabeledEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
ShowMessage(inttostr(Key));
end;

_________________
a broken heart is like a broken window - it'll never heal
In einem gut regierten Land ist Armut eine Schande, in einem schlecht regierten Reichtum. (Konfuzius)

Moonbiker · Beiträge: 37

Danke für deine Antwort. Ich habe die ENTF und EINF Tasten nun durch +/- ersetzt und verzichte nun darauf.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme