1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42
|
private
{ Déclarations privées }
ancx,ancy,oldwidth,oldheight:word;
dx,dy:integer;
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
doublebuffered:=true;
end;
procedure TForm1.Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if (ssLeft in Shift) then
begin
dx:=x-ancx;
dy:=y-ancy;
with shape1 do
begin
width:=oldwidth+dx;
height:=oldheight+dy;
end;
end
else
begin
ancx:=x;
ancy:=y;
oldwidth:=shape1.Width;
oldheight:=shape1.Height;
end;
end; |
Partager