引言: 有一主程式各去執行副程式,希望能將焦點放在指定之處,但會出現Can't Focus a disable or invisible windows' 但我只要將副程式中DBGRID1.SetFocus省略或放在FormActivate即可,但這不是我要的結果,能給我一些建議? 是不是因傳給副程式執行時Form2.QuickSearch_A(INPUT.TEXT);這時副程式根本還沒開啟Form2.SHOWMODAL; thanks!! Form1: procedure TForm1.BitBtn1Click(Sender: TObject); begin IF Application.FindComponent('Form2')=nil then Application.CreateForm(TForm2, Form2 ); Form2.QuickSearch_A(INPUT.TEXT); Form2.SHOWMODAL; end; procedure TForm1.BitBtn2Click(Sender: TObject); begin IF Application.FindComponent('Form2')=nil then Application.CreateForm(TForm2, Form2 ); Form2.QuickSearch_B(INPUT.TEXT); Form2.SHOWMODAL; end; Form2: procedure TForm2.QuickSearch_A(NO:STRING); begin //程式段省略 DBGRID1.SetFocus; //--->發生錯誤 end; procedure TForm2.QuickSearch_B(NO:STRING); begin //程式段省略 DBGRID2.SetFocus; //--->發生錯誤 end;

如果你只是想達成focus的目標, 如 hager兄所說的即可, 不過我提供一個方法, 可以讓你無法create執行時, 而又想如create一啟動後就可以去執行(順位在onactive, onshow之前)    1.在 private 中建立一個
  procedure Start(Sender: Tobject; var Done: boolean);    2.在 implement 下實作
  procedure TForm1.Start(Sender: Tobject; var Done: booean);
          var handle: longInt;
  begin
     handle:= FindWindow('TForm1',nil);   // TForm1 視該unit FormName
     if handle = 0 then exit;
     Application.ProcessMessages;
     Application.OnIdle:= nil;
     Done:= True;         .....
     要實作的程式碼如
     dbgrid1.setfocus;
  end;    3.在
  TForm1.FormCreate(Sender: TObject);
  begin
       .....
       // 最後一列請加上
       Application.OnIdle:= Start;
  end;    這樣就可以達成在create之後, onactive, onshow之前執行指定的程式碼, 而且不只一個動作

引言: Form2: procedure TForm2.QuickSearch_A(NO:STRING); begin //程式段省略 DBGRID1.SetFocus; //--->發生錯誤 end; procedure TForm2.QuickSearch_B(NO:STRING); begin //程式段省略 DBGRID2.SetFocus; //--->發生錯誤 end;