动态创建config中指定的url界面的程序：轻松构建网页导航应用

winfredzhang

于 2024-04-19 10:39:34 发布

阅读量1.1k

点赞数 4

文章标签： delphi 动态创建组件 config shellexecute

本文链接：https://blog.csdn.net/winniezhang/article/details/137956469

版权

本文介绍了如何使用Delphi编程语言，通过读取config文件中的URL信息，动态生成界面元素，实现在点击后打开指定网页的网页导航应用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

在日常工作或学习中，我们经常需要访问各种各样的网页。为了方便地管理和快速访问这些网页，我们可以利用编程技术开发一个简单的网页导航应用。本文将介绍如何使用Delphi语言动态创建config中指定的url界面的程序，实现这一功能。

1. 程序概述

该程序的核心思路是：从配置文件中读取URL信息，并根据这些信息动态创建按钮或其他界面元素，最终呈现给用户。用户点击按钮或界面元素即可打开相应的网页。

2. 代码解析

程序的代码主要包含以下几个部分：

config.ini内容：

[Categories]
Count=3

[Category0]
Name=reimage
URL=https://www.freepik.com/pikaso/reimagine?tti=1

[Category1]
Name=text2video
URL=https://app.haiper.ai/explore

[Category2]
Name=text2video2
URL=https://app.runwayml.com/video-tools/teams/zhangwinfred/dashboard

定义

var
  Form3: TForm3;
  FIniFile:TIniFile;
  FCategoryButtons: array of TButton;
implementation

{$R *.dfm}
 uses

OpenChrome过程: 此过程用于打开指定的URL。它使用ShellExecute函数，该函数可以启动外部程序或打开文件。

procedure OpenChrome(const URL: string);
begin
  ShellExecute(0, 'open', 'chrome.exe', PChar(URL), nil, SW_SHOWNORMAL);
end;

按钮事件处理程序: 这些事件处理程序会在用户单击按钮时触发。它们会从配置文件中读取URL并使用OpenChrome过程打开相应的网页。

procedure TForm3.ButtonClick(Sender: TObject);
var
  Button: TButton;
  SectionName: string;
  KeyName: string;
  URL: string;
begin
  Button := TButton(Sender);

  // Get the URL from the ini file
  SectionName := 'Category' + IntToStr(Button.Tag);
  KeyName := 'URL';
  URL := FIniFile.ReadString(SectionName, KeyName, '');

  if URL <> '' then
  begin    
  OpenChrome(URL)
  end;
end;

表单创建事件处理程序: 此事件处理程序会在表单首次创建时触发。它负责动态创建分类按钮并设置它们的属性。

procedure TForm3.FormCreate(Sender: TObject);
var
  SectionName: string;
  KeyName: string;
  Value,I: integer;
  namestr:string;
begin
  FIniFile := TIniFile.Create('./config.ini');

  SectionName := 'Categories';

  // Get the number of categories
  Value := FIniFile.ReadString(SectionName, 'Count', '').ToInteger;
  if Value <> 0 then
  begin
//    StrToInt(Value, FCategoryButtons.High);
//  . := Val(Value);
  SetLength(FCategoryButtons, Value);
  end;


  // Create the CategoryButtons
  for I := Low(FCategoryButtons) to High(FCategoryButtons) do
  begin
 FCategoryButtons[I] :=TButton.Create(self);  // Sets parent automatically
  FCategoryButtons[I].Top := 10 + I * 30;
  FCategoryButtons[I].Left := 10;
  FCategoryButtons[I].Width := 100;
  FCategoryButtons[I].Height := 25;
  FCategoryButtons[I].Parent:=self;
  FCategoryButtons[I].tag:=I;
   namestr := FIniFile.ReadString('Category'+IntToStr(I ),'Name' , '');
  FCategoryButtons[I].Caption :=namestr;// 'Category ' + IntToStr(I + 1);
  FCategoryButtons[I].OnClick := ButtonClick;
  end;
end;

3. 功能实现

动态创建界面: 程序会根据配置文件中定义的类别数量，动态创建分类按钮。每个按钮的标题和功能都由配置文件中指定。
灵活配置: 用户可以自由修改配置文件中的URL信息，添加或删除新的类别，从而定制个性化的网页导航界面。
易于使用: 界面简洁明了，用户只需点击按钮即可打开相应的网页，操作简单方便。

4. 应用场景

该程序可以应用于以下场景：

个人网页收藏: 收集和整理个人常用的网页链接，方便快速访问。
教学辅助: 教师可以创建包含课程相关资源的网页导航应用，方便学生学习。
企业应用: 企业可以为员工定制网页导航应用，方便员工快速访问公司内部信息或常用网站。

5. 总结

动态创建config中指定的url界面的程序，可以帮助我们更加高效地管理和访问网页信息。该程序代码结构清晰，易于理解和扩展，可以根据实际需求进行灵活调整，是一款实用且易用的工具。

6. 代码获取

完整的代码可以访问以下链接获取：[链接地址]

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.CategoryButtons, Vcl.BaseImageCollection, Vcl.ImageCollection,System.IniFiles,
  Vcl.Buttons;

type
  TForm3 = class(TForm)
    Button1: TButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Button2: TButton;
    ImageCollection1: TImageCollection;
    CategoryButtons1: TCategoryButtons;
    Button3: TButton;
    SpeedButton1: TSpeedButton;
    procedure ButtonClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure CategoryButtons1CategoryClicked(Sender: TObject;
      const Category: TButtonCategory);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;
  FIniFile:TIniFile;
  FCategoryButtons: array of TButton;
implementation

{$R *.dfm}
 uses
  ShellAPI;

procedure OpenChrome(const URL: string);
begin
  ShellExecute(0, 'open', 'chrome.exe', PChar(URL), nil, SW_SHOWNORMAL);
end;
procedure TForm3.ButtonClick(Sender: TObject);
var
  Button: TButton;
  SectionName: string;
  KeyName: string;
  URL: string;
begin
  Button := TButton(Sender);

  // Get the URL from the ini file
  SectionName := 'Category' + IntToStr(Button.Tag);
  KeyName := 'URL';
  URL := FIniFile.ReadString(SectionName, KeyName, '');

  if URL <> '' then
  begin

  OpenChrome(URL)
  end;
end;

procedure TForm3.FormCreate(Sender: TObject);
var
  SectionName: string;
  KeyName: string;
  Value,I: integer;
  namestr:string;
begin
  FIniFile := TIniFile.Create('./config.ini');

  SectionName := 'Categories';

  // Get the number of categories
  Value := FIniFile.ReadString(SectionName, 'Count', '').ToInteger;
  if Value <> 0 then
  begin
  SetLength(FCategoryButtons, Value);
  end;


  for I := Low(FCategoryButtons) to High(FCategoryButtons) do
  begin
 FCategoryButtons[I] :=TButton.Create(self);  // Sets parent automatically
  FCategoryButtons[I].Top := 10 + I * 30;
  FCategoryButtons[I].Left := 10;
  FCategoryButtons[I].Width := 100;
  FCategoryButtons[I].Height := 25;
  FCategoryButtons[I].Parent:=self;
  FCategoryButtons[I].tag:=I;
   namestr := FIniFile.ReadString('Category'+IntToStr(I ),'Name' , '');
  FCategoryButtons[I].Caption :=namestr;// 'Category ' + IntToStr(I + 1);
  FCategoryButtons[I].OnClick := ButtonClick;
  end;
end;

end.