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.
