我想在Delphi中获得以前的主动控件,我试图使用OnActiveControlChange事件,但即使通过我可以得到当前的主动控件而不是前一个.
我在这里先向您的帮助表示感谢.
–Vijay
解决方法@H_404_7@
试试这个代码
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;
有关更多信息,请访问this link
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;
有关更多信息,请访问this link