Shape的应用
来源:互联网 发布:ipad1软件下载 编辑:程序博客网 时间:2024/06/07 00:17
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
ColorDialog1: TColorDialog;
Shape1: TShape;
Button1: TButton;
Button2: TButton;
Button3: TButton;
BitBtn1: TBitBtn;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Shape1.Shape := stRectangle;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Shape1.Shape := stRoundRect;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Shape1.Shape := stEllipse;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
try
if ColorDialog1.Execute then
Shape1.Brush.Color := ColorDialog1.Color;
except
ShowMessage('颜色面板无法开启');
end;
end;
end.
- Shape的应用
- android shape 的应用
- shape的应用
- Android shape的应用
- 安卓中shape(形状)的应用
- android 自定义Drawable Shape 的应用
- Android Shape应用
- android开发之Selector与Shape的应用
- android shape的应用之画一条虚线
- android:shape的使用
- android:shape的使用
- android:shape的使用
- android:shape的使用
- android:shape的使用
- android:shape的使用
- android:shape的使用
- android:shape的使用
- android:shape的使用
- ARM的延时 LPC2100系列延时的研究
- .NET正则基础-正则委托
- 入门者如何学好sap
- HP本本系列介绍
- Java虚拟机原理(摘)
- Shape的应用
- 11个Javascript树形菜单
- 手机CPU-----智能手机CPU
- 简单计算器
- 复选框的值的提交 数组式
- 手机CPU 博主
- 微软“未来一瞥”:哈利波特式“预言家日报”将成现实
- Referenced Libraries消失不见后,如何找到?
- 贵川哪里的女孩最好?贵州人必看!