Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by rapante,
1. Apr 2010
Das ist so nicht richtig! Setz doch mal in beiden Prozeduren bei showmessage einen Breakpoint und schau was passiert!
procedure TForm1.ListBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
showmessage('down');
end;
procedure TForm1.ListBox1KeyPress(Sender: TObject; var Key: Char);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by rapante,
31. Mär 2010
@BUG ...kein Problem, hab' ja auch ein bisschen was durcheinander gebracht. :oops:
Mir war nicht bewusst, dass im OnkeyPress-Ereignis nur Tastatureingaben ankommen
die Zeichen erzeugen. naja wieder was gelernt.
Hast du das Beispiel eigentlich mal getestet?
procedure TForm1.ListBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by rapante,
30. Mär 2010
...und damit das navigieren mit den PfeilTasten weiterhin funktioniert...
procedure TForm1.ListBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if not Key in then
Key := 0;
end;