Deutsch ?? uiuiui ... das mir als Bayer ... naja mal versuchen
Delphi-Quellcode:
procedure TForm1.FormKeyUp(Sender: TObject;
var Key: Word; Shift: TShiftState);
begin
// <--- was da alles steht wird gemacht wenn ne taste losgelassen wurde (im OI bei ereignisse doppelt auf OnKeyUp drücken)
if key = VK_UP
then //markier das obere dingens
else if key = VK_down
then // markiere das untere dingens .
// die anderen tasten solltest du auch unter VK_... finden
end;
Du könntest auch beim onCreate deine Labels (?) in ein
array[1..6] of TLabels legen ... dann kannste die dinger evtl. einfacher ansteuern
edit: ups den eigentlichen code vergessen
edit2: gugst du
hier.
龍 Der Unterschied zwischen Theorie und Praxis ist in der Praxis größer als in der Theorie.