seltsames Verhalten bei Stringgrid auf Form

[Hansa]

Hi,

ich habe hier etwas sehr merkwürdiges: mit Enter will ich von einem Editfeld in ein Stringgrid springen und da wieder mit Enter in die nächste Zelle. KeyPreview ist auf true gesetzt.

Delphi-Quellcode:

procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var aendern : boolean;
begin
  if not (key in [48..57,8,13,27]) then
    key := 0;
  with StringGrid1 do begin
    case key of
      VK_TAB,
      VK_RETURN :

So wandere ich durch das Grid. Und mit folgendem:

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  EnterTab(Sender,Key,Shift,[],[],true);
end;

soll erreicht werden, daß ich auch mit Enter aus dem Editfeld in das Grid komme. Nun passiert folgendes: So wie es jetzt da steht komme ich mit Enter aus dem Edit in das Grid, von da an gehts nicht mehr mit Enter weiter.

Kommentiere ich das EnterTab aus, so kome ich nur mit Tab ins Grid, aber dann kann ich da mit Enter rumwandern. Das Entertab ist übrigens das berühmte von PaulJr.

[Sharky]

Hai Hansa,

Zitat von Hansa:

..... KeyPreview ist auf true gesetzt.

bedeutet also das alle Key-Ereignisse zuerst an die Form gesendet werden. Also auch wenn Du in deinem StringGrid bist.

Prüfe doch mal in deinen FormKeyDown ob SENDER ein TEdit gewesen ist und springe nur dann in dein StringGrid.