动态创建 Delphi 按钮的完整指南：基于配置文件的 `TGridPanel` 实现

于 2024-08-16 11:48:38 发布
阅读量550 收藏 10
点赞数 4
文章标签： delphi 动态 gridpanel 配置文件
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/winniezhang/article/details/141255793
版权

在 Delphi 开发中，我们经常需要根据不同的配置动态生成 UI 元素。本文将带你通过一个完整的示例，演示如何根据配置文件动态创建按钮，并将它们排列在一个 TGridPanel 中。每个按钮的标题、链接、颜色和大小都将从配置文件中读取。
“C:\myApp\delphi编写的shortcut工具\Project1.dproj”

项目背景

假设你正在开发一个应用程序，它需要根据用户指定的配置文件生成多个按钮。每个按钮不仅具有不同的标题，还会在点击时打开一个指定的链接。同时，按钮的颜色和大小也可以配置。我们将使用 TGridPanel 来自动排列这些按钮，使界面布局美观且具有响应性。

全部代码

unit Unit3;

interface

uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.ExtCtrls,
System.IniFiles, ShellAPI,Math;

type
  TForm3 = class(TForm)
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
    procedure CreateButtonsFromConfig;
    procedure ButtonClick(Sender: TObject);
  public

    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}
procedure TForm3.CreateButtonsFromConfig;
var
  Ini: TIniFile;
  SectionList: TStringList;
  GridPanel: TGridPanel;
  i, Rows, Cols: Integer;
  Button: TButton;
  Caption, Link: string;
  Color: TColor;
  Width, Height: Integer;
begin
  // 加载配置文件
  Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'buttons.ini');
  SectionList := TStringList.Create;
  try
    // 获取所有按钮的配置节
    Ini.ReadSections(SectionList);

    // 动态创建 GridPanel
    GridPanel := TGridPanel.Create(Self);
    GridPanel.Parent := Self;
    GridPanel.Align := alClient;
    GridPanel.RowCollection.Clear;
    GridPanel.ColumnCollection.Clear;

    // 计算行和列数
    Rows := Ceil(Sqrt(SectionList.Count));  // 根据按钮数量计算行列数
    Cols := Rows;

    // 创建 GridPanel 的行和列
    for i := 0 to Rows - 1 do
      GridPanel.RowCollection.Add;

    for i := 0 to Cols - 1 do
      GridPanel.ColumnCollection.Add;

    // 在每个单元格中添加按钮
    for i := 0 to SectionList.Count - 1 do
    begin
      // 读取按钮的属性
      Caption := Ini.ReadString(SectionList[i], 'Caption', 'Default');
      Link := Ini.ReadString(SectionList[i], 'Link', '');
      Color := StringToColor(Ini.ReadString(SectionList[i], 'Color', 'clBtnFace'));
      Width := Ini.ReadInteger(SectionList[i], 'Width', 100);
      Height := Ini.ReadInteger(SectionList[i], 'Height', 50);

      // 创建按钮
      Button := TButton.Create(Self);
      Button.Parent := GridPanel;
      Button.Caption := Caption;
//      Button.Width := Width;
//      Button.Height := Height;
      Button.Font.Color := Color;
      Button.Align:=alClient;
//      Button.fontColor := Color;
      Button.Tag := i;  // 用于区分不同的按钮
      Button.OnClick := ButtonClick;  // 分配点击事件

      // 将链接存储在按钮的 Hint 属性中，便于在事件中使用
      Button.Hint := Link;

      // 将按钮放置到 GridPanel 的单元格中
      GridPanel.ControlCollection.AddControl(Button, i mod Cols, i div Cols);
    end;
  finally
    Ini.Free;
    SectionList.Free;
  end;
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
CreateButtonsFromConfig;
end;

procedure TForm3.ButtonClick(Sender: TObject);
var
  Link: string;
