有如下的代码,有几个地方不清楚,指教~~ Delphi / Windows SDK/APIhttp://www.delphi2007.net/DelphiDB/html/delphi_20061217011934260.html
procedure Tt_main.IntercontrolExecute(Sender: TObject);
var
rect1: Trect;
begin
if not t_interfase.Visible then
begin
if not Panel3.Visible then
Panel3.Show;
t_interfase.Visible := True;
Rect1:= Panel3.ClientRect;
ShowInter.Caption := '显示界面';
//将窗体t_interfase放入面板中
t_interfase.Dock(panel3,rect1);
panel3.DockManager.InsertControl(t_interfase,alclient,t_interfase);
end
else
begin
ShowInter.Caption := '隐藏界面';
Panel3.Hide;
t_interfase.Visible := False;
end;
end;
Trect是什么类型啊?
ClientRect属性是什么意思?
t_interfase.Dock(panel3,rect1);这个代码啥意思?
TRect是一个矩形区域,用左上角的点和右下角的点来确定位置
ClientRect就是客户区的区域
t_interfase.Dock(panel3,rect1); 是将t_interfase这个控件拖放到Panel3上面
看看这样的代码,应该可以理解是什么意思:
var Rect1 : TRect;
begin
Panel1.DockSite := True;
Panel1.Color := clRed;
Panel2.DragKind := dkDock;
Panel2.DragMode := dmAutomatic;
Rect1 := Panel1.ClientRect;
Panel2.Dock(Panel1, Rect1);
Panel1.DockManager.InsertControl(Panel2,alClient,Panel2);
end;
我是來頂老之地!