I want to reload KEYDOWN to move the focus with the arrow keys. Why isn't it easy to use?

orange4923

unit SunEdit;

interface

uses
  SysUtils, Classes, Controls, StdCtrls, Mask, Windows, Graphics, Messages, RzEdit;

type
// TSunEdit = class (TRzEdit)
  TSunEdit = class (TEdit)
  private
    {Private declarations}
  protected
    {Protected declarations}
    procedure KeyDown (var Key: Word; Shift: TShiftState); override;
  public
    {Public declarations}
    constructor Create (AOwner: TComponent); override;
  published
    {Published declarations}
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents ('SunComponent', [TSunEdit]);
end;

constructor TSunEdit.Create (AOwner: TComponent);
begin
  inherited Create (AOwner);
// self.FrameVisible: = true;
end;

procedure TSunEdit.KeyDown (var Key: Word; Shift: TShiftState);
begin

  inherited;

 IF ((KEY = Windows.VK_DOWN) or (KEY = Windows.VK_RETURN)) THEN
  begin
   perform (WM_NEXTDLGCTL, 0,0); // move to the next control
    self.Caption: = inttostr (ord (key));
  end;
  {
 else
 IF (KEY = Windows.VK_up) THEN
   perform (WM_NEXTDLGCTL, 1,0); // Move to the previous control
   }

end;


end.

Guderian

procedure TForm1.FormCreate (Sender: TObject);
begin
  KeyPreview: = True;
end;

procedure TForm1.FormKeyDown (Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_DOWN: if ActiveControl is TEdit then Perform (WM_NEXTDLGCTL, 0, 0);
    VK_UP: if ActiveControl is TEdit then Perform (WM_NEXTDLGCTL, 1, 0);
  end;
end;

orange4923

This should be written on each FROM, I want to put this function directly on TEDIT, can it be achieved?

orange4923

I mean, I want to put the function of using the direction to move the focus on my own EDIT control, how do I achieve it

orange4923

Which big brother helps me, I want to put the function of using the arrow keys to move the focus on my EDIT control, so that it will be convenient for later use, is there a way?

Guderian

IF ((KEY=Windows.VK_DOWN) or (KEY=Windows.VK_RETURN)) THEN
  begin
   Parent.Perform(WM_NEXTDLGCTL,0,0);//Move to the next control
// ~~~~~~

orange4923

Thank youGuderian(expert outpatient cleaner)
I'm so touched