怎样区分“设计时”和“运行时”?高手请进!(100分)

  • 主题发起人 主题发起人 yeskert1
  • 开始时间 开始时间
Y

yeskert1

Unregistered / Unconfirmed
GUEST, unregistred user!
我的控件的一段代码,我希望它在设计时不执行,仅仅在运行时之行!
有什么办法知道当前时设计状态还时运行状态?
 
TComponent 有一人state属性,自己查一下help,看看它的几个取值就知道了。
其实你自己做VCL,如果读过delphi自带的几个VCL,应该就知道这是怎么处理的。呵呵
 
>>来自Delphi之未经证实的葵花宝典,好好看看这个东东有帮助的
delphi5在system.pas里声明了一个全局变量
叫debughook,
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(IntToStr(DebugHook));
end;
当显示为1时,表明运行在ide下,0时表明没有运行在ide下
 
if not (csDesigning in yourComponent.ComponentState) then
begin
//the code of you want to execute
end;
记得给分鼓励。呵呵
 
伊天仇的用法好像比较常见。
 
我自己写的一个控件里面就有用到这点,事实证明是可行的!
 
谢谢各位!还是这样解决问题迅速!发分。
 
后退
顶部