begin
  Link := (Sender as TButton).Hint;
  if Link <> '' then
    ShellExecute(0, 'open', PChar(Link), nil, nil, SW_SHOWNORMAL);
end;
end.
准备工作

我们首先需要创建一个简单的 .ini 配置文件，其中包含每个按钮的配置信息：

配置文件示例 (buttons.ini)
[Button1]
Caption=Google
Link=https://www.google.com
Color=clRed
Width=100
Height=50

[Button2]
Caption=YouTube
Link=https://www.youtube.com
Color=clBlue
Width=120
Height=60

[Button3]
Caption=OpenAI
Link=https://www.openai.com
Color=clGreen
Width=150
Height=70

这个配置文件定义了三个按钮，每个按钮的标题、链接、颜色、宽度和高度都可以在文件中轻松配置。

实现步骤

  1. 创建 Delphi 项目：

    • 在 Delphi IDE 中创建一个新的 VCL Forms Application 项目。
    • 将 FormCreate 事件与我们的核心函数 CreateButtonsFromConfig 关联。

  2. 动态创建 TGridPanel 和按钮：

    • 通过 TGridPanel 控件将按钮自动排列在网格中。
    • 从配置文件中读取按钮的属性并动态创建按钮。

  3. 实现按钮点击事件：

    • 在点击按钮时，通过调用 ShellExecute 函数打开与按钮相关联的链接。
代码实现

以下是完整的 Delphi 代码示例：

uses
  System.IniFiles, ShellAPI, Vcl.ExtCtrls, Vcl.StdCtrls, System.SysUtils, Vcl.Graphics, Math;

procedure TForm1.CreateButtonsFromConfig;
var
  Ini: TIniFile;
  SectionList: TStringList;
  GridPanel: TGridPanel;
  i, Rows, Cols: Integer;
  Button: TButton;
  Caption, Link: string;
  Color: TColor;
  Width, Height: Integer;
begin
  // 加载配置文件
  Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'buttons.ini');
  SectionList := TStringList.Create;
  try
    // 获取所有按钮的配置节
    Ini.ReadSections(SectionList);

    // 动态创建 GridPanel
    GridPanel := TGridPanel.Create(Self);
    GridPanel.Parent := Self;
    GridPanel.Align := alClient;
    GridPanel.RowCollection.Clear;
    GridPanel.ColumnCollection.Clear;

    // 计算行和列数
    Rows := Ceil(Sqrt(SectionList.Count));  // 根据按钮数量计算行列数
    Cols := Rows;

    // 创建 GridPanel 的行和列
    for i := 0 to Rows - 1 do
      GridPanel.RowCollection.Add;

    for i := 0 to Cols - 1 do
      GridPanel.ColumnCollection.Add;

    // 在每个单元格中添加按钮
    for i := 0 to SectionList.Count - 1 do
    begin
      // 读取按钮的属性
      Caption := Ini.ReadString(SectionList[i], 'Caption', 'Default');
      Link := Ini.ReadString(SectionList[i], 'Link', '');
      Color := StringToColor(Ini.ReadString(SectionList[i], 'Color', 'clBtnFace'));
      Width := Ini.ReadInteger(SectionList[i], 'Width', 100);
      Height := Ini.ReadInteger(SectionList[i], 'Height', 50);

      // 创建按钮
      Button := TButton.Create(Self);
      Button.Parent := GridPanel;
      Button.Caption := Caption;
      Button.Width := Width;
      Button.Height := Height;
      Button.Font.Color := clWhite;
      Button.Color := Color;
      Button.Tag := i;  // 用于区分不同的按钮
      Button.OnClick := ButtonClick;  // 分配点击事件

      // 将链接存储在按钮的 Hint 属性中，便于在事件中使用
      Button.Hint := Link;

      // 将按钮放置到 GridPanel 的单元格中
      GridPanel.ControlCollection.AddControl(Button, i mod Cols, i div Cols);
    end;
  finally
    Ini.Free;
    SectionList.Free;
  end;
