用户界面设计（3）- 窗体的主要方法

Form2.Show;//显示该窗体，是过程，代码会继续往下执行
Form2.ShowModal{显示该窗体，是函数，该窗体显示时其他窗体不能进行任何操作。
                  不关闭该窗体，代码不会往下执行。该函数有一个整型返回值，
                  0代表mrNone，1代表mrOK，2代表mrCancel}

Hide;//隐藏当前显示的窗体

FocusControl(Button1);//指定窗体上某个组件是否获得焦点，参数为所有可视化组件

Edit1.SetFocus;//指定当前方法所在的组件获得焦点

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  //该方法可以按照指定的Order顺序获取窗体中组件的焦点
  if key = #13 then
  Self.FindNextControl(Self.ActiveControl,True,True,False).SetFocus;
end;

property Controls[Index: Integer]: TControl read GetControl;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  {试想如果一个一个设置窗体中同类子组件的可用不可用，会很麻烦}
  for i=0 to Self.ControlCount-1 do //子组件数量
  begin
    if Self.Controls[i] is TEdit then
      TEdit(Self.Controls[i]).Enabled:= False;
  end;
end;

function TWinControl.FindChildControl(const ControlName: string): TControl;

function TComponent.FindComponent(const AName: string): TComponent;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
const
  nameprefix = ‘Edit‘;//用于创建的TEdit组件前缀
begin
  button1.Enabled:= false;
  for i:= 0 to 10 do
  begin
    TEdit.Create(Self).Name:= nameprefix+ IntToStr(i);
    with TEdit(FindComponent(nameprefix+ IntToStr(i))) do
    begin
      if i mod 2  0 then
      Left:= 30
      else
      Left:= 230;
      if (i mod 2 = 0) then
      Top:= (i-1)*20
      else
      top:= i*20;
      Parent:= Self;
    end;
  end;
end;

function TControl.ClientToScreen(const Point: TPoint): TPoint;

function TControl.ScreenToClient(const Point: TPoint): TPoint;

function TControl.ClientToParent(const Point: TPoint; AParent: TWinControl): TPoint;