13,871
社区成员
发帖
与我相关
我的任务
分享help ,help!! 关于FormCreate(TObject *Sender)
一个在listbox中显示所有添加入窗体的组件的程序.
帮助上说,FormCreate在创建对话时就被执行,可是偶在////断点/////// 处设断点,却根本没有停,烦劳各位大虾指点
1 FormCreate(TObject *Sender)工作原理
2 本代码中的问题
3解决方案
以下代码中的FormCreate
void __fastcall TForm1::FormCreate(TObject *Sender)
{
////断点///////
for (int i = 0; i < ComponentCount; i++)
ListBox1->Items->InsertObject(0,
Components[i]->Name,
(TObject *)Components[i]);
}
void __fastcall TForm1::ListBox1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y)
{
if (Button == mbRight)
{
TClass ClassRef;
int Index = ListBox1->ItemAtPos(Point(X,Y), true);
// only components that are controls have a position
// make sure the component is a control
for (ClassRef = ListBox1->Items->Objects[Index]->ClassType();
ClassRef != NULL;
ClassRef = ClassRef->ClassParent())
if (String(ClassRef->ClassName()) == "TControl")
{
TControl *TheObject = (TControl *)ListBox1->Items->Objects[Index];
StatusBar1->SimpleText =
TheObject->Name + " is at (" +
IntToStr(TheObject->Left) + ", " +
IntToStr(TheObject->Top) + ")";
break;
}
if (ClassRef == NULL) // if it wasn't a control
MessageBeep(0);
}
}
帮助上说,FormCreate在创建对话时就被执行,可是偶在////断点/////// 处设断点,却根本没有停,烦劳各位大虾指点
1 FormCreate(TObject *Sender)工作原理
2 本代码中的问题
3解决方案
以下代码中的FormCreate
void __fastcall TForm1::FormCreate(TObject *Sender)
{
////断点///////
for (int i = 0; i < ComponentCount; i++)
ListBox1->Items->InsertObject(0,
Components[i]->Name,
(TObject *)Components[i]);
}
void __fastcall TForm1::ListBox1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y)
{
if (Button == mbRight)
{
TClass ClassRef;
int Index = ListBox1->ItemAtPos(Point(X,Y), true);
// only components that are controls have a position
// make sure the component is a control
for (ClassRef = ListBox1->Items->Objects[Index]->ClassType();
ClassRef != NULL;
ClassRef = ClassRef->ClassParent())
if (String(ClassRef->ClassName()) == "TControl")
{
TControl *TheObject = (TControl *)ListBox1->Items->Objects[Index];
StatusBar1->SimpleText =
TheObject->Name + " is at (" +
IntToStr(TheObject->Left) + ", " +
IntToStr(TheObject->Top) + ")";
break;
}
if (ClassRef == NULL) // if it wasn't a control
MessageBeep(0);
}
}
...全文
请发表友善的回复…
发表回复
lanren_me 2003-03-21
- 打赏
- 举报
使用DEBUG选项.
FallenAngel 2003-03-21
- 打赏
- 举报
为什么不放在构造函数里
favorit 2003-03-21
- 打赏
- 举报
我在这里试过了，FormCreate的代码执行地挺好
sprewellkobe 2003-03-21
- 打赏
- 举报
你把formcreate里面的转到formshow里面试试
denverbenjamin2000 2003-03-21
- 打赏
- 举报
不是断点的问题,改过了
可是 根本不执行formcreate,为什么:(
可是 根本不执行formcreate,为什么:(
SharpKing515 2003-03-21
- 打赏
- 举报
如果你设的断点在你程序运行的时候红点里面有个小勾就OK了，，，看看你的有没有？
favorit 2003-03-21
- 打赏
- 举报
FormCreate的代码没问题
Taiji02 2003-03-21
- 打赏
- 举报
你的程序问题，
＾没
＾没
Taiji02 2003-03-21
- 打赏
- 举报
你的程序问题，断点的位置应设在有效的语句处。
LanceX 2003-03-21
- 打赏
- 举报
断点应该要设在可执行代码行吧。我眼拙，看不出什么毛病。
yyfzy 2003-03-21
- 打赏
- 举报
是不是断点的位置不合法啊？呵呵
bluebird97073 2003-03-21
- 打赏
- 举报
程序好着呀
断点不能设在空行
断点不能设在空行
