Wie fange ich eine VK_TAB Taste in meinem TEdit-Steuerelement und lassen Sie es nicht, verlieren Sie den Fokus?

In meine TEdit-Feld habe ich text in form <number1>..<number2>.

Meine Idee ist:

Wenn ein Benutzer das Steuerelement mit TAB aus einem anderen Steuerelement, number1 wird ausgewählt.

Wenn meine TEdit-Steuerelement hat Fokus und der Benutzer die Taste TAB nochmal, ich will die number2 zu erhalten, ausgewählt und number1 zu deaktiviert werden.

Und wenn aktuellen position der Einfügemarke an der Stelle, wo Zahl2 ist, drücken Sie TAB sollten sich normal Verhalten und bewegen Sie den Fokus auf das nächste Steuerelement auf das Formular.

Habe ich 2 Probleme.

Kann ich nicht fangen die tab-Taste drücken, wenn das Eingabefeld aktiv ist schon. Ich kann nur fangen, wenn dieses Steuerelement eingegeben wird/fokussiert.
Ich weiß nicht, ob es ein Schlüssel ist ähnlich wie #0, so konnte ich den Schlüssel drehen in NoOP.

Irgendwelche Ideen, wie es zu tun?

InformationsquelleAutor user1651105 | 2010-03-02

Sind Sie besser zu schreiben, Ihre eigenen TEdit-Nachkomme, der Prozesse WM_GETDLGCODE-Nachricht. Die Allgemeine Idee ist:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TMyEdit = class(TEdit)
    procedure WMGetDlgCode(var Message: TWMGetDlgCode); message WM_GETDLGCODE;
  end;

type
  TForm1 = class(TForm)
    Edit2: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
    FMyEdit: TMyEdit;
    FDone: Boolean;
    procedure MyEditEnter(Sender: TObject);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TMyEdit }

procedure TMyEdit.WMGetDlgCode(var Message: TWMGetDlgCode);
begin
  inherited;
  Message.Result:= Message.Result or DLGC_WANTTAB;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FMyEdit:= TMyEdit.Create(Self);
  FMyEdit.Left:= 40;
  FMyEdit.Top:= 40;
  FMyEdit.Parent:= Self;
  FMyEdit.Text:= '45..90';
  FMyEdit.OnEnter:= MyEditEnter;
  KeyPreview:= True;
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if (Key = #9) and (ActiveControl = FMyEdit) then begin
    if FDone then begin
      Perform(CM_DialogKey, VK_TAB, 0);
    end
    else begin
      FMyEdit.SelStart:= 4;
      FMyEdit.SelLength:= 2;
    end;
    FDone:= not FDone;
    Key:= #0;
  end;
end;

procedure TForm1.MyEditEnter(Sender: TObject);
begin
  FDone:= False;
  FMyEdit.SelStart:= 0;
  FMyEdit.SelLength:= 2;
end;

end.

Aktualisiert: dieselbe Idee, ohne dass ein TEdit abgeleiteten Klasse:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Edit2Enter(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
    FDone: Boolean;
    FOldWndProc: TWndMethod;
    procedure Edit2WindowProc(var Message: TMessage);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit2Enter(Sender: TObject);
begin
  FDone:= False;
  Edit2.SelStart:= 0;
  Edit2.SelLength:= 2;
end;

procedure TForm1.Edit2WindowProc(var Message: TMessage);
begin
  if Message.Msg = WM_GETDLGCODE then
    Message.Result:= Message.Result or DLGC_WANTTAB
  else
    if Assigned(FOldWndProc) then FOldWndProc(Message);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  KeyPreview:= True;
  Edit2.Text:= '45..90';
  FOldWndProc:= Edit2.WindowProc;
  Edit2.WindowProc:= Edit2WindowProc;
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if (Key = #9) and (ActiveControl = Edit2) then begin
    if FDone then begin
      Perform(CM_DialogKey, VK_TAB, 0);
    end
    else begin
      Edit2.SelStart:= 4;
      Edit2.SelLength:= 2;
    end;
    FDone:= not FDone;
    Key:= #0;
  end;
end;

end.

Umgang mit wm_GetDlgCode ist definitiv der Weg zu gehen. Sie nicht müssen zu machen, ein Nachkomme der Klasse sein, obwohl. Sie können einen beliebigen Steuerelements WndProc Eigenschaft zu fangen, was auch immer Nachrichten, die Sie wollen.

InformationsquelleAutor kludg

0

Vielleicht möchten Sie sich bei TJvIPAddress in JvComCtrls. Ich denke, die Suche nach TabThroughFields und VK_TAB, sollten Sie auch auf die Spur.

InformationsquelleAutor Uli Gerhardt
0
1. Sie fangen können Sie eine Registerkarte, drücken Sie auf ein KeyDown-Ereignis. (Passiert vor dem KeyPress-Event)
2. in einem KeyDown-Ereignis Sie können den Key auf #0
Oh, und in ein Key-Press-Ereignis Sie können den Schlüssel auf 0

BEARBEITEN
Das folgende ist eine call-stack Aufnahme eines KeyDown-Ereignis für ein TAB-Taste
```
Form1.TForm1.GetTab((45061, 9, 0, 983041, 0))
:0101f444 TForm1.GetTab
:004dca20 TWinControl.WndProc + $500
:004ef754 TCustomForm.WndProc + $558
:004d86b3 TControl.Perform + $27
:004ded6a TWinControl.CNKeyDown + $D6
:004dca20 TWinControl.WndProc + $500
:004dc147 TWinControl.MainWndProc + $2F
:004306ea StdWndProc + $16
:7e418734 USER32.GetDC + 0x6d
:7e418816 ; C:\WINDOWS\system32\USER32.dll
:7e41b4c0 ; C:\WINDOWS\system32\USER32.dll
:7e41b50c ; C:\WINDOWS\system32\USER32.dll
:7c90eae3 ntdll.KiUserCallbackDispatcher + 0x13
:7e42f3cc USER32.SendMessageA + 0x49
```
Wie Sie sehen können, es muss gehen durch KeyDown wie normale Tasten tun, sondern fordert BroadCast um die Nachricht zu senden....

Also brauchst du eine Nachricht catcher
```
Procedure GetTab( var Message: TCMDialogkey ); message CM_DIALOGKEY;
```
um es zu fangen.

KeyPress-Ereignis erfordert, Key: Char. Jedoch, TAB-Taste ist eine spezielle Taste, und soweit ich weiß, kann es nicht anerkannt werden, die in dieser Methode. die OnKeyDown und OnKeyUp event benötigen-Key: Word. Diese Methoden erkennen die TAB-Taste becauset hier ist "VK_TAB". Problem mit diesem ist, auf key-down-Ereignis wird nicht ausgelöst, bis überhaupt beim Edit-Steuerelement aktiv ist. OnKeyUp, gefeuert wird, nur für den Fall, dass mein Edit-Steuerelement -erhält - in den Fokus. Ich muss erfassen Sie die TAb-Taste drücken, während das Edit-Steuerelement -bereits den Fokus hat-
Im ziemlich sicher, dass #9 ist der char äquivalent zu VK_Tab

InformationsquelleAutor James Barrass

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.