Delphi動態利用ColorDialog變更元件顏色

利用 ColorToString轉成文字(可存在資料庫中);再透過StringToColor賦值給物件的Color屬性就可以了

uses Vcl.Graphics;

if colordialog1.Execute then begin    ;
form1.Color := stringtocolor(colortostring(colordialog1.color));
end;

我要留言

留言

發表迴響

你的電子郵件位址並不會被公開。