Hallo,
ich habe: Form<-Panel<-Panel<-Stringgrid<-Combobox,Checkbox
Die Cobo- und Checkbox werden in bestimmten Spalten vom Grid angezeigt. Das klappt auch alles wunderbar. Nur das Navigieren im Grid, mit Pfeil und Tab, macht mir Probleme. Mit OnKeyDown klappt nicht alles. Also habe ich mir gedacht, einfach die Tastaturereignisse abfangen:
Delphi-Quellcode:
...
private
...
procedure CMDialogKey(var msg: TWMKey); message CM_DIALOGKEY;
...
procedure TfoData.CMDialogKey(var msg: TWMKey);
begin
beep; // <--- nur zu Kontrollzwecken
if (ActiveControl=cobsg) or
(ActiveControl=dedsg) or
(ActiveControl=chbsg) then
begin
sgView.SetFocus;
sgView.Perform(WM_KEYDOWN, msg.CharCode, msg.KeyData);
msg.Result := 1;
case msg.CharCode of
vk_tab, vk_right:
if sgView.Col<sgView.ColCount-1 then
sgView.Col:=sgView.Col+1
else
sgView.Col:=0;
vk_left:
if sgView.Col>0 then
sgView.Col:=sgView.Col-1
else
sgView.Col:=sgView.ColCount-1;
vk_return,vk_down:
if sgView.Row=sgView.RowCount-1 then
sgView.Row:=1
else
sgView.Row:=sgView.Row+1;
vk_up:
if sgView.Row<=1 then
sgView.Row:=sgView.RowCount-1
else
sgView.Row:=sgView.Row-1;
end;// case
end
else
inherited;
end;
... KeyPreview:=True ist gesetzt!
Trotzdem ertönt, wenn ich im Stringgrid (sgView) eine Taste drücke kein Beep! Also wird die Prozedur nicht aufgerufen!
Warum?
Nachtrag: wenn ich Enter drücke wird die Prozedur aufgerufen
, Warum also nicht auch bei den anderen Tasten?