5,388
社区成员
发帖
与我相关
我的任务
分享关于ColorDialog,菜问
ColorDialog1的默认Color属性为black;
学习程序中Shape1的默认Brush.Color为white;
在进行如下处理
====================================================
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ColorDialog1.Execute;
Shape1.Brush.Color := ColorDialog1.Color;
end;
=======================================================
弹出COLOR选取框，我点取消后，Shape1.Brush.Color 变成了black,请问如何进行判断，不改变Shape1的Color,既仍然是White?
学习程序中Shape1的默认Brush.Color为white;
在进行如下处理
====================================================
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ColorDialog1.Execute;
Shape1.Brush.Color := ColorDialog1.Color;
end;
=======================================================
弹出COLOR选取框，我点取消后，Shape1.Brush.Color 变成了black,请问如何进行判断，不改变Shape1的Color,既仍然是White?
...全文
请发表友善的回复…
发表回复
blessbird 2003-06-25
- 打赏
- 举报
谢了两位
gamaster 2003-06-25
- 打赏
- 举报
if ColorDialog1.Execute then
Shape1.Brush.Color := ColorDialog1.Color;
Shape1.Brush.Color := ColorDialog1.Color;
vicky__gao 2003-06-25
- 打赏
- 举报
由于你没有判断ColorDialog的结果，下面的就可以了
if ColorDialog1.Execute then
Shape1.Brush.Color := ColorDialog1.Color;
if ColorDialog1.Execute then
Shape1.Brush.Color := ColorDialog1.Color;
