デスクトップおよびモバイル向け動的フッターボタン

エンバカデロ

2年前

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.

このデモは、カメラデモ、絵文字デモ、ペイントデモなど、100以上のクロスプラットフォームデモの一部です。

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.

画面ショット

デモのソースコード

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.クラス, 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;

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);

begin

Label2.Text := TButton(Sender).Text;

end;

procedure TForm1.FormResize(Sender: TObject);

begin

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

Button2.Width := Button1.Width;

Button3.Width := Button1.Width;

end;

end.

クロスプラットフォームアプリのプログラミング手法を学ぶには

今すぐ Coding Boot Camp 2022に登録してください。ゲーム、JavaScript、Web、Python、SQL、データベース、iOS、MacOS、Android、モバイル、Linux、Windows、デスクトップ、サーバー、Arduinoなど、プログラミングに関するさまざまなトピックを学ぶことができます。