Registriert seit: 29. Mai 2002
Ort: Frankfurt
8.252 Beiträge
Delphi 2006 Professional
|
Re: Shift und Tab im DBGrid - Ich komm nicht raus
23. Aug 2005, 08:00
Hai Grolle,
Du könntest im OnKeyDown des Grids die Tastendrücke auswerten und dann entsprechend reagieren:
Delphi-Quellcode:
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: word; Shift: TShiftState);
begin
if (Key = VK_TAB) then
begin
Key := 0;
if (ssShift in Shift) then
begin
Self.Perform(WM_NEXTDLGCTL, 1, 0); // Shift-Tab (zum vorigen Control)
end
else
begin
Self.Perform(WM_NEXTDLGCTL, 0, 0); // Tab (zum nächten Control)
end;
end;
end;
Stephan B. "Lasst den Gänsen ihre Füßchen"
|