TABULATOR und Edit-Feld

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):

markieren

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:

zusammenfalten · markieren

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.

markieren

Delphi-Quellcode:

			procedure TfrmMAIN.FormCreate(Sender: TObject);

begin

  with TMyEdit.Create(self) do

  begin

    OnKeyDown := Edit1KeyDown;

    Parent    := frmMAIN;

  end;

end;

Hallo Christian, 8)

eine sehr interessante Idee!!!

Ich werde es Ausprobieren

Danke

Gruß

Paul Jr.

Alexander Registriert seit: 28. Aug 2002 Ort: Oldenburg 3.513 Beiträge Turbo Delphi für .NET	#2 30. Apr 2003, 15:17 müsste so gehen (nicht getestet): markieren Code: procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (key=VK_TAB) then ShowMessage('tt'); end; Alexander
	Zitat

Gast (Gast) n/a Beiträge	#4 2. Mai 2003, 07:24 Hallo Christian, 8) eine sehr interessante Idee!!! Ich werde es Ausprobieren Danke Gruß Paul Jr.
	Zitat

TABULATOR und Edit-Feld

TABULATOR und Edit-Feld

Forumregeln