为什么 如果label控件的 Enabled属性是false ,就不响应 双击事件啊!!
如果 为true 就可以啊!!我要实现的是 一开始label 的Enabled属性是false 双击之后 enabled =true;
再次双击 enabled=false;procedure TForm1.Label1DBClick(Sender: TObject);
begin
if label1.Enabled =false then
begin
label1.Enabled :=true;
exit;
end;
if label1.Enabled =true then
begin
label1.Enabled :=false;
exit;
end;
end;
如果 为true 就可以啊!!我要实现的是 一开始label 的Enabled属性是false 双击之后 enabled =true;
再次双击 enabled=false;procedure TForm1.Label1DBClick(Sender: TObject);
begin
if label1.Enabled =false then
begin
label1.Enabled :=true;
exit;
end;
if label1.Enabled =true then
begin
label1.Enabled :=false;
exit;
end;
end;
解决方案 »
- 将Image中的图片区域截图保存成BMP图!
- 把文件上传到指定的服务器文件夹,但客户端不能打开服务器文件夹
- 求一个人事管理系统,基本的录入和查询功能即可
- 在delphi下如何调用iphlpapi.dll中的iprenewaddress函数实现IP地址重新分配!?
- 请问使用BDE进行数据库的连接和操作的软件在上传到服务器上后需要装什么软件?
- Help me!!! Help......__^^___(来者有分)
- 问一个CoUninitialize在哪个单元声明呢
- 这样做dll可不可以?
- 高手\新手 ? 谢谢! 将 #12345#76832#87060 转换成汉字的函数
- 有什么方法可以把当前的控件赋给Parent属性,比如:K.Parent:=当前控件(现在还不知道这个控件是什么)!
- 有个问题,不知怎么说出口~
- 关于adoquery中使用sql带参数查询的问题!!!新手!!急!!
按这种方法不可能实现,可能你还不太了解Enabled属性的作用把.
procedure TForm1.Label1DBClick(Sender: TObject);
begin
Label1.Enabled:=Not Label1.Enabled;
end;
//和你的代码是一样的
2控件的Enabled一旦为False就不响应任何事件了,所以此代码只能执行一次
谢谢各位了啊 !!
是不是任何控件在Enabled一旦为False就不响应任何事件了啊!!
begin
lable1.enabled:=true;
end;//通过截获WM_LBUTTONDOWN去试试看,