請教各輩 Form是否有當ActiveControl改變時的事件? 如Form中有多個Control當目前Focus改變時 Form是否有事件可以用 因未來會有數量不等的Control 所以為了方便不在Control的 OnEnter中做 謝謝各位輩,如不行也請告知

試試 TScreen.OnActiveControlChange 事件,  或在 Application.OnIdle 事件中來判斷, 參考: http://www.q3.nu/trucomania/truco.cgi?215&ing

   private
     { Private declarations }
     procedure Esperando(Sender: TObject; var Done: Boolean);     var
   Form1: TForm1;
   GuardaColor:TColor;
   AnteriorControlActivo:TWinControl;    procedure TForm1.Esperando(Sender: TObject; var Done: Boolean);
 begin
   if AnteriorControlActivo <> Form1.ActiveControl then
   begin
     {Aqui si hemos cambiado de control activo}         {Restauramos el color del control del que hemos salido}
     with TWinControl(AnteriorControlActivo) do
     begin
       Brush.Color:=GuardaColor;
       Repaint;
     end;         {Guardamos el color del control en el que hemos entrado}
     with TWinControl(Form1.ActiveControl) do
     begin
       GuardaColor:=Brush.Color;
       Brush.Color:=clRed;
       Repaint;
     end;
     AnteriorControlActivo := Form1.ActiveControl;
   end;
   Done:=TRUE;
 end;     procedure TForm1.FormActivate(Sender: TObject);
 begin
   AnteriorControlActivo:=Form1.ActiveControl;
   with TWinControl(Form1.ActiveControl) do
     GuardaColor:=Brush.Color;
   Application.OnIdle:=Esperando;
 end;

--- 屬於那自己生命的歌 不管是什麼顏色

hagar 的方式會動, 不過可以寫得更簡潔一些..     

procedure TForm1.MyHandler(Sender: TObject);
var
  cBuf : array[0..MAX_PATH] of char ;
  wc : TWinControl ;
begin
  wc:=screen.ActiveControl ;
  if wc=nil then
    exit ;      if wc.Name='' then
    begin
    if wc.GetTextLen>0 then
      begin
      wc.GetTextBuf(cBuf,sizeof(cBuf)) ;
      Caption:=strpas(cBuf) ;
      end ;
    end
  else
    Caption:=wc.Name ;    end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  Screen.OnActiveControlChange:= MyHandler;
end;
 

...Aquarius

------
水瓶男的blog: http://791909.blogspot.com