|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2004/2/18 19:49:02 |
标题: |
pannel 的小问题!求助!在线等候! |
浏览:1381 |
|
加入我的收藏 |
楼主: |
如果先在窗体放pannel,在在上面放组件,这样不错,组件属于pannel,也挪不出来。如果先放组件,再放PANNEL,怎么让组件属于PANNEL,也就是在PANNEL里。相反,能不能把分离那些已经属于pannel的组件? 谢谢
----------------------------------------------
- |
作者: |
bios (阿贡) |
★☆☆☆☆ |
-
|
盒子中级会员 |
|
2004/2/18 20:05:50 |
1楼: |
ctrl+x ctrl+v全部搞定!
----------------------------------------------
|
作者: |
|
2004/2/18 20:21:20 |
2楼: |
我不明白楼主这样做的意义在哪里?
----------------------------------------------
-
|
作者: |
|
2004/2/18 21:10:39 |
3楼: |
先选中你的组件,然后用剪切,再选中你的PANNEL,再粘贴,就OK了。
----------------------------------------------
-
|
作者: |
|
2004/2/18 23:16:39 |
4楼: |
如果用代码的话: unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;
type TForm1 = class(TForm) Panel1: TPanel; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject); begin Form1.RemoveControl(Button1); Button1.Parent := Panel1; Button1.Left := 1; BUtton1.Top := 1; end;
end.
----------------------------------------------
-
|
作者: |
|
2004/2/18 23:17:54 |
5楼: |
谢谢大家,谢谢!问题你们说的真对!
----------------------------------------------
-
|
|