Develop and Download Open Source Software

bad-mp3player

Browse Subversion Repository

/[bad-mp3player]/Unit3.pas

Diff of /Unit3.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 3 by yamat0jp, Tue Jul 28 12:15:19 2015 UTC
# Line 9  uses Line 9  uses
9  type  type
10    TForm3 = class(TForm)    TForm3 = class(TForm)
11      Label1: TLabel;      Label1: TLabel;
12        Panel1: TPanel;
13        Button1: TButton;
14        procedure Button1Click(Sender: TObject);
15    private    private
16      { private 宣言 }      { private 宣言 }
17    public    public
# Line 21  var Line 24  var
24  implementation  implementation
25    
26  {$R *.fmx}  {$R *.fmx}
27    
28    uses Unit1;
29  {$R *.LgXhdpiTb.fmx ANDROID}  {$R *.LgXhdpiTb.fmx ANDROID}
30    
31    procedure TForm3.Button1Click(Sender: TObject);
32    begin
33      with Form1.th do
34      begin
35        Terminate;
36        WaitFor;
37        FreeAndNil(Form1.th);
38      end;
39      Hide;
40    end;
41    
42  end.  end.
Legend:
Removed from v.1  
changed lines
  Added in v.3
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help