• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

DelphiXE5forAndroid(三)

原作者: [db:作者] 来自: [db:来源] 收藏 邀请
  • 在FMX下,Application不再有MessageBox函数,只能使用MessageDlg函数,写法如下:
procedure TfrmMain.btncloseClick(Sender: TObject);
begin
  if MessageDlg('是否退出?', TMsgDlgType.mtConfirmation,
    [TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo], -1) = mrYes then
  Close;
end;
  •  在Delphi中窗体与窗体之间的交互与调用非常简单,在FMX中这个优势得到了充分体现,先建立一个主窗体和一个需要调用的窗体:

 

 

 

  • 在主窗体上放的按钮事件如下:
private
  { Private declarations }

  //定义私有窗体对象
  Ffrm: TfrmOtherFMX;

…

procedure TfrmMainFMX.Button1Click(Sender: TObject);
begin

  //创建并显示窗体
  if not Assigned(Ffrm) then
    Ffrm := TfrmOtherFMX.Create(Self);
  Ffrm.Show;
end;
  • 在另外一个窗体的按钮事件中关闭:
procedure TfrmOtherFMX.Button1Click(Sender: TObject);
begin
  Close;
end;

 

 

 


  • Android程序开发必然用到按钮,在XE5下,按钮的一个比较重要的属性就是StyleLookup,预置了一系列常用的图标,如下图:

 

 

 

另外2个常用属性就是:

GroupNameIsPressed一组按钮取一个相同的GroupName,控制其中只能有一个被按下

按钮的分布一般有几种形式:

1、自由摆放,也就是在Form上自由放置;

2、放置在TGridLayout控件中,由TGridLayout自动排列,通过ItemHeight和ItemWidth控制每个格子的大小;

3、放置在TToolBar控件中,如下图:

 

 

 


  • TTabControl的使用。在很多Android的app中,首次启动时都使用选项卡模式进行产品介绍,用户通过向左滑动,改变选项卡。在xe5下这项工作由TTabControl控件完成,如下图:

 

 

 

1、TTabControl外观

TTabControl的外观由属性TabPosition控制,可选项包括:

tpTop         选项tab在控件上方

tpBottom   选项tab在控件下方

tpNone      以原点形式显示选项tab,在控件下方,如下图:

 

 tpDots        以方格形式显示选项tab,在控件下方,如下图:

 

 

 

2、控制换页

对换页的处理有以下几种形式:

(1)按钮+Action控制

通过创建标准Action——TChangeTabAction,指定Tab属性表示该动作的目标选项卡,如下图:

 

 

然后对按钮指定对应的Action

(2)手势(Gesture)控制

   手势控制就是在Pad或手机上常用的左右滑动,放大缩小等操作,这里需要先在Form上放置一个TGestureManager控件,然后在TTabControl的OnGesture事件对手势进行判断和处理,代码如下:

procedure TTabbedwithNavigationForm.TabControl1Gesture(Sender: TObject;
  const EventInfo: TGestureEventInfo; var Handled: Boolean);
begin

  //识别事件的手势
  case EventInfo.GestureID of
    sgiLeft://由右向左滑动手指
    begin

       //如果不是最后一个tab,则选择下一个tab
      if TabControl1.ActiveTab <> TabControl1.Tabs[TabControl1.TabCount-1] then
        TabControl1.ActiveTab := TabControl1.Tabs[TabControl1.TabIndex+1];
      Handled := True; //已代码处理
    end;

    sgiRight://由左向右滑动手指
    begin

      //如果不是第一个tab,则选取前一个tab
      if TabControl1.ActiveTab <> TabControl1.Tabs[0] then
        TabControl1.ActiveTab := TabControl1.Tabs[TabControl1.TabIndex-1];
      Handled := True;//已代码处理
    end;
  end;
end;

(3)通过硬件按钮(Hardware KeyBoard)控制

    在窗体的OnKeyDown或OnKeyUp事件,对硬件按钮进行识别,然后处理。代码如下:

procedure TTabbedwithNavigationForm.FormKeyUp(Sender: TObject; var Key: Word;
  var KeyChar: Char; Shift: TShiftState);
begin

  //如果是硬件的返回按钮
  if Key = vkHardwareBack then
  begin

    //在特定的页面上,返回上一个页面
    if (TabControl1.ActiveTab = TabItem1) and (TabControl2.ActiveTab = TabItem6) then
    begin

      //指定页面
      TabControl2.ActiveTab = TabItem5;

      //已处理键盘的键值
      Key := 0;
    end;
  end;
end;

 


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
delphi:ExceptionEInvalidPointerinmoduleProject1.exe发布时间:2022-07-18
下一篇:
Delphi 的内存操作函数(5): 复制内存发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap