updownfrm.pas

来自「关于利用DELPHI来进行企业级方案解决的著作的附书源码」· PAS 代码 · 共 43 行

unit UpDownFrm;

interface

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

type
  TUpDownForm = class(TForm)
    RedUpDown: TUpDown;
    RedEdit: TLabeledEdit;
    GreenUpDown: TUpDown;
    GreenEdit1: TLabeledEdit;
    BlueUpDown: TUpDown;
    BlueEdit: TLabeledEdit;
    procedure RedUpDownChanging(Sender: TObject; var AllowChange: Boolean);
    procedure RedEditChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  UpDownForm: TUpDownForm;
implementation

{$R *.dfm}

procedure TUpDownForm.RedUpDownChanging(Sender: TObject;
  var AllowChange: Boolean);
begin
 UpDownForm.Color:=RGB(RedUpDown.Position,GreenUpDown.Position,BlueUpDown.Position);
end;

procedure TUpDownForm.RedEditChange(Sender: TObject);
begin
 UpDownForm.Color:=RGB(RedUpDown.Position,GreenUpDown.Position,BlueUpDown.Position);
end;

end.