中科新闻网佛山超盈实验中学面积:DELPHI问题
来源：百度文库 编辑：中科新闻网 时间：2024/04/29 08:49:34
我在PageControl控件的其中一页里加入了一个文本框和按钮,要实现打开程序时文本框为空按钮变灰,如果给文本框输入内容则按钮被激活,分别写了下面的代码,但输入内容后按钮却仍为灰色
procedure TForm1.FormCreate(Sender: TObject);
begin
button1.Enabled:=false;
end;
procedure TForm1.TabSheet2ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
if edit1.text<>'' then
button4.Enabled:=true
还有怎么改变程序的图标
procedure TForm1.FormCreate(Sender: TObject);
begin
button1.Enabled:=false;
end;
procedure TForm1.TabSheet2ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
if edit1.text<>'' then
button4.Enabled:=true
还有怎么改变程序的图标
可以在没有运行的时候，即设计期就将button1的enabled属性设为false,edit1的text清空。这样可以减少代码量。然后按以下方法做。
1 在文本框的onchange事件中加入
if edit1.Text<>'' then
button1.Enabled:=true
else
button1.Enabled:=false;
2 改变程序的图标
(1)在菜单中project选择options项
(2)在Application页点击load Icon按扭,就可以改变程序的图标了.
这样写更好些：
初始化:
Form1OnCreate事件:
button1.Enabled:=False;
edit1.text:='';
在文本框的onchange事件:
button1.Enabled:=Trim(edit1.text)<>'';
关于修改程序图标：
一：
(1)在菜单中project选择options项
(2)在Application页点击load Icon按扭，选取图标。
二：动态获取：
Application.Icon.LoadFromFile(); //从文件读取
或者
Application.Icon.LoadFromStream();//从流中读取
或者
Application.Icon.LoadFromClipboardFormat();//从剪贴板中读取
触发事件可能不对,你用文本框的onchange来做就可以了!