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

panel8.top:=edit1.Top edit1.Height;
panel8.Left:=edit1.Left edit1.Width;
end;
end;
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
a:=false;
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:=false; panel22.Visible:=false; panel33.Visible:=false;
panel44.Visible:=false; panel55.Visible:=false;
panel66.Visible:=false; panel77.Visible:=false; panel88.Visible:=false;

end;
procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin if a=true then
begin
a:=false;
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;
procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
a:=true;
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;

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;

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!