(Demo只演示了在四个角进行拖放控制大小和移动控件的操作)
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
CheckBox1: TCheckBox;
procedure CheckBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure ChangeSize(Control: TWinControl; Shift: TShiftState; X, Y: Integer);
const
conPrec = 6;
var
SC_MANIPULATE: Word;
begin
if (X < conPrec) and (Y < conPrec) then
begin
SC_MANIPULATE := $F004;
Control.Cursor := crSizeNWSE;
end
else if (X + conPrec > Control.Width) and (Y < conPrec) then
begin
SC_MANIPULATE := $F005;
Control.Cursor := crSizeNESW;
end
else if (X < conPrec) and (Y + conPrec > Control.Height) then
begin
SC_MANIPULATE := $F007;
Control.Cursor := crSizeNS;
end
else if (X + conPrec > Control.Width) and (Y + conPrec > Control.Height) then
begin
SC_MANIPULATE := $F008;
Control.Cursor := crSizeWE;
end
else begin
SC_MANIPULATE := $F009;
Control.Cursor := crDefault;
end;
if Shift=[ssLeft] then
begin
ReleaseCapture;
Control.Perform(WM_SYSCOMMAND, SC_MANIPULATE, 0);
end;
end;
procedure TForm1.CheckBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
ChangeSize(Sender as TWinControl, Shift, X, Y);
end;
end.