在ＢＣＢ中如何动态改变组件的大小.doc

/-#include #pragma hdrstop#include Unit1.h/-#pragma package(smart_init)#pragma resource *.dfmTForm1 *Form1;/-_fastcall TForm1:TForm1(TComponent* Owner) : TForm(Owner)/-void _fastcall TForm1:Image1MouseMove(TObject *Sender, TShiftState Shift, int X, int Y)TControl* vcl = (TControl*)Sender;if ( X5) if (YCursor = crSizeNWSE; else if (Yvcl-Height -5) vcl-Cursor = crSizeNESW; else vcl-Cursor = crSizeWE; else if (X vcl-Width -5) if (YCursor = crSizeNESW; else if (Yvcl-Height -5) vcl-Cursor = crSizeNWSE; else vcl-Cursor = crSizeWE; else if (Yvcl-Height-5) vcl-Cursor = crSizeNS;else vcl-Cursor = crSizeAll;if (SizeMode = smNone) return;if (SizeMode = smMove) vcl-Left=vcl-Left+X-ClickX; vcl-Top=vcl-Top+Y-ClickY; return; if (SizeMode & smLeft) vcl-Left = vcl-Left +(X-ClickX); vcl-Width =ClickWidth -(vcl-Left-ClickLeft); if (SizeMode & smRight) vcl-Width =ClickWidth +X-ClickX; if (SizeMode & smUp) vcl-Top = vcl-Top +(Y-ClickY); vcl-Height =ClickHeight -(vcl-Top-ClickTop); if (SizeMode & smDown) vcl-Height = ClickHeight +Y -ClickY; /-void _fastcall TForm1:Image1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) TControl *vcl = (TControl*)Sender; if ( Shift.Contains(ssLeft) ClickX = X; ClickY = Y; ClickLeft = vcl-Left; ClickTop = vcl-Top; ClickWidth = vcl-Width; ClickHeight = vcl-Height; switch(vcl-Cursor) case crSizeNS: if (Y5) SizeMode = smUp; else SizeMode = smDown; break; case crSizeWE: if (X5) SizeMode = smLeft; else SizeMode = smRight; break; case crSizeNWSE: if (X5) SizeMode = smLeft | smUp; else SizeMode = smRight | smDown; break; case crSizeNESW: if (X5) SizeMode = smLeft | smDown; else SizeMode = smRight | smUp; break; default: SizeMode = smMove; break; /-void _fastcall TForm1:Image1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) SizeMode = smNone;/-#ifndef Unit1H#define Unit1H/-#include #include #include #include #include #include #include /-#define smNone 0#define smMove 1#define smLeft 2#define smRight 4#define smUp 8#define smDown 16/-class TForm1 : public TForm_published:/ IDE-managed Components TPanel *Panel1; TImage *Image3; TLabel *Label1; TShape *Shape1; void _fastcall Image1MouseMove(TObject *Sender, TShiftState Shift, int X, int Y); void _fastcall Image1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y); void _fastcall Image1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);private:/ User declarations int ClickX; int ClickY; int ClickLeft; int ClickTop; int ClickWidth;