Do you want to add some pizzazz to your application? Check out our Footer Buttons Demo! This handy cross-platform tool can show you how to create 3 buttons that stick or float at the bottom of your app. No matter what operating system you’re using – Android, iOS, macOS, Windows, or Linux – our Footer Buttons Demo will work seamlessly. And because it’s built in Delphi, you can be sure it’s a high-quality product. So why not give it a try today and see how easy and fun it is to use our Footer Buttons Demo!
Download the full cross-platform Footer Buttons Demo source code on Github.
This demo is part of over 100 cross-platform demos with everything from camera demos to emoji demos and painting demos.
Table des matières
What is a footer button in software development?
A footer button is a user interface element that is typically placed at the bottom of a page or screen. Footer buttons can be used for various purposes, such as to save data or to submit a form. In software development, footer buttons are often used as a way to provide navigation between pages or screens. For example, a footer button may be used to return to the home screen or to open a menu. Footer buttons are also commonly used to display information, such as the current page number or the total number of pages.
Screenshot
What does the source code look like?
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 |
unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Des classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Layouts, FMX.StdCtrls, FMX.Effects, FMX.Controls.Presentation; type TForm1 = classe(TForm) MaterialOxfordBlueSB: TStyleBook; ToolBar1: TToolBar; ShadowEffect4: TShadowEffect; Label1: TLabel; <strong> Button1: TButton; Button2: TButton; Button3: TButton; Layout1: TLayout;</strong> Label2: TLabel; <strong> procedure FormResize(Sender: TObject);</strong> procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.fmx} procedure TForm1.Button1Click(Sender: TObject); commencer Label2.Text := TButton(Sender).Text; end; <strong>procedure TForm1.FormResize(Sender: TObject); commencer Button1.Width := Trunc(Layout1.Width/3); Button2.Width := Button1.Width; Button3.Width := Button1.Width; end;</strong> end. |
Ready to learn how to program cross-platform apps like this?
Sign up for the Coding Boot Camp 2022 to learn to program. Topics include: Games, JavaScript, Web, Python, SQL, Databases, iOS, MacOS, Android, Mobile, Linux, Windows, Desktop, Server, and Arduino.