天道酬勤,学无止境

aveDialog

使 SaveDialog 对话框的文件名选择变灰 - 回复 "delphan" 的问题

使 SaveDialog 对话框的文件名选择变灰 - 回复 "delphan" 的问题 问题来源: http://www.cnblogs.com/del/archive/2009/03/18/1410030.html#1480550本例效果图: 代码文件:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; SaveDialog1: TSaveDialog; procedure Button1Click(Sender: TObject); procedure SaveDialog1SelectionChange(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} const FileName = 'ABC.txt'; {变灰并维持指定的文件名} procedure EnableFileName(h: HWND; name: string); var hc: HWND; buf: array[Byte] of Char

2021-05-19 02:38:13    分类:博客    aveDialog   delphi