改用Speedbutton按钮，可带背景图（PNG格式）

MainForm.pas

@@ -14,8 +14,6 @@ type
     HeaderLabel: TLabel;
     ScaledLayout1: TScaledLayout;
     Label2: TLabel;
-    Button2: TButton;
-    Button1: TButton;
     Edit2: TEdit;
     Edit1: TEdit;
     Label1: TLabel;
@@ -26,8 +24,9 @@ type
     Label3: TLabel;
     RoundRect1: TRoundRect;
     RoundRect2: TRoundRect;
-    procedure Button1Click(Sender: TObject);
-    procedure Button2Click(Sender: TObject);
+    SpeedButton1: TSpeedButton;
+    StyleBook1: TStyleBook;
+    SpeedButton2: TSpeedButton;
     procedure Button3Click(Sender: TObject);
     procedure Button4Click(Sender: TObject);
     procedure Button5Click(Sender: TObject);
@@ -36,6 +35,8 @@ type
     procedure DisplayRationale(Sender: TObject; const APermissions: TArray<string>; const APostRationaleProc: TProc);
     procedure ComboBox1Change(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure SpeedButton1Click(Sender: TObject);
+    procedure SpeedButton2Click(Sender: TObject);
 
   private
     { Private declarations }
@@ -61,28 +62,6 @@ uses
 var
   urlstr:string;
 
-procedure TToolsForm.Button1Click(Sender: TObject);   //确定按钮
-var
-    Intent:JIntent;
-
-begin
-
-
-  if edit1.text='www.baidu.com' then
-    urlstr:=edit1.text+'/s?&wd='+edit2.text
-  else
-    urlstr:=edit1.text;
-
-  Intent := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_VIEW,TJnet_Uri.JavaClass.parse(StringToJString('https://'+ urlstr)));
-  Intent.setPackage(StringToJString('com.android.browser')); //设置包名；
-  TAndroidHelper.Activity.startActivity(Intent);
-end;
-
-procedure TToolsForm.Button2Click(Sender: TObject);    //清空按钮
-begin
-   edit1.text:='';
-   edit2.text:='';
-end;
 
 procedure TToolsForm.Button3Click(Sender: TObject);    //健康码
 var
@@ -145,6 +124,29 @@ begin
 
 end;
 
+procedure TToolsForm.SpeedButton1Click(Sender: TObject);
+var
+    Intent:JIntent;
+
+begin
+
+
+  if edit1.text='www.baidu.com' then
+    urlstr:=edit1.text+'/s?&wd='+edit2.text
+  else
+    urlstr:=edit1.text;
+
+  Intent := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_VIEW,TJnet_Uri.JavaClass.parse(StringToJString('https://'+ urlstr)));
+  Intent.setPackage(StringToJString('com.android.browser')); //设置包名；
+  TAndroidHelper.Activity.startActivity(Intent);
+end;
+
+procedure TToolsForm.SpeedButton2Click(Sender: TObject);
+begin
+   edit1.text:='';
+   edit2.text:='';
+end;
+
 procedure RequestPermissionsResult(Sender: TObject; const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>);
 begin
 

MyDelphi.dproj

@@ -342,23 +342,23 @@
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
-                <DeployFile LocalName="Android64\Debug\colors.xml" Configuration="Debug" Class="Android_Colors">
+                <DeployFile LocalName="$(BDS)\bin\Artwork\Android\FM_NotificationIcon_24x24.png" Configuration="Debug" Class="Android_NotificationIcon24">
                     <Platform Name="Android64">
+                        <RemoteName>ic_notification.png</RemoteName>
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
-                <DeployFile LocalName="Android64\Debug\styles.xml" Configuration="Debug" Class="AndroidSplashStyles">
+                <DeployFile LocalName="Android64\Debug\AndroidManifest.xml" Configuration="Debug" Class="ProjectAndroidManifest">
                     <Platform Name="Android64">
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
-                <DeployFile LocalName="$(BDS)\bin\Artwork\Android\FM_NotificationIcon_24x24.png" Configuration="Debug" Class="Android_NotificationIcon24">
+                <DeployFile LocalName="Android64\Debug\colors.xml" Configuration="Debug" Class="Android_Colors">
                     <Platform Name="Android64">
-                        <RemoteName>ic_notification.png</RemoteName>
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
-                <DeployFile LocalName="Android64\Debug\AndroidManifest.xml" Configuration="Debug" Class="ProjectAndroidManifest">
+                <DeployFile LocalName="Android64\Debug\styles.xml" Configuration="Debug" Class="AndroidSplashStyles">
                     <Platform Name="Android64">
                         <Overwrite>true</Overwrite>
                     </Platform>

mainform.LgXhdpiPh.fmx

@@ -74,22 +74,6 @@ inherited ToolsForm_LgXhdpiPh: TToolsForm_LgXhdpiPh
       TextSettings.Font.Size = 24.000000000000000000
       Text = #25628#32034':'
     end
-    inherited Button2: TButton
-      StyledSettings = [Family]
-      Position.X = 256.000000000000000000
-      Position.Y = 208.000000000000000000
-      TextSettings.Font.Family = 'SimSun'
-      TextSettings.Font.Size = 24.000000000000000000
-      OnClick = Button2Click
-    end
-    inherited Button1: TButton
-      StyledSettings = [Family]
-      Position.X = 88.000000000000000000
-      Position.Y = 208.000000000000000000
-      TextSettings.Font.Family = 'SimSun'
-      TextSettings.Font.Size = 24.000000000000000000
-      OnClick = Button1Click
-    end
     inherited Edit2: TEdit
       Position.Y = 144.000000000000000000
       Size.Width = 306.000000000000000000
@@ -137,5 +121,14 @@ inherited ToolsForm_LgXhdpiPh: TToolsForm_LgXhdpiPh
       Position.Y = 8.000000000000000000
       Text = #25910#34255':'
     end
+    inherited SpeedButton1: TSpeedButton
+      Position.X = 88.000000000000000000
+      Position.Y = 216.000000000000000000
+      OnClick = SpeedButton1Click
+    end
+    inherited SpeedButton2: TSpeedButton
+      Position.X = 256.000000000000000000
+      Position.Y = 216.000000000000000000
+    end
   end
 end