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

//光标在控件的右下角**********************************************************
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
else if (X>=Control.Width-Precision) and (Y>=Control.Height-Precision)
then begin
SC_MANIPULATE := $F008;
Control.Cursor := crSizeNWSE;
end
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//光标在控件的客户区（移动整个控件）******************************************
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
else if (X>5) and (Y>5) and (X<Control.Width-5) and (Y<Control.Height-5)
then begin
SC_MANIPULATE := $F009;
Control.Cursor := crSizeAll;
end
else begin
SC_MANIPULATE := $F000;
Control.Cursor := crDefault;
end;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
if Shift=[ssLeft] then
begin
ReleaseCapture;
Control.Perform(WM_SYSCOMMAND, SC_MANIPULATE, 0);
end;
end;
procedure TForm1.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
ManipulateControl((Sender as TControl), Shift, X, Y, 9);
edit1.Hint:=''''Edit1:TEdit'''' chr(13) ''''Origin:'''' IntToStr(edit1.Top) '''',''''
IntToStr(edit1.Left) '''';'''' ''''Size:'''' IntToStr(edit1.Width) IntToStr(edit1.Height) chr(13) ''''Tab Stop:Ture;Order:0'''';
if s=true then
begin
a:=false;
panel1.Visible:=true; panel2.Visible:=true; panel3.Visible:=true;
panel4.Visible:=true; panel5.Visible:=true;
panel6.Visible:=true; panel7.Visible:=true; panel8.Visible:=true;
panel1.top:=edit1.Top-6;
panel1.Left:=edit1.Left-6;
panel2.Top:=edit1.Top (edit1.Height div 2)-3;
panel2.Left:=edit1.Left-6;
panel3.Top:=edit1.Top edit1.Height;
panel3.Left:=edit1.Left-6;
panel4.Top:=edit1.top-6;
panel4.Left:=edit1.Left (edit1.Width div 2);
panel5.Top:=edit1.Top edit1.Height;
panel5.Left:=edit1.Left (edit1.Width div 2);
panel6.Top:=edit1.Top-6;
panel6.Left:=edit1.Left edit1.Width;
panel7.Top:=edit1.Top (edit1.Height div 2)-3;
panel7.Left:=edit1.Left edit1.Width;
panel8.top:=edit1.Top edit1.Height;
panel8.Left:=edit1.Left edit1.Width;
end;
end;

procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin

panel11.Visible:=false; panel22.Visible:=false; panel33.Visible:=false;
panel44.Visible:=false; panel55.Visible:=false;
panel66.Visible:=false; panel77.Visible:=false; panel88.Visible:=false;

s:=true;
a:=false;
panel1.Visible:=true; panel2.Visible:=true; panel3.Visible:=true;
panel4.Visible:=true; panel5.Visible:=true;
panel6.Visible:=true; panel7.Visible:=true; panel8.Visible:=true;
panel1.top:=edit1.Top-6;
panel1.Left:=edit1.Left-6;
panel2.Top:=edit1.Top (edit1.Height div 2)-3;
panel2.Left:=edit1.Left-6;
panel3.Top:=edit1.Top edit1.Height;
panel3.Left:=edit1.Left-6;
panel4.Top:=edit1.top-6;
panel4.Left:=edit1.Left (edit1.Width div 2);
panel5.Top:=edit1.Top edit1.Height;
panel5.Left:=edit1.Left (edit1.Width div 2);
panel6.Top:=edit1.Top-6;
panel6.Left:=edit1.Left edit1.Width;
panel7.Top:=edit1.Top (edit1.Height div 2)-3;
panel7.Left:=edit1.Left edit1.Width;
panel8.top:=edit1.Top edit1.Height;
panel8.Left:=edit1.Left edit1.Width;
end;

procedure TForm1.Edit1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if s=true then
begin
a:=false;
s:=false;
panel1.Visible:=true; panel2.Visible:=true; panel3.Visible:=true;
panel4.Visible:=true; panel5.Visible:=true;
panel6.Visible:=true; panel7.Visible:=true; panel8.Visible:=true;
panel1.top:=edit1.Top-6;
panel1.Left:=edit1.Left-6;
panel2.Top:=edit1.Top (edit1.Height div 2)-3;
panel2.Left:=edit1.Left-6;
panel3.Top:=edit1.Top edit1.Height;
panel3.Left:=edit1.Left-6;
panel4.Top:=edit1.top-6;
panel4.Left:=edit1.Left (edit1.Width div 2);
panel5.Top:=edit1.Top edit1.Height;
panel5.Left:=edit1.Left (edit1.Width div 2);
panel6.Top:=edit1.Top-6;
panel6.Left:=edit1.Left edit1.Width;
panel7.Top:=edit1.Top (edit1.Height div 2)-3;
panel7.Left:=edit1.Left edit1.Width;

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