文档章节

演示控件的 Anchors 属性

涂孟超
 涂孟超
发布于 2014/09/26 15:35
字数 310
阅读 2
收藏 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
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
qml implictWidth与width 使用思考

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

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

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

润物互动技术团队博客
2015/03/10
0
4
从零开始学基于ARKit的Unity3d游戏开发系列16

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

王寒
01/05
0
0
Windows Phone 7 - 控件的基本使用

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

虫虫
2012/02/21
210
0
Android中visibility属性VISIBLE、INVISIBLE、GONE的区别

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

fjabing
2014/02/08
0
0

没有更多内容

加载失败,请刷新页面

加载更多

node安装cnpm

npm install -g cnpm --registry=https://registry.npm.taobao.org

笑丶笑
55分钟前
3
0
OSChina 周三乱弹 —— 夜半回家,推门不动

Osc乱弹歌单(2018)请戳(这里) 【今日歌曲】 @胖达panda :分享陶晶莹/张雨生的单曲《我期待》 《我期待》- 陶晶莹/张雨生 手机党少年们想听歌,请使劲儿戳(这里) @cc_z :熬夜一时爽,...

小小编辑
今天
967
15
验证码

response生成验证码 验证码的作用:防止恶意注册、攻击等 网站上看到的验证码,实际上都是一些图片,而这些图片都是程序(Servlet)生成的! package day19.test; import java.awt.Color; i...

码农屌丝
今天
1
0
day147-2018-11-14-英语流利阅读-待学习

《毒液》刚刚上映,创造漫威宇宙的人却走了 雪梨 2018-11-14 1.今日导读 中国的金庸创造了侠义英雄和江湖传奇,而大洋彼岸的斯坦·李也同样创造了一个绚烂璀璨的漫威宇宙,他构思的每个超级英...

飞鱼说编程
今天
28
0
CentOS 安装PHP5和PHP7

安装PHP5 下载解压二进制包 [root@test-a src]# cd /usr/local/src/[root@test-a src]# wget http://cn2.php.net/distributions/php-5.6.32.tar.bz2[root@test-a src]# tar jxvf php-5.6......

野雪球
今天
6
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部