請教消息問題

Question

是否有這樣的信息,使焦點停留在taborder 是Form上最小值的控件上面

Answer 1

procedure TForm1.FormShow(Sender: TObject);
var
  i,j: Integer;
  iMin: Integer;
begin
  iMin := 10000; //设置一个初始值
  for i := 0 to ComponentCount - 1 do
    if Components[i] is TWinControl then
      if imin > TWinControl(Components[i]).TabOrder then
      begin
         imin := TWinControl(Components[i]).TabOrder;
         j := i;
      end;
  TWinControl(Components[j]).SetFocus;
end;

Answer 2

刚才sisu说过
form1.SelectFirst;