文档章节

演示控件的 Anchors 属性

涂孟超
 涂孟超
发布于 2014/09/26 15:35
字数 310
阅读 2
收藏 0
点赞 0
评论 0
本例效果图:



准备工作: 新建工程后, 在窗体上添加一个 Panel 和四个 CheckBox; 双击它们产生默认事件, 然后全选代码, 用下面代码覆盖.
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure Panel1Click(Sender: TObject);
    procedure SetAnchor(Sender: TObject; ak: TAnchors); {自定义的过程}
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{给 CheckBox 做一个公用过程}
procedure TForm1.SetAnchor(Sender: TObject; ak: TAnchors);
begin
  with Panel1 do if TCheckBox(Sender).Checked then
    Anchors := Anchors + ak
  else
    Anchors := Anchors - ak;
end;

{初始化}
procedure TForm1.FormCreate(Sender: TObject);
begin
  Panel1.Anchors := [akLeft, akTop]; {这本来就是默认值}

  CheckBox1.Checked := True;
  CheckBox2.Checked := True;

  CheckBox1.Caption := 'akLeft';
  CheckBox2.Caption := 'akTop';
  CheckBox3.Caption := 'akRight';
  CheckBox4.Caption := 'akBottom';

  Panel1.ParentBackground := False;
  Panel1.Color := clYellow;
end;

{变化窗体大小}
procedure TForm1.Panel1Click(Sender: TObject);
const
  s1 = '点击放大窗体';
  s2 = '点击缩小窗体';
begin
  if Panel1.Caption = s2 then
  begin
    Panel1.Caption := s1;
    Width := Round(Width / 1.5);
    Height := Round(Height / 1.5);
  end
  else
  begin
    Panel1.Caption := s2;
    Width := Round(Width * 1.5);
    Height := Round(Height * 1.5);
  end;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  SetAnchor(Sender, [akLeft]);
end;

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
  SetAnchor(Sender, [akTop]);
end;

procedure TForm1.CheckBox3Click(Sender: TObject);
begin
  SetAnchor(Sender, [akRight]);
end;

procedure TForm1.CheckBox4Click(Sender: TObject);
begin
  SetAnchor(Sender, [akBottom]);
end;

end.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/04/29/1176839.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2004
码字总数 14107
作品 0
深圳
程序员
qml implictWidth与width 使用思考

Qml的Item作为其他控件的根,属性里面提供了ImplicitWidth和imlicitHeight与width和height属性。根据解释,implicit是自然尺寸大小,默认为0,其目的是如果没有设置width和height的时候会使用...

zhouhb1 ⋅ 2014/04/26 ⋅ 0

C#程序员整理的Unity 3D笔记(十五):Unity 3D UI控件至尊–NGUI

目前,UGUI问世不过半年(其随着Unity 4.6发布问世),而市面上商用的产品,UI控件的至尊为NGUI:影响力和广度(可搜索公司招聘Unity3D,常常能看到对NGUI关键词)。 NGUI虽然不是Unity官方原生...

王文刚_AR_VR ⋅ 2015/03/10 ⋅ 4

从零开始学基于ARKit的Unity3d游戏开发系列16

在本课的内容中,我们将继续对ShootEnemy.cs脚本中的代码进行一些优化和完善工作。首先给武器添加一些弹药。 在Unity编辑器的Hierarchy视图中找到Canvas对象,然后右键单击,选择UI-Image,添...

王寒 ⋅ 01/05 ⋅ 0

Android中visibility属性VISIBLE、INVISIBLE、GONE的区别

在Android开发中,大部分控件都有visibility这个属性,其属性有3个分别为“visible ”、“invisible”、“gone”。主要用来设置控制控件的显示和隐藏。有些人可能会疑惑Invisible和gone是有什...

fjabing ⋅ 2014/02/08 ⋅ 0

Windows Phone 7 - 控件的基本使用

原文地址:http://create.msdn.com/en-US/education/quickstarts/UsingControls 【译 者注:这篇文章是翻译自微软官方的WP7 QuickStart的第三篇,讲述WP下控件的基本使用方法。部分内容加入了...

虫虫 ⋅ 2012/02/21 ⋅ 0

Python 图形用户界面

1、GUI基本概念 1)GUI(Graphic User Interface) 图形用户界面 2)图形显示有:图素法、像素法 3)图素法:矢量图,以图形对象为基本元素组成的图形,如矩形圆形 4)像素法:标量图,以像素...

learn_more ⋅ 2015/11/29 ⋅ 0

