当用户点一个button时我能否知道点击前一个焦点的名称?

Question

UP

Answer 1

save prior taborder then you get it !

Answer 2

1.定义一个公共变量s 
2在Button的Onmousemove事件写如下代码
  s:=activecontrol.name;
3在button的Click事件中你就知道了上个焦点控件的名称。

Answer 3

if (ActiveControl is TDbgrid) Then
//是Dbgrid组件
begin
if (ActiveControl is TDbgrid) Then
 With TButton(ActiveControl) Do
s:=caption;end;

Answer 4

if (ActiveControl is TButton) Then
//是button组件
begin
if (ActiveControl is TButton) Then
 With TButton(ActiveControl) Do
s:=caption;end;

Answer 5

以下文章来自delphi.about.comHow to find what control was previously selected
 
{
Suppose you have two Edit (Edit1 and Edit2) boxes on 
a Form (Form1). Suppose you need to know 
what Edit box had the input focus 
(was selected) when you click a button (Button1).Here's how to find out what control 
was the last one with the input focus...Delphi's TScreen object has an event called
OnActiveControlChange, which fires immediately 
after input focus changes to a new windowed control.
}//Add a new public procedure, ActiveControlChanged, 
//to the TForm1 class declaration,
//and two private TWinControl type variables
  
private
  wcActive, wcPrevious : TWinControl;
public
  procedure ActiveControlChanged(Sender: TObject);
    
...procedure TForm1.FormCreate(Sender: TObject);
begin
  Screen.OnActiveControlChange := ActiveControlChanged;
end;procedure TForm1.ActiveControlChanged(Sender: TObject);
begin
   wcPrevious := wcActive;
   wcActive := Form1.ActiveControl;
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
  Screen.OnActiveControlChange := nil;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  if TEdit(wcPrevious) = Edit1 then
    ShowMessage('Edit1 had focus')
  else if TEdit(wcPrevious) = Edit2 then
    ShowMessage('Edit2 had focus')
  else
    ShowMessage('Some other control had a focus!');
end;