Delphi-PRAXiS - Delphi TAB unterdrücken

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - Delphi TAB unterdrücken (https://www.delphipraxis.net/16514-tab-unterdruecken.html)

TAB unterdrücken

Hallo,

ich habe eine TDBGrid Komponente in der mit der Taste 'TAB' von Feld zu Feld navigiert werden kann. Mein Problem ist, dass wenn das letzte Feld (letzte mit TAB anzuspringende Feld) erreicht ist und abermals die Taste 'TAB' betätigt wird, so wird ein neuer Datensatz angelegt ohne den vorherigen zu 'comitten'.

Was ich also möchte ist, durch einen Keyhandler das Ereignis abzufangen und das 'TAB' abzubrechen wenn der Benutzer sich in dem letzten mit 'TAB' erreichbaren Feld befindet.

Wie kann ich das abfragen?

Delphi-Quellcode:

			...

if Grid.selectedField = Grid.Fieldcount

   abort;

So geht es leider nicht, da es vorkommt, dass das letzte Feld nur lesbar ist und das Feld damit keinen Tabstop hat...

Hat jemand eine Idee?

Danke & Gruß,

Barnti

Re: TAB unterdrücken

1.) Da fehlt ein "then" hinter FieldCount, das dürfte aber nicht der Fehler sein :mrgreen:

2.)Du könnntest das mit virtuellen TastenCodes ála VK_irgendwas machen. z.B.

Delphi-Quellcode:

			if Grid.SelectedField = Grid.FieldCount then

if Key=VK_(TastenCode für Tab) then Key:=#0;

Hab's nicht getestet, müsste aber vom Prinzip her gehen