Qt Quick里的图形效果——混合(Blend)

Blend 元素用指定的模式混合两个 Item 。在我们使用 QPainter 绘图时,支持 Composition Modes ,Blend 干的事儿与此类似。 使用 Blend 需要: snippetid="579325" snippetfilename="blog20...

foruok ⋅ 2015/01/14 ⋅ 0

一句代码实现批量数据绑定[上篇]

对于一个以数据处理为主的应用中的UI层,我们往往需要编写相当多的代码去实现数据绑定。如果界面上的控件和作为数据源的实体类型之间存储某种约定的映射关系,我们就可以实现批量的数据绑定。...

长平狐 ⋅ 2012/09/04 ⋅ 0

BCGSoft Demo示例展示:文档/视图示例

BCGSoft公司的BCGControlBar产品是全球最优秀的MFC界面类库,功能强大,显示丰富,在国际上享有盛誉,并屡次获奖,是VC界面设计的必备首选! 本文中的示例演示了如何通过库利用文档/视图结构...

Miss_Hello_World ⋅ 2016/08/05 ⋅ 0

Windows Phone 7 - 控件的不同类型

原文地址:http://create.msdn.com/en-US/education/quickstarts/TypesofControls 【译 者注:这篇文章是翻译自微软官方的WP7 QuickStart的第四篇,讲述WP下控件的不同的类型。部分内容加入了...

虫虫 ⋅ 2012/02/21 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

Jenkins实践3 之脚本

#!/bin/sh# export PROJ_PATH=项目路径# export TOMCAT_PATH=tomcat路径killTomcat(){pid=`ps -ef | grep tomcat | grep java|awk '{print $2}'`echo "tom...

晨猫 ⋅ 今天 ⋅ 0

Spring Bean的生命周期

前言 Spring Bean 的生命周期在整个 Spring 中占有很重要的位置,掌握这些可以加深对 Spring 的理解。 首先看下生命周期图: 再谈生命周期之前有一点需要先明确: Spring 只帮我们管理单例模...

素雷 ⋅ 今天 ⋅ 0

zblog2.3版本的asp系统是否可以超越卢松松博客的流量[图]

最近访问zblog官网,发现zlbog-asp2.3版本已经进入测试阶段了,虽然正式版还没有发布,想必也不久了。那么作为aps纵横江湖十多年的今天,blog2.2版本应该已经成熟了,为什么还要发布这个2.3...

原创小博客 ⋅ 今天 ⋅ 0

聊聊spring cloud的HystrixCircuitBreakerConfiguration

序 本文主要研究一下spring cloud的HystrixCircuitBreakerConfiguration HystrixCircuitBreakerConfiguration spring-cloud-netflix-core-2.0.0.RELEASE-sources.jar!/org/springframework/......

go4it ⋅ 今天 ⋅ 0

二分查找

二分查找,也称折半查找、二分搜索,是一种在有序数组中查找某一特定元素的搜索算法。搜素过程从数组的中间元素开始,如果中间元素正好是要查找的元素,则搜素过程结束;如果某一特定元素大于...

人觉非常君 ⋅ 今天 ⋅ 0

VS中使用X64汇编

需要注意的是,在X86项目中,可以使用__asm{}来嵌入汇编代码,但是在X64项目中,再也不能使用__asm{}来编写嵌入式汇编程序了,必须使用专门的.asm汇编文件来编写相应的汇编代码,然后在其它地...

simpower ⋅ 今天 ⋅ 0

ThreadPoolExecutor

ThreadPoolExecutor public ThreadPoolExecutor(int corePoolSize, int maximumPoolSize, long keepAliveTime, ......

4rnold ⋅ 昨天 ⋅ 0

Java正无穷大、负无穷大以及NaN

问题来源:用Java代码写了一个计算公式,包含除法和对数和取反,在页面上出现了-infinity,不知道这是什么问题,网上找答案才明白意思是负的无穷大。 思考:为什么会出现这种情况呢?这是哪里...

young_chen ⋅ 昨天 ⋅ 0

前台对中文编码,后台解码

前台:encodeURI(sbzt) 后台:String param = URLDecoder.decode(sbzt,"UTF-8");

west_coast ⋅ 昨天 ⋅ 0

实验楼—MySQL基础课程-挑战3实验报告

按照文档要求创建数据库 sudo sercice mysql startwget http://labfile.oss.aliyuncs.com/courses/9/createdb2.sqlvim /home/shiyanlou/createdb2.sql#查看下数据库代码 代码创建了grade......

zhangjin7 ⋅ 昨天 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部