end;

procedure TForm1.ButtonClick(Sender: TObject);
var
  Link: string;
begin
  Link := (Sender as TButton).Hint;
  if Link <> '' then
    ShellExecute(0, 'open', PChar(Link), nil, nil, SW_SHOWNORMAL);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  CreateButtonsFromConfig;
end;
代码解析

  1. 读取配置文件：

    • 使用 TIniFile 类读取 buttons.ini 配置文件。
    • SectionList 用于存储配置文件中的节名（即按钮的配置部分）。

  2. 动态创建 TGridPanel：

    • 创建 TGridPanel，并根据按钮数量动态设置网格的行和列。
    • Ceil(Sqrt(SectionList.Count)) 用于计算合适的行列数，以确保按钮均匀分布。

  3. 生成按钮：

    • 遍历每个配置节，为每个按钮设置标题、颜色、大小等属性，并将它们添加到 TGridPanel 的指定单元格中。

  4. 按钮点击事件：

    • ButtonClick 方法使用 ShellExecute 打开与按钮关联的链接。
运行效果

当程序运行时，按钮会根据配置文件中的信息动态生成，并在 TGridPanel 中自动排列。每个按钮的外观和功能都可以通过简单地修改配置文件来调整，非常适合需要灵活配置 UI 元素的场景。

结果如下

在这里插入图片描述

结论

通过本文的示例，你应该能够掌握如何在 Delphi 中根据配置文件动态生成按钮，并将它们排列在 TGridPanel 中。这种方法不仅增强了程序的可配置性，还使得 UI 的调整变得更加简单和直观。希望本文对你的 Delphi 开发之旅有所帮助！

winfredzhang
关注
DELPHI 动态创建按钮 BUTTONG
02-21
DELPHI XE 10 动态建立按钮，XE10下可直接使用。可以直接用
Delphi动态生成控件
YanJinrong的专栏
07-10 1106
一、不可视，以创建一个按钮为例： var Button1: TButton; begin Button1 := TButton.Create(Self); Button1.OnClick := DoClick; //绑定事情响应函数，如果有的话 end; 二、可视，以上述按钮为例，如果需要在界面上显示，需要指定Parent及Pos，如下： var Button1: TButton; begin Button1 := TButton.Create(Self); Button1.O...
delphi动态创建控件
dkopg24406的专栏
09-03 1060
动态创建控件 其实动态创建控件很简单，相信看过本文后你会全明白的。 １　先在单元的initialization 部分注册它，（这样在单元使用时会自动注册的）如： RegisterClass( TButton ); ２　使用FindClass 或 GetClass函数取得类参考，如： var MetaClass : TPersistentCl...
Delphi程序中动态生成控件的方法及应用
s13596191285的博客
02-18 1459
一、Delphi中生成控件的两种方法 ---- 1、 Form(表单)设计中生成控件 ---- 在进行Form设计时，直接在控件工具箱选择所需控件，再设置其属性与响应事件，这种方法比较常见。 ---- 2、 程序中动态生成控件 ---- 有时候，我们需要在程序运行时动态生成控件，这样做有两大优点：一是可以增加程序的灵活性；二是如果生成控件的多少与程序中间运行结果相关，显然方法一是无法的实现的，必须用程序中动态生成方法。 ---- 程序中动态生成控件的方法分为三步，首先，定义生成的控件类型，再用
Delphi中控件的动态创建
Rshh's Blog.
11-04 1333
 网上搜集资料 参考写的代码 实现控件的动态创建 完整代码如下： (实现界面)-------------------unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, ExtCtrls,
