Cómo encontrar el control activo anterior: Delphi

Question

Quiero obtener el control activo anterior en Delphi, he intentado utilizar el evento OnActiveControlChange, pero incluso a través de eso puedo obtener el control activo actual no el anterior.

Gracias por la ayuda con antelación. --Vijay

Answer 1

Prueba este Código

TForm1 = class(TForm) 
    --- 
    --- 
    private 
    { Private declarations } 
    wcActive, wcPrevious : TWinControl; 
    public 
    { Public declarations } 
    procedure ActiveControlChanged(Sender: TObject) ; 
    end; 

var 
    Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.ActiveControlChanged(Sender: TObject); 
begin 
    wcPrevious := wcActive; 
    wcActive := Form1.ActiveControl; 
end; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    Screen.OnActiveControlChange := ActiveControlChanged; 
end; 

procedure TForm1.FormDestroy(Sender: TObject); 
begin 
    Screen.OnActiveControlChange := nil; 
end; 

Uso wcControl.Name para obtener el nombre del control anterior

Para más información ir a través de this link

Answer 2

Puede construir un "historial" de controles activos utilizando este evento, y para encontrar el anterior, debería consultar su lista de historial.