Comment trouver le contrôle actif précédent: Delphi

Question

Je veux obtenir le contrôle actif précédent dans Delphi, j'ai essayé d'utiliser l'événement OnActiveControlChange, mais même par ce que je peux obtenir le contrôle actif actuel pas le précédent.

Merci pour l'aide à l'avance. --Vijay

Answer 1

Essayez ce code

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; 

Utilisez wcControl.Name pour obtenir le nom du contrôle précédent

Pour plus d'informations passent par this link

Answer 2

Vous pouvez créer vous-même un «historique» des contrôles actifs en utilisant cet événement, et pour trouver le précédent, vous consulterez votre liste d'historique.