Delphi 动态创建Panel
03-24
在Delphi编程环境中，动态创建组件是常见的需求，特别是在构建用户界面时，为了实现更灵活的设计和交互。本文将深入探讨如何动态创建Panel，并在Panel上添加其他组件，如TRzBackground和TBmpButton，同时处理鼠标...
Delphi动态创建sql2000数据库、数据表，生成.sql文件
05-18
摘要:Delphi源码,数据库应用,动态创建数据库　Delphi源码动态创建sql2000数据库、数据表，生成.sql文件，在sql2000绿色版下测试通过。注意：企业管理器生成的.sql，需要新建一个.txt文件，把内容复制过来，不然会...
读取ini配置文件创建delphi界面
12-17
本主题聚焦于如何利用ini配置文件来实现Delphi界面的可配置化和动态创建。ini文件是一种轻量级的文本配置文件格式，常用于存储应用程序的设置和选项。下面我们将深入探讨这一技术。 1. **ini配置文件结构**：ini...
delphi 动态创建菜单实例
12-26
在Delphi编程中，动态创建菜单是一项非常实用的技术，它允许开发者在运行时根据需要创建、修改或删除菜单项，增强了程序的灵活性和用户交互性。以下是对"delphi 动态创建菜单实例"的详细解释： 首先，我们来看动态...
[TButton]运行时动态创建和删除按钮
09-22 977
新开一个project，然后拖两个Button放在窗体上代码如下：unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)    btnAddButt
Delphi 动态生成控件
03-18
比一比，就知道与其他的 Delphi 动态生成控件 有所不同 如：CreateControlByString(Value, self);//value为字符串 就可以在self上显示控件,物超所值吧！ (Delphi 2010)
delphi 动态创建分页和按钮
12-06
利用delphi原始的控件和代码实现对tablesheet动态添加分页，并在分页中添加按钮
Delphi动态创建控件以及控件的事件.rar
08-31
介绍了动态创建控件与控件事件的方法，并且给出了测试实例，实例以控件RadioGroup、GroupBox、Image、Button和Shape的创建讲解。
在DELPHI中动态创建控件以及控件的事件
热门推荐
05-31 1万+
     在DELPHI中我们经常要动态的创建控件以及控件的事件。例如，我们可能想根据程序需要动态的创建一些Tshape组件来创建某个图形，并使得在鼠标移动上去之后可以完成某些操作。这一般需要需要三步： 生成一个制定组件类的实例 为这个实例付初值 在使用完毕后，释放资源    下面将通过一个例子来演示，例子的功能是动态创建一个Tshape的实例MyShap
Delphi 动态创建、释放控件(批量)
xiaobin_zb的博客
09-03 888
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); proced
delphi d10 以上动态创建控件并集中管理，动态赋值
最新发布
百万软件
07-27 392
动态创建控件还是比较管理，但动态管理与赋值还是相对比较麻烦，原来是使用FindComponent来实现，但是可能是创建在不同的组件下面，无法循环还实现，现有利用 List 泛型来实现。由于工作需要，动态创建控件，包括文本，图片，GIF动图，按钮等控件，并根据不同的值，显示不能的内容，需要在运行时来改变状态，由此只能使用动态创建控件来实现功能上的要求。
delphi程序中动态生成控件的方法
niray的专栏
03-31 5464
程序中动态生成控件的方法分为三步，首先，定义生成的控件类型，再用Create函数生成控件，最后对控件的相关属性赋值。以TButton控件为例，步骤如下： ---- a. 定义控件类型 var Button1:TButton; ---- b.生成控件 Button1:=TButton. Create(self); Button1.Parent:=Self; //一般将其父控件设置为Self,如果不设
DELPHI 动态 创建和释放 多个 EDIT 控件
weixin_33921089的博客
06-04 252
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) pnl1: TPanel; ...
Delphi文件操作指南：删除、创建与管理
"这篇资源主要介绍了在Delphi中进行文件操作时常用的一些函数，包括检查文件或目录是否存在、创建和删除文件及目录、获取当前工作目录、重命名和创建文件夹，以及查找、属性获取与设置、文件大小和日期等相关功能。...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值