Category

Development Platform
Home > SourceCode/Document > Delphi VCL > View Code
TestProF.pas
Package: delphi.rar　[view]
Upload User: fh681027
Upload Date: 2022-07-23
Package Size: 1959k
Code Size: 2k
Category:

Delphi VCL

Development Platform:

Delphi

TestProF.pas：Code Content
  1. unit TestProF;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, Spin, NumIntf;
  9. // redeclare the interface
  10. const
  11.   Class_NumPropServer: TGUID =
  12.     '{B165F7A1-DDF9-11D1-B9F1-004845400FAA}';
  14. type
  15.   TForm1 = class(TForm)
  16.     SpinEdit1: TSpinEdit;
  17.     Button1: TButton;
  18.     Button2: TButton;
  19.     SpinEdit2: TSpinEdit;
  20.     Button3: TButton;
  21.     Button4: TButton;
  22.     Label1: TLabel;
  23.     Label2: TLabel;
  24.     Button5: TButton;
  25.     procedure FormCreate(Sender: TObject);
  26.     procedure Button1Click(Sender: TObject);
  27.     procedure Button2Click(Sender: TObject);
  28.     procedure Button3Click(Sender: TObject);
  29.     procedure Button4Click(Sender: TObject);
  30.     procedure Button5Click(Sender: TObject);
  31.   private
  32.     Num1, Num2: INumberProp;
  33.   public
  34.     { Public declarations }
  35.   end;
  37. var
  38.   Form1: TForm1;
  40. implementation
  42. {$R *.DFM}
  44. uses
  45.   ComObj;
  47. procedure TForm1.FormCreate(Sender: TObject);
  48. begin
  49.   // create first object
  50.   Num1 := CreateComObject (Class_NumPropServer)
  51.     as INumberProp;
  52.   Num1.Value := SpinEdit1.Value;
  53.   Label1.Caption := 'Num1: ' + IntToStr (Num1.Value);
  54.   Button1.Enabled := True;
  55.   Button2.Enabled := True;
  57.   // create second object
  58.   Num2 := CreateComObject (Class_NumPropServer)
  59.     as INumberProp;
  60.   Label2.Caption := 'Num2: ' + IntToStr (Num2.Value);
  61.   Button3.Enabled := True;
  62.   Button4.Enabled := True;
  63. end;
  65. procedure TForm1.Button1Click(Sender: TObject);
  66. begin
  67.   // change
  68.   Num1.Value := SpinEdit1.Value;
  69.   Label1.Caption := 'Num1: ' + IntToStr (Num1.Value);
  70. end;
  72. procedure TForm1.Button2Click(Sender: TObject);
  73. begin
  74.   // increase
  75.   Num1.Increase;
  76.   Label1.Caption := 'Num1: ' + IntToStr (Num1.Value);
  77. end;
  79. procedure TForm1.Button3Click(Sender: TObject);
  80. begin
  81.   Num2.Value := SpinEdit2.Value;
  82.   Label2.Caption := 'Num2: ' + IntToStr (Num2.Value);
  83. end;
  85. procedure TForm1.Button4Click(Sender: TObject);
  86. begin
  87.   Num2.Increase;
  88.   Label2.Caption := 'Num2: ' + IntToStr (Num2.Value);
  89. end;
  91. procedure TForm1.Button5Click(Sender: TObject);
  92. var
  93.   Num3: INumberProp;
  94. begin
  95.   // create a new temporary COM object
  96.   Num3 := CreateComObject (Class_NumPropServer)
  97.     as INumberProp;
  98.   Num3.Value := 100;
  99.   Num3.Increase;
  100.   ShowMessage ('Num3: ' + IntToStr (Num3.Value));
  101. end;
  103. end.