untsettings.pas

来自「toi co the nghe nhac bang choung trinh n」· PAS 代码 · 共 38 行

unit untSettings;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TfrmSet = class(TForm)
    btnColor: TButton;
    ColorDialog1: TColorDialog;
    procedure btnColorClick(Sender: TObject);
    
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  frmSet: TfrmSet;

implementation

uses untMediaplayer;

{$R *.dfm}

procedure TfrmSet.btnColorClick(Sender: TObject);
begin
        colordialog1.Execute;
        frmmediaplayer.color:= colordialog1.Color;
        frmset.Close;
end;

end.