Category

Development Platform
Home > SourceCode/Document > Internet-Socket-Network > Remote Control > View Code
about.pas
Package: gf135s.zip　[view]
Upload User: zhuoer
Upload Date: 2007-01-08
Package Size: 128k
Code Size: 3k
Category:

Remote Control

Development Platform:

Delphi

about.pas：Code Content
  1. unit about;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Buttons, ExtCtrls, StdCtrls, ShellAPI;
  9. type
  10.   TAboutForm = class(TForm)
  11.     Label1: TLabel;
  12.     SpeedButton2: TSpeedButton;
  13.     Label2: TLabel;
  14.     lblWWW: TLabel;
  15.     procedure SpeedButton2Click(Sender: TObject);
  16.     procedure SpeedButton3Click(Sender: TObject);
  17.     procedure lblWWWMouseMove(Sender: TObject; Shift: TShiftState; X,
  18.       Y: Integer);
  19.     procedure Label2MouseMove(Sender: TObject; Shift: TShiftState; X,
  20.       Y: Integer);
  21.     procedure Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  22.       Y: Integer);
  23.     procedure SpeedButton1MouseMove(Sender: TObject; Shift: TShiftState; X,
  24.       Y: Integer);
  25.     procedure SpeedButton3MouseMove(Sender: TObject; Shift: TShiftState; X,
  26.       Y: Integer);
  27.     procedure SpeedButton2MouseMove(Sender: TObject; Shift: TShiftState; X,
  28.       Y: Integer);
  29.     procedure lblWWWClick(Sender: TObject);
  30.     procedure CheckBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  31.       Y: Integer);
  32.     procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  33.       Y: Integer);
  34.   private
  35.     { Private declarations }
  36.   public
  37.     { Public declarations }
  38.   end;
  40. var
  41.   AboutForm: TAboutForm;
  43. implementation
  45. uses main;
  47. {$R *.DFM}
  50. procedure TAboutForm.SpeedButton2Click(Sender: TObject);
  51. begin
  52.  aboutform.Close;
  53. end;
  54. procedure TAboutForm.SpeedButton3Click(Sender: TObject);
  55. begin
  56.  clientform.clientsocket.socket.sendtext ('ver');
  57. end;
  60. procedure TAboutForm.lblWWWMouseMove(Sender: TObject; Shift: TShiftState;
  61.   X, Y: Integer);
  62. begin
  63.  lblWWW.Font.Style:=[fsUnderline];
  64. end;
  66. procedure TAboutForm.Label2MouseMove(Sender: TObject; Shift: TShiftState;
  67.   X, Y: Integer);
  68. begin
  69.  lblWWW.Font.Style:=[];
  70. end;
  72. procedure TAboutForm.Label1MouseMove(Sender: TObject; Shift: TShiftState;
  73.   X, Y: Integer);
  74. begin
  75.   lblWWW.Font.Style:=[];
  76. end;
  78. procedure TAboutForm.SpeedButton1MouseMove(Sender: TObject;
  79.   Shift: TShiftState; X, Y: Integer);
  80. begin
  81.   lblWWW.Font.Style:=[];
  82. end;
  84. procedure TAboutForm.SpeedButton3MouseMove(Sender: TObject;
  85.   Shift: TShiftState; X, Y: Integer);
  86. begin
  87.   lblWWW.Font.Style:=[];
  88. end;
  90. procedure TAboutForm.SpeedButton2MouseMove(Sender: TObject;
  91.   Shift: TShiftState; X, Y: Integer);
  92. begin
  93.   lblWWW.Font.Style:=[];
  94. end;
  96. procedure TAboutForm.lblWWWClick(Sender: TObject);
  97. begin
  98.  ShellExecute (0, 'open', 'http://www.gfailure.da.ru', nil, 'c:/', 1);
  99. end;
  100. procedure TAboutForm.CheckBox1MouseMove(Sender: TObject;
  101.   Shift: TShiftState; X, Y: Integer);
  102. begin
  103.   lblWWW.Font.Style:=[];
  104. end;
  106. procedure TAboutForm.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  107.   Y: Integer);
  108. begin
  109.   lblWWW.Font.Style:=[];
  110. end;
  112. end.