TForm类中的__fastcall TForm1(TComponent* Owner)函数中TComponent* Owner是什么意思？怎么用？

fifaxjb 2003-08-30 07:28:12

帮忙解决一下好吗？

...全文

105 5 打赏收藏转发到动态举报

写回复

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

binbin 2003-09-01

打赏
举报

回复

在构造函数中传入Owner会让Owner在自己的子控件列表中加入本控件,Owner在析构时会自动把子控件列表中的各个控件销毁,不用手动处理了.

jiangchun_xn 2003-08-31

打赏
举报

回复

Owner 是个比较复杂的概念，也是很清晰的概念。

一般的，你知道设置owner的在owner析构时自己也会被析构。设置为NULL的要自己delete

honlyn 2003-08-31

打赏
举报

回复

构造函数
Owner 是 TForm::Parent

hzhxxx 2003-08-30

打赏
举报

回复

创建这个 object 的所有者

Tiejun_Chenfang 2003-08-30

打赏
举报

回复

http://expert.csdn.net/Expert/topic/2201/2201842.xml?temp=.9639093

自己制作浏览器实例。实例程序，带有源码，直接可用，c++builder的精彩编程！！

附录：源程序 //-------------------主窗体查询与浏览--------------------------------------- #include #pragma hdrstop #include "Unit1.h" #include "Unit2.h" #include "Unit3.h" #include "Unit4.h" #include "Unit5.h" #include "Unit6.h" #pragma package(smart_init) #pragma resource "*.dfm" TFmain *Fmain; bool onshow=false; __fastcall TFmain::TFmain(TComponent* Owner) : TForm(Owner) { } void __fastcall TFmain::N5Click(TObject *Sender) { Close();//退出程序 } void __fastcall TFmain::SpeedButton3Click(TObject *Sender) { DataModule3->ADOQuery1->First() ; StatusBar1->Panels->Items[0]->Text="数据指向第一个"; } void __fastcall TFmain::SpeedButton1Click(TObject *Sender) { DataModule3->ADOQuery1->Prior() ; StatusBar1->Panels->Items[0]->Text="数据指向上一个"; } void __fastcall TFmain::SpeedButton2Click(TObject *Sender) { DataModule3->ADOQuery1->Next() ; StatusBar1->Panels->Items[0]->Text="数据指向下一个"; } void __fastcall TFmain::SpeedButton4Click(TObject *Sender) { DataModule3->ADOQuery1->Last() ; StatusBar1->Panels->Items[0]->Text="数据指向最后"; } void __fastcall TFmain::Button2Click(TObject *Sender) { //添加新的数据 Fadd->Caption="添加数据"; DataModule3->ADOQuery1->Append() ; Fadd->ShowModal() ; } void __fastcall TFmain::FormClose(TObject *Sender, TCloseAction &Action) { //对退出程序做确认处理 if(MessageBox(this->Handle,"确定要退出吗？","提示",MB_YESNO+MB_ICONQUESTION) == IDNO) Action=caNone; } void __fastcall TFmain::N10Click(TObject *Sender) { AboutBox->ShowModal() ; //显示关于对话框 } void __fastcall TFmain::Button4Click(TObject *Sender) { //以下为查找语句 AnsiString sql; if(Edit1->Text=="")return; if( ComboBox1->Text =="精确")sql=" ='"+Edit1->Text+"';"; else sql=" like '%"+Edit1->Text+"%';"; sql="select * from renshi where "+ComboBox2->Text+sql; StatusBar1->Panels->Items[0]->Text=sql; DataModule3->ADOQuery1->Active =false; DataModule3->ADOQuery1->SQL->Clear(); DataModule3->ADOQuery1->SQL->Add(sql); DataModule3->ADOQuery1->Active =true; if(DataModule3->ADOQuery1->RecordCount==0) StatusBar1->Panels->Items[1]->Text="无符合条件数据"; else StatusBar1->Panels->Items[1]->Text="符合条件数据个数为："+IntToStr(DataModule3->ADOQuery1->RecordCount); } void __fastcall TFmain::Button6Click(TObject *Sender) { //以下为显示所有数据 AnsiString sql; sql="select * from renshi;"; StatusBar1->Panels->Items[0]->Text="显示全部数据"; DataModule3->ADOQuery1->Active =false; DataModule3->ADOQuery1->SQL->Clear(); DataModule3->ADOQuery1->SQL->Add(sql); DataModule3->ADOQuery1->Active =true; if(DataModule3->ADOQuery1->RecordCount==0) StatusBar1->Panels->Items[1]->Text="无符合条件数据"; else StatusBar1->Panels->Items[1]->Text="数据总量为："+IntToStr(DataModule3->ADOQuery1->RecordCount); } void __fastcall TFmain::Button1Click(TObject *Sender) { //刷新显示 DataModule3->ADOQuery1->Active =false; DataModule3->ADOQuery1->Active =true; } void __fastcall TFmain::N9Click(TObject *Sender) { //帮助内容 ShowMessage("\ 大家好，虽然只是一个简单的程序但是也要写帮助。\n\ 简单的操作如下：\n\ 一、打开程序。\n\ 二、可以进行数据的添加、删除、浏览、查找\n\ 三、关闭。\n\ 谢谢使用！\n\ "); } void __fastcall TFmain::Button3Click(TObject *Sender) { //数据删除操作 AnsiString printstr="确定删除编号为"+DataModule3->ADOQuery1->FieldByName("编号")->AsString+"的数据吗？"; if(MessageDlg(printstr,mtWarning,TMsgDlgButtons() << mbOK Delete() ; StatusBar1->Panels->Items[0]->Text="数据已经删除"; } } void __fastcall TFmain::N3Click(TObject *Sender) { //更改显示字体 if(FontDialog1->Execute())Fmain->Font=FontDialog1->Font; } void __fastcall TFmain::N12Click(TObject *Sender) { //更改窗体颜色 if(ColorDialog1->Execute()) { Fmain->Color=ColorDialog1->Color;//主窗体 Fadd->Color=ColorDialog1->Color; //添加、修改窗体 } } void __fastcall TFmain::N13Click(TObject *Sender) { //更改数据域颜色 if(ColorDialog1->Execute()) DBGrid1->Color=ColorDialog1->Color; } void __fastcall TFmain::N11Click(TObject *Sender) { Fshow->QuickRep1->Preview();//打印数据 } void __fastcall TFmain::Button5Click(TObject *Sender) { Fadd->Caption="修改数据"; Fadd->ShowModal() ; //修改数据 } void __fastcall TFmain::FormShow(TObject *Sender) { if(onshow==false) { Fwelcome->ShowModal() ; onshow=true; return; } } //-------------------------------------------------------------------------- //------------系统封面------------------------------------------------------ #include #pragma hdrstop #include "Unit2.h" #include "Unit1.h" #pragma package(smart_init) #pragma resource "*.dfm" TFwelcome *Fwelcome; int logintime=15; //进入系统等待时间X秒 __fastcall TFwelcome::TFwelcome(TComponent* Owner) : TForm(Owner) { } void __fastcall TFwelcome::Timer1Timer(TObject *Sender) { if(logintime==0){ Timer1->Enabled=false; Close(); } logintime--; SpeedButton1->Caption ="进入("+IntToStr(logintime)+")"; } void __fastcall TFwelcome::SpeedButton2Click(TObject *Sender) { Application->Terminate() ; } void __fastcall TFwelcome::SpeedButton1Click(TObject *Sender) { logintime=15; Timer1->Enabled=false; Close(); } //-------------------------------------------------------------------------- //---------------------数据修改窗体----------------------------------------- #include #pragma hdrstop #include "Unit4.h" #include "Unit3.h" #pragma package(smart_init) #pragma resource "*.dfm" TFadd *Fadd; __fastcall TFadd::TFadd(TComponent* Owner) : TForm(Owner) { } void __fastcall TFadd::Button1Click(TObject *Sender) { if(DBEdit1->Text =="")return; DataModule3->ADOQuery1->Refresh() ; Close(); } void __fastcall TFadd::Button2Click(TObject *Sender) { DataModule3->ADOQuery1->Cancel() ; Close(); } void __fastcall TFadd::FormClose(TObject *Sender, TCloseAction &Action) { DataModule3->ADOQuery1->Cancel() ; } //--------------------------------------------------------------------------

