udemutil.pas

来自「delphi多层应用系统 delphi多层应用系统」· PAS 代码 · 共 24 行

unit udemutil;

interface

Uses Classes,Graphics,Dialogs;

Function EditColor(AOwner:TComponent; AColor:TColor):TColor;

implementation

Function EditColor(AOwner:TComponent; AColor:TColor):TColor;
Begin
  With TColorDialog.Create(AOwner) do
  try
    Color:=AColor;
    if Execute then AColor:=Color;
  finally
    Free;
  end;
  result:=AColor;
end;

end.