//当用户点击颜色对话框上的“取消”按钮的时候不要
将edtPcolorCur的color属性给改变呀
procedure TFormSetting.Button4Click(Sender: TObject);
begin
colorDialog1.Execute;
edtPcolorCur.Color := colorDialog1.Color;
end;
将edtPcolorCur的color属性给改变呀
procedure TFormSetting.Button4Click(Sender: TObject);
begin
colorDialog1.Execute;
edtPcolorCur.Color := colorDialog1.Color;
end;
begin
if colorDialog1.Execute then
edtPcolorCur.Color := colorDialog1.Color;
end;