Delphi
关注
分享
扫一扫
XQQ524148626
这个作者很懒，什么都没留下…
展开
-
TShape TBitBtn TColorDialog
添加事件procedure TForm4.BitBtn1Click(Sender: TObject);begintry if ColorDialog1.Execute then Shape1.Brush.Color:=ColorDialog1.Color; except ShowMessage(颜色对话框显示失败.); end;en原创 2009-12-09 12:33:00 · 1054 阅读 · 1 评论 -
创建一个有对话框功能的窗口
在Delphi中打开Demo工程，并为主窗体增加一个TButton控件,创建 Form2对话框的目的是:当单击这个按钮时，可以调出Form2对话框 双击Form1上的Button1按钮控件，在事件处理过程中加入以下程序Form2.Show; 由于Form1窗体调用Form2窗体，所以必须在Form1的库单元程序中对引用Form2进行说明.在Unit1的Uses后原创 2009-12-22 19:25:00 · 571 阅读 · 0 评论