Dynamic Footer Buttons For Desktop And Mobile

Embarcadero

il y a 2 ans

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?

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Layouts,
  FMX.StdCtrls, FMX.Effects, FMX.Controls.Presentation;

type
  TForm1 = class(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);
begin
  Label2.Text := TButton(Sender).Text;
end;

<strong>procedure TForm1.FormResize(Sender: TObject);
begin
  Button1.Width := Trunc(Layout1.Width/3);
  Button2.Width := Button1.Width;
  Button3.Width := Button1.Width;
end;</strong>

end.

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;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Layout1: TLayout;

Label2: TLabel;

procedure FormResize(Sender: TObject);

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;

procedure TForm1.FormResize(Sender: TObject);

commencer

Button1.Width := Trunc(Layout1.Width/3);

Button2.Width := Button1.Width;

Button3.Width := Button1.Width;

end;

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.