Develop and Download Open Source Software

bad-mp3player

Browse Subversion Repository

/[bad-mp3player]/Unit2.pas

Diff of /Unit2.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1 by yamat0jp, Mon Jul 27 13:44:42 2015 UTC revision 2 by yamat0jp, Tue Jul 28 08:41:38 2015 UTC
# Line 16  type Line 16  type
16      procedure SpeedButton1Click(Sender: TObject);      procedure SpeedButton1Click(Sender: TObject);
17      procedure FormCreate(Sender: TObject);      procedure FormCreate(Sender: TObject);
18      procedure FormDestroy(Sender: TObject);      procedure FormDestroy(Sender: TObject);
19        procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
20    private    private
21      { private 宣言 }      { private 宣言 }
22    public    public
# Line 31  implementation Line 32  implementation
32    
33  uses Unit1;  uses Unit1;
34    
35    procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
36    begin
37      if Sender <> Form1 then
38      begin
39        CanClose:=false;
40        Hide;
41      end;
42    end;
43    
44  procedure TForm2.FormCreate(Sender: TObject);  procedure TForm2.FormCreate(Sender: TObject);
45  var  var
46    s: TIniFile;    s: TIniFile;
Legend:
Removed from v.1  
changed lines
  Added in v.2
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help