[转载]TOpenDialog使用

AI权益加码!Claude Code、Cursor等20+工具免费用! 购周边限时加赠Coding Plan Lite,畅享主流AI工具!学习进阶更高效! 阅读详情

一、改变打开对话框中“打开”按钮的标题(caption)
    在c++Builder控件板上的Dialogs页上的VCL控件包括了Windows常用的对话框。换句话说,VCL并没有提供对话框,那些对话框都是Windows的一部分。VCL只是使得使用这些对话框变得容易些。在一些应用中,你可能想改变打开对话框中打开按钮的标题,例如,变成表示你的程序允许用户添加文件到文档中,这中情况下,你可能想打开按钮上的标题为“添加文件”而不是“打开”。

    你可以简单的改变任何通用对话框上按钮的标题,打开对话框的OnShow事件可以用来实现这种操作。
    下面的代码显示了如何改变:

void __fastcall TForm1::OpenDialog1Show(TObject *Sender)
{
HWND hwndDialog = GetParent(OpenDialog1->Handle);
HWND hwndButton = GetDlgItem(hwndDialog, 1);
SetWindowText(hwndButton, "&Add Files");
}

第一行是取得打开对话框的句柄,
注意:调用GetParent(), 传过去的是TOpenDialog的句柄。

下一行使用GetDlgItem()函数取得对话框中打开按钮的句柄。
注意:传过去的句柄是第一行取得的对话框的句柄和标识为一的对话框对话资源。

    记住,打开对话框不是一个VCL Form,而是一个真正的Windows对话框。在对话框上的各个控制都有一个资源ID.打开按钮的资源ID是1。

若你想知道About窗口和TOpendialog是怎么制作出来的,看看这个Demo 说明:若你想知道About窗口和TOpendialog是怎么制作出来的,看看这个Demo. 核心技术:ShowModal,ModalResult,Execute: Boolean Google搜索:Delphi,组件制作,About,TOpendialog 立即下载

相关推荐

TOpenDialog组件运用

TOpenDialog组件运用

lyhoo163的专栏 5385

PythonStudio 控件使用常用方式(九)TOpenDialog

PythonStudio是一个极强的开发Python的IDE工具,它使用的是Delphi的控件,常用的内容是与Delphi一致的。但是相关文档并一定完整。现在我试试能否逐步把它的控件常用用法写一点点,也作为PythonStudio的参考。TOpenDialog是打开文件的对话框。

gxchai的博客 785

BCB TOpenDialog组件的典型用法

打开对话框是用TOpenDialog组件实现的,TOpenDialog组件是非可视组件。Filter属性用于设置文件过滤器,让对话框只列出特定类型的文件。在设计时可以单击Filter属性旁的省略号.按钮,打开Filter... “打开”对话框是用TOpenDialog组件实现的,TOpenDialog组件是非可视组件。  Filter属性用于设置文件过滤器,让对话框只列出特定类型的文件。在设计

kyfvc的专栏 3849

TOpenDialog打开和取消按钮的选择

TOpenDialog //打开文件对话框 if OpenDialog.Execute then //表示调用 打开文件对话框 begin //表示用户选择了打开文件 end else exit;//表示用户选择了取消文件

easyboot的专栏 1613

delphi TOpenDialog

TOpenDialog procedure TForm1.Button1Click(Sender: TObject);beginwith TOpenDialog.Create(nil) dobeginFilter:='Text files (*.txt)|*.txt)|All Files(*.*)|*.*';if Exec...

weixin_30604651的博客 292

Topendialog组件

opendialog1.InitialDir := ExtractFilePath(Application.ExeName); //设置打开初始路径,通过Application.ExeName运行程序得到程序路径 if opendialog1.Execute then//运行TOpenDialog打开选择文件 begin if LowerCase(E...

weixin_30580943的博客 212

DELPHI - How to use opendialog1 for choosing a folder? TOpenDialog, TFileOpenDialog

DELPHI - How to use opendialog1 for choosing a folder? On Vista and up you can show a more modern looking dialog usingTFileOpenDialog. var OpenDialog: TFileOpenDialog; SelectedFolder: strin...

weixin_30248399的博客 167

TOpenDialog初始化打开路径

dlgOpen1.InitialDir:='D:\test\'; dlgOpen1.FileName:='';//每次打开前清空filename即可打开初始化路径 if dlgOpen1.Execute then begin end; 转载于:https://www.cnblogs.com/hejoy91/archive/2013/05/29/3105843.html...

weixin_30595035的博客 285

Delphi使用系统默认程序打开外部文件

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,shellapi ;type TForm1 = class(TForm) Button1: TButton; OpenDialog1: TO...

weixin_30241919的博客 469

OpenDialog文件多选

procedure TForm1.OpenFileListClick(Sender: TObject); var openDialog: TOpenDialog; I: Integer; begin openDialog := TOpenDialog.Create(Self); openDialog.Filter := 'Excel文件|*.xlsx;*.xls';...

weixin_34221073的博客 256

动态设置应用程序的图标

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtDlgs, StdCtrls; type TfrmMain = class(TForm) btnIcon: TButton; O...

weixin_30483697的博客 253

TTabControl、TMemo组件(制作一个简单的多文本编辑框)

TTabControl包含一列字符串标签的tabs 每个标签控制一个对象 首先创建一个TForm;接下来添加TTabControl组件和一个文件对话框TOpenDialog(用于添加文件),然后在TTabControl里面添加TMemo(多行文本编辑框),最后在Form上添加一个Button,在Button事件里面添加如下函数 //在创建窗口的时候设置编辑框的滚动条void __fast...

weixin_30446613的博客 157

Delphi下使用MapWinGIS控件打开GIS图层

Delphi下使用MapWinGIS控件打开GIS图层 unit Unit3; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, ...

508

delphi 通过TStyleManager设置主题类型

引入 Vcl.Themes, Vcl.Styles, 设置主题类型 TStyleManager.TrySetStyle('Turquoise Gray'); 或则在窗体代码中实现 unit Unit14; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System....

aldsot0997的博客 1016

Delphi实现提取可执行文件内部所有图标

本实例实现的功能是能够从用户选择的可执行文件(后缀名为exe)中提取所有图标并且显示在窗体上。   在窗体中添加TImage 组件、TOpenDialog组件和TButton组件,TImage组件充当显示文件内图标的容器,TOpenDialog组件和TButton组件用来激活提示用户选择GIF动画的对话框。添加组件后的窗体如图1所示。 图1 添加组件后的窗体   首先在窗体的use...

dkopg24406的专栏 588
上一篇: [转载]用C++BUILDER建立自己的WEB浏览器
下一篇: [转载]使用CommaText
Rex_love_Burger
博客等级 码龄23年 13粉丝 47原创
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值