模拟delphi编辑窗体操作控件。。。_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

模拟delphi编辑窗体操作控件。。。

作者：闵涛文章来源：闵涛的学习笔记点击数：1655 更新时间：2009/4/23 18:26:51

anel11.Visible:=true;      panel22.Visible:=true;     panel33.Visible:=true;
        panel44.Visible:=true;      panel55.Visible:=true;
        panel66.Visible:=true;      panel77.Visible:=true;     panel88.Visible:=true;
        panel11.top:=Button1.Top-6;
        panel11.Left:=Button1.Left-6;
        panel22.Top:=Button1.Top+(Button1.Height div 2)-3;
        panel22.Left:=Button1.Left-6;
        panel33.Top:=Button1.Top+Button1.Height;
        panel33.Left:=Button1.Left-6;
        panel44.Top:=Button1.top-6;
        panel44.Left:=Button1.Left+(Button1.Width div 2);
        panel55.Top:=Button1.Top+Button1.Height;
        panel55.Left:=Button1.Left+(Button1.Width div 2);
        panel66.Top:=Button1.Top-6;
        panel66.Left:=Button1.Left+Button1.Width;
        panel77.Top:=Button1.Top+(Button1.Height div 2)-3;
        panel77.Left:=Button1.Left+Button1.Width;
        panel88.top:=Button1.Top+Button1.Height;
        panel88.Left:=Button1.Left+Button1.Width;
end;

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
ManipulateControl((Sender as TControl), Shift, X, Y, 9);
edit1.Hint:=''''Button1:TButton''''+chr(13)+''''Origin:''''+IntToStr(Button1.Top)+'''',''''
+IntToStr(Button1.Left)+'''';''''+''''Size:''''+IntToStr(Button1.Width)+IntToStr(Button1.Height)+chr(13)+''''Tab Stop:Ture;Order:0'''';


       if a=true then
        begin
        s:=false;
        panel1.Visible:=false;      panel2.Visible:=false;     panel3.Visible:=false;
        panel4.Visible:=false;      panel5.Visible:=false;
        panel6.Visible:=false;      panel7.Visible:=false;     panel8.Visible:=false;

        panel11.Visible:=true;      panel22.Visible:=true;     panel33.Visible:=true;
        panel44.Visible:=true;      panel55.Visible:=true;
        panel66.Visible:=true;      panel77.Visible:=true;     panel88.Visible:=true;
        panel11.top:=Button1.Top-6;
        panel11.Left:=Button1.Left-6;
        panel22.Top:=Button1.Top+(Button1.Height div 2)-3;
        panel22.Left:=Button1.Left-6;
        panel33.Top:=Button1.Top+Button1.Height;
        panel33.Left:=Button1.Left-6;
        panel44.Top:=Button1.top-6;
        panel44.Left:=Button1.Left+(Button1.Width div 2);
        panel55.Top:=Button1.Top+Button1.Height;
        panel55.Left:=Button1.Left+(Button1.Width div 2);
        panel66.Top:=Button1.Top-6;
        panel66.Left:=Button1.Left+Button1.Width;
        panel77.Top:=Button1.Top+(Button1.Height div 2)-3;
        panel77.Left:=Button1.Left+Button1.Width;
        panel88.top:=Button1.Top+Button1.Height;
        panel88.Left:=Button1.Left+Button1.Width;
        end;
end;