模擬delphi編輯窗體操作控件

　　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

[1] [2] [3] [4] [5] [6] [7] [8] [9] 下一頁