Delphi控件源码

开发平台：

Delphi

MainForm.pas：源码内容

							unit MainForm;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls, ComServ;
type
  TServerForm = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    UpDown1: TUpDown;
    BtnColor: TButton;
    BtnShow: TButton;
    procedure Edit1Change(Sender: TObject);
    procedure BtnColorClick(Sender: TObject);
    procedure BtnShowClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    CurrentValue: Integer;
  protected
    procedure SetValue (NewValue: Integer);
  public
    property Value: Integer
      read CurrentValue write SetValue;
    procedure ChangeColor;
  end;
var
  ServerForm: TServerForm;
implementation
{$R *.DFM}
procedure TServerForm.Edit1Change(Sender: TObject);
begin
  CurrentValue := UpDown1.Position;
end;
procedure TServerForm.SetValue (NewValue: Integer);
begin
  if NewValue <> CurrentValue then
  begin
    CurrentValue := NewValue;
    UpDown1.Position := CurrentValue;
  end;
end;
procedure TServerForm.ChangeColor;
begin
  Color := RGB (
    Random (255), Random (255), Random (255));
end;
procedure TServerForm.BtnColorClick(Sender: TObject);
begin
  ChangeColor;
end;
procedure TServerForm.BtnShowClick(Sender: TObject);
begin
  ShowMessage (IntToStr (CurrentValue));
end;
procedure TServerForm.FormCreate(Sender: TObject);
begin
  if ComServer.StartMode = smStandalone then
    Caption := 'Stand Alone'
  else
    Caption := 'Server';
end;
end.

						