扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
Form2单元接口部分 type TForm2=Class(TForm) pubic procedureLoaded;override; procedureCreateParams (varParams:TParams);override; end; 实现部分 procedureTForm2.Loaded; begin inheritedLoaded; Visible:=Flase; Position:=poDefault; BorderIcons:=[]; BorderStyle:=bsNone; //注意此时的窗口边界样式和图标, 改变这两个值,看看有无其它变化。 HandNeeded;//如果窗口不存在,就生成它。 SetBouds(0,0,Width,Height); //不改变窗口原来的大小。 end; procedureTForm2.CreateParams (varParams:TCreateParams); begin inheritedCreateParams(Params); Params.WndParent:=(OwnerasTForm).Handle; //指定父窗口的句柄。 Params.Style:=WS_CHILDorWS_CLIPSIBLINGS; //注意窗口的样式。 params.X:=0; params.Y:=0; end;
Form1接口部分 type TForm1=Class(TForm) Panel1:TPanel; Form2Button:TButton; Form3Button:TButton; procedureFormCreate(Sender:TObject); procedureFormShow(Sender:TObject); procedureFormResize(Sender:TObject); procedureForm2ButtonOnClick(Sender: ject); procedureForm3ButtonOnClick(Sender:TObject); end; Form1实现部分//需要引用Form2和Form3单元。 procedureTForm1.FormCreate(Sender:TObject); begin Form2:=TForm2.Create(Self);//实际生成窗口。 Form3:=TForm3.Create(Self); Form2.Show; Form3.Show; end; procedureFormShow(Sender:TObject); begin Form2.BringToFront;//将该窗口放置在最上面。 end; procedureFormResize(Sender:TObject); begin MoveWindow(Form2.Handle,Panel1.Left,Panel1.Top, Panel1.ClientWidth,Panel1.ClientHeight,True); //跟随着面板的大小和位置。 MoveWindow(Form3.Handle,Panel1.Left,Panel1.Top, Panel1.ClientWidth,Panel1.ClientHeight,True); end; procedureForm2ButtonOnClick(Sender:TObject); begin Form2.BringToFront; end; procedureForm3ButtonOnClick(Sender:TObject); begin Form2.BringToFront; end;
procedureTForm1.Button1Click(Sender:TObject); begin ifForm2=nilthen //判断窗口是否已经存在,如果不存在则重新生成它。 begin Form2:=TForm2.Create(Self); Form2.Parent:=Panel1; end; Form2.WindowState:=wsMaximized; Form2.Show; Form2.BringToFront; end; procedureTForm1.Button2Click(Sender:TObject); begin ifForm3=nilthen begin Form3:=TForm3.Create(Self); Form3.Parent:=Panel1; end; Form3.WindowState:=wsMaximized; Form3.Show; Form3.BringToFront; end;
濠电姷鏁告慨鐑姐€傛禒瀣劦妞ゆ巻鍋撻柛鐔锋健閸┾偓妞ゆ巻鍋撶紓宥咃躬楠炲啫螣鐠囪尙绐為梺褰掑亰閸撴盯鎮惧ú顏呪拺闂傚牊鍗曢崼銉ョ柧婵犲﹤瀚崣蹇旂節婵犲倻澧涢柛瀣ㄥ妽閵囧嫰寮介妸褋鈧帡鏌熼挊澶婃殻闁哄瞼鍠栭幃婊堝煛閸屾稓褰嬮柣搴ゎ潐濞叉ê鐣濈粙璺ㄦ殾闁割偅娲栭悡娑㈡煕鐏炲墽鐭嬫繛鍫熸倐濮婄粯鎷呯粵瀣異闂佹悶鍔嬮崡鍐茬暦閵忋倕鍐€妞ゆ劑鍎卞皬闂備焦瀵х粙鎴犫偓姘煎弮瀹曚即宕卞Ο闀愮盎闂侀潧鐗嗛幊搴㈡叏椤掆偓閳规垿鍩ラ崱妞剧凹濠电姰鍨洪敋閾荤偞淇婇妶鍛櫤闁稿鍊圭换娑㈠幢濡纰嶉柣搴㈣壘椤︾敻寮诲鍫闂佸憡鎸鹃崰搴敋閿濆鏁嗗〒姘功閻绻涢幘鏉戠劰闁稿鎹囬弻锝呪槈濞嗘劕纾抽梺鍝勬湰缁嬫垿鍩為幋锕€宸濇い鏇炴噺閳诲﹦绱撻崒娆戝妽妞ゃ劌鎳橀幆宀勫磼閻愰潧绁﹂柟鍏肩暘閸斿矂鎮為崹顐犱簻闁圭儤鍨甸鈺呮倵濮橆剦妲归柕鍥у瀵粙濡歌閸c儳绱撴担绛嬪殭婵☆偅绻堝濠氭偄绾拌鲸鏅i悷婊冪Ч閹﹢鎳犻鍌滐紲闁哄鐗勯崝搴g不閻愮儤鐓涢悘鐐跺Г閸犳﹢鏌℃担鐟板鐎规洜鍠栭、姗€鎮╅搹顐ら拻闂傚倷娴囧畷鍨叏閹惰姤鈷旂€广儱顦崹鍌炴煢濡尨绱氶柨婵嗩槸缁€瀣亜閺嶃劎鈽夋繛鍫熺矒濮婅櫣娑甸崨顔俱€愬銈庡亝濞茬喖宕洪埀顒併亜閹哄棗浜鹃梺鎸庢穿婵″洤危閹版澘绫嶉柛顐g箘椤撴椽姊虹紒妯哄鐎殿噮鍓欒灃闁告侗鍠氶崢鎼佹⒑閸撴彃浜介柛瀣閹﹢鏁冮崒娑氬幈闁诲函缍嗛崑鍡樻櫠椤掑倻纾奸柛灞剧☉缁椦囨煙閻熸澘顏柟鐓庢贡閹叉挳宕熼棃娑欐珡闂傚倸鍊风粈渚€骞栭銈傚亾濮樺崬鍘寸€规洖缍婇弻鍡楊吋閸涱垽绱遍柣搴$畭閸庨亶藝娴兼潙纾跨€广儱顦伴悡鏇㈡煛閸ャ儱濡煎褜鍨伴湁闁绘ǹ绉鍫熺畳闂備焦瀵х换鍌毼涘Δ鍛厺闁哄洢鍨洪悡鍐喐濠婂牆绀堟慨妯挎硾閽冪喖鏌曟繛褍瀚烽崑銊╂⒑缂佹ê濮囨い鏇ㄥ弮閸┿垽寮撮姀鈥斥偓鐢告煥濠靛棗鈧懓鈻嶉崶銊d簻闊洦绋愰幉楣冩煛鐏炵偓绀嬬€规洟浜堕、姗€鎮㈡總澶夌处
现场直击|2021世界人工智能大会
直击5G创新地带,就在2021MWC上海
5G已至 转型当时——服务提供商如何把握转型的绝佳时机
寻找自己的Flag
华为开发者大会2020(Cloud)- 科技行者