用户界面设计(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;

 

对窗体中组件的查找:

Control属性是一个组件数组,用来存储窗体中的所有子组件。

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

Index参数为窗体中组件的索引值。

示例:

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;

 

TControl、TComponent可参考面对对象编程分类下。

FindChildControl方法用于查找窗体中的子组件,并返回子组件的TControl类。

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

 

FindComponent方法查找窗体中的子组件,并返回子组件的TComponent类

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;

 

窗体坐标的转换:

ClientToScreen方法用于将客户坐标转换成屏幕坐标

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

参数Point是一个结构类型,该结构类型制定了坐标X 和Y,该方法返回转换后的屏幕坐标值。

 

ScreenToClient方法用于将屏幕坐标转换成客户坐标

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

参数Point是一个结构类型,该结构类型制定了坐标X 和Y,该方法返回转换后的客户坐标值。

 

ClientToParent方法用于将客户坐标转换为父类的坐标

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

参数AParent是要转换坐标的父类组件,默认值为空,此时Aparent为当前组件的直接父类。

 

用户界面设计(3)- 窗体的主要方法

 对1024x768的屏幕分辨度,假设我们的游戏窗口Clent大小为800x600

X方向为0到1023个像素点,y方向为0到767个像素点

    屏幕的高 Screen,height=1024

    屏幕的高 Screen,width=768

定义rect:TRect;

用以下API函数得到窗口的对角位置

     GetWindowRect (h, rect); 窗口句柄为h,

用以下API函数得到窗口Clent的对角位置

     GetClientRect(h, rect); 窗口句柄为h,

这里的位置是相对全屏图的原点(0,0)。

      为了缩小找图的范围,提高速度,我们找图一般是先得到游戏窗口句柄,再把游戏窗口Clent区抓成bmp,然后在bmp里找,这样找到的位置p(x,y),是相对Clent区原点(0,0),还要换算成屏幕的位置。换算可以用API函数ClientToScreen(h, p);

举例

   p.x:=0;

   p.y:=0;

   ClientToScreen(h, p); // (p.x, p.y)就是Clent区原点在屏幕上的位置

    知道了图片所在的屏幕位置,就可以用mouseMoveTo和moseLeftClick等来模拟动作了。

用户界面设计(3)- 窗体的主要方法

上一篇:C# 继承


下一篇:初始化 RESTful API 风格的博客系统