android: Adds dialogs and improves the error handling

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1825 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2011-08-22 14:53:18 +00:00
parent 9300c23a79
commit f92b46fd23
6 changed files with 322 additions and 129 deletions
--- a/examples/androidlcl/mainform.pas
+++ b/examples/androidlcl/mainform.pas
@@ -72,7 +72,13 @@ end;

 procedure TForm2.Button2Click(Sender: TObject);
 begin
+  {$ifdef LCLAndroid}
+  vAndroidPipesComm.Log('TForm2.Button2Click');
+  {$endif}
  InputBox('Caption', 'Prompt', 'Default');
+  {$ifdef LCLAndroid}
+  vAndroidPipesComm.Log('TForm2.Button2Click');
+  {$endif}
 end;

 initialization