ABB变频器使用手册#pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //---------------------------------------------------------------------------

(1)窗体设计 ①趋势曲线和棒图的刻度盘采用Image控件装入预先绘制好的位图文件。两个Image控件标记为Image1和Image2。 ②趋势曲线和棒图的刻度、工位号、工位名称、SP、PV、MV及参数名称等画面上的可视文字信息，均利用Label控件直接显示。该画面所使用的Label控件标记为Label1～Label35。 ③最新报警点的点号及报警类型也由Label控件实现，但由程序控制其显示状态。这两个Label控件标记为Label36和Label37。 ④所有可变数值的显示使用Edit控件实现，各控件标记为Edit1～Edit14。 ⑤使用PageControl控件实现不同类画面的切换。 ⑥使用Button控件实现同类画面的翻页操作及某些控制功能。 ⑦使用Timer控件实现数据、曲线、棒图的实时刷新操作。 (2)参考程序 #include #include #pragma hdrstop #include "XIMU.h" #pragma package(smart_init) #pragma resource "*.dfm" float t30sp=138.5,t30pv=130.5,t30mv=50.2；//假设值 int t30trend[480]； //曲线有480个点 int t1； TForm1 *Form1； //窗体程序 __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)

用c++如何获取本机ip？其实这是一个很简单的程序，不多说，看代码 //------主程序--------------------------------------------------------------------- #include #pragma hdrstop #include "WINSOCK2.H" #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { struct hostent *thisHost; struct in_addr in; char MyName[80]; char *hostname,*ptr; //检测windows api 版本号 WORD wVerdionRequested; wVerdionRequested=MAKEWORD(2,0); WSADATA wsaData; int err; err=WSAStartup(wVerdionRequested,&wsaData;); if(err!=0) return; //对winsock api 初始化 if(LOBYTE(wsaData.wVersion)!=2||HIBYTE(wsaData.wVersion)!=0) { WSACleanup(); return; } //获取本机标准域名 if(gethostname(MyName,80)==SOCKET_ERROR) return; thisHost=gethostbyname(MyName); if(!thisHost) return; hostname=thisHost->h_name; //获取本机ip地址 memset((void *)∈,sizeof(in),0); in.s_addr=*((unsigned long *)thisHost->h_addr_list[0]); ptr=inet_ntoa(in); if(!ptr) return; //释放资源，输出结果 WSACleanup(); Edit1->Text=String(ptr); Edit2->Text=String(hostname); } //--------------------------------------------------------------------------- （全国大学生联盟 http://www.chinastlm.com 转载请保留此行）请查看附件获取全部代码获取本机ip.zip

ActiveX/COM/DCOM

703

社区成员

3,002

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章