TABULATOR und Edit-Feld

[Gast]

Hallo!


Ich weiß jetzt nicht, ob ich letzte Zeit zu viel Programmiere aber ich kann die Tabulator Taste in einem TEdit-Feld nicht abfangen. In keinem der üblichen Ereignisse... weder in dem TEdit selbst noch in dem Formular.

Ich möchte eben diese Taste abfangen und mein eigenes z.B.: Edit3.SetFocus ausführen...

Weiß jemand wie ich feststellen kann ob Tabulator in einem TEdit Feld gedrückt wurde.
Bei mir wird weder OnKeyDown noch irgendwas anderes aktiv...

Natürlich OnExit und ähnliche Ereignisse kommen hier nicht in Frage

Gruß

Paul Jr.

[Alexander]

müsste so gehen (nicht getestet):

Code:

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (key=VK_TAB) then ShowMessage('tt');
end;

[Christian Seehase]

Moin Paul jr.

eine Möglichkeit:

Erstelle Dir eine eigenen TEdit Komponente, in der Du die Tabulatortaste abfängst:

Delphi-Quellcode:

type // Abfangen der Navigationstasten
  TmyEdit = class(TEdit)
  private
    procedure WMGetDlgCode(var msg: TWMGetDlgCode); message WM_GETDLGCODE;
  end;

//...

implementation

procedure TmyEdit.WMGetDlgCode(var msg: TWMGetDlgCode);
begin
  inherited;
  // Ja, dieses Edit soll die TAB Taste "sehen"
  msg.Result := msg.Result or DLGC_WANTTAB;
end;

Wenn Du dass dann, z.B. so erzeugst, und eine entsprechende Routine zuweist bekommt das neue Edit Feld direkt mit, dass TAB gedrückt wurde.

Delphi-Quellcode:

procedure TfrmMAIN.FormCreate(Sender: TObject);
begin
  with TMyEdit.Create(self) do
  begin
    OnKeyDown := Edit1KeyDown;
    Parent    := frmMAIN;
  end;
end;

[Gast]

Hallo Christian, 8)

eine sehr interessante Idee!!!

Ich werde es Ausprobieren

Danke

Gruß

Paul Jr.