u_web_no.pas

以前写的一个利用P2P 技术的一个通讯的例子。里面用到了 DBISAM 、INDY 控件。

unit U_WEB_NO;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, TFlatEditUnit, TFlatButtonUnit, Grids, BaseGrid,
   AdvGrid, ComCtrls, ExtCtrls;

type
   TF_WEB_NO = class(TForm)
      PN_CAPTION: TPanel;
      ANI_FIND: TAnimate;
      SG_JL: TAdvStringGrid;
      PN_NO: TPanel;
      LB_SER: TLabel;
      BN_OK: TFlatButton;
      BN_CANL: TFlatButton;
      ED_ZH: TFlatEdit;
      BN_LOOK: TFlatButton;
      BN_SER: TFlatButton;
      BN_CF: TFlatButton;
      BN_PRN: TFlatButton;
      BN_EXCEL: TFlatButton;
      bn_dw: TFlatButton;
      BN_OTH: TFlatButton;
      procedure FormCreate(Sender: TObject);
      procedure BN_CANLClick(Sender: TObject);
      procedure FormKeyDown(Sender: TObject; var Key: Word;
         Shift: TShiftState);
   private
      { Private declarations }
   public
      { Public declarations }
   end;

var
   F_WEB_NO: TF_WEB_NO;

implementation
uses pub_program, u_web_main;
{$R *.dfm}

procedure TF_WEB_NO.FormCreate(Sender: TObject);
begin
   left := f_web_main.MX_BAR.Width; // .0;
   top := gint_top;
   width := gint_width - f_web_main.MX_BAR.Width;
   height := gint_height;
   clearall(sender);
end;

procedure TF_WEB_NO.BN_CANLClick(Sender: TObject);
begin
   close;
end;

procedure TF_WEB_NO.FormKeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
begin
   case key of
      VK_ESCAPE: bn_canlclick(sender);
   end;
end;

end.