热点排行

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

类别：Delphi 点击：0 评论：0 推荐：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, jpeg;
const LMouseDown=False;
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Panel2: TPanel;
    Panel1: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    Panel8: TPanel;
    Panel11: TPanel;
    Panel22: TPanel;
    Panel33: TPanel;
    Panel44: TPanel;
    Panel55: TPanel;
    Panel66: TPanel;
    Panel77: TPanel;
    Panel88: TPanel;
    Button1: TButton;
    procedure Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Edit1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Edit1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Button1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  s,a:boolean;
implementation

{$R *.dfm}

 procedure ManipulateControl(Control: TControl; Shift: TShiftState; X, Y, Precision: integer);
var SC_MANIPULATE: Word;
begin
  //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  //光标在控件的最左侧**********************************************************
  //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
       if (X<=Precision) and (Y>Precision) and (Y<Control.Height-Precision)
  then begin
         SC_MANIPULATE  := $F001;
         Control.Cursor := crSizeWE;
       end
  //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  //光标在控件的最右侧**********************************************************
  //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  else if (X>=Control.Width-Precision) and (Y>Precision) and (Y<Control.Height-Precision)
  then begin
         SC_MANIPULATE  := $F002;
         Control.Cursor := crSizeWE;
       end
  //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  //光标在控件的最上侧**********************************************************
  //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  else if (X>Precision) and (X<Control.Width-Precision) and (Y<=Precision)
  then begin
         SC_MANIPULATE  := $F003;
         Control.Cursor := crSizeNS;
       end
  //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  //光标在控件的左上角**********************************************************
  //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  else if (X<=Precision) and (Y<=Precision)
  then begin
         SC_MANIPULATE  := $F004;
         Control.Cursor := crSizeNWSE;
       end
  //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  //光标在控件的右上角**********************************************************
  //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  else if (X>=Control.Width-Precision) and (Y<=Precision)
  then begin
         SC_MANIPULATE  := $F005;
         Control.Cursor := crSizeNESW    ;
       end
  //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  //光标在控件的最下侧**********************************************************
  //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  else if (X>Precision) and (X<Control.Width-Precision) and (Y>=Control.Height-Precision)
  then begin
         SC_MANIPULATE  := $F006;
         Control.Cursor := crSizeNS;
       end
  //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  //光标在控件的左下角**********************************************************
  //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  else if (X<=Precision) and (Y>=Control.Height-Precision)
  then begin
         SC_MANIPULATE  := $F007;
         Control.Cursor := crSizeNESW;
       end
  //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  //光标在控件的右下角**********************************************************
  //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  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;
        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;
        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;

end.


本文地址：http://com.8s8s.com/it/it4205.htm

Copyright © 2004-2013 信息技术中文网 All rights reserved 版权所有

Powered by 信息技术中文网 Ver2.0