win32_makefile/gui_delphi/pbkedit.pas

   1 unit pbkedit;\r
   2 \r
   3 interface\r
   4 \r
   5 uses\r
   6   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,\r
   7   Dialogs, StdCtrls, ComCtrls, MainUnit, GnokiiAPI, Menus;\r
   8 \r
   9 type\r
  10   TPbkForm = class(TForm)\r
  11     ListView1: TListView;\r
  12     Button1: TButton;\r
  13     Button2: TButton;\r
  14     procedure Button1Click(Sender: TObject);\r
  15     procedure Button2Click(Sender: TObject);\r
  16   private\r
  17     { Private declarations }\r
  18   public\r
  19     { Public declarations }\r
  20   end;\r
  21 \r
  22 var\r
  23   PbkForm: TPbkForm;\r
  24 \r
  25 implementation\r
  26 \r
  27 {$R *.dfm}\r
  28 \r
  29 procedure TPbkForm.Button1Click(Sender: TObject);\r
  30 begin\r
  31   Pbkform.Close;\r
  32 end;\r
  33 \r
  34 procedure TPbkForm.Button2Click(Sender: TObject);\r
  35 begin\r
  36   Pbkform.Close;\r
  37 end;\r
  38 \r
  39 end.\r