对于继承自TWinControl的控件,如果要通过鼠标来调整其大小,只需要通过SetWindowLong在GWL_STYLE风格中添加WS_SIZEBOX即可。但是对于其他继承自TControl的对象,例如TGraphicControl,因为不是windows控件,所以无法使用这种方法。因此需要自己来进行处理。
以下给出BCB的示例代码(假定更改尺寸的对象是TBevel):
变量:
//定义枚举类型,判断鼠标从哪个位置进入到控件
enum TMoveInType{mtNone,mtLeft,mtTop,mtRight,mtBottom,mtTopLeft,mtTopRight,mtBottomLeft,mtBottomRight};
TMoveInType moveInType=mtNone;
TRect SizeRect;
bool SizeState =false;
const int SizeRange = 8;
__inline int Min(int a,int b){return (a
__inline int Max(int a,int b){return (a>b) ? a : b;}
在控件的MouseMove、MouseUp事件中处理:
void __fastcall TForm1::Bevel1MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
TBevel *SdBevel;
SdBevel = (TBevel *)Sender;
//判断size开始的位置
if(!SizeState)
{
if (abs(Y -SdBevel->Height/2)<=SizeRange&&(abs(X)<=SizeRange))
{
moveInType=mtLeft;
SdBevel->Cursor = crSizeWE;
}
else if (abs(Y -SdBevel->Height/2)<=SizeRange&&abs(SdBevel->Width -X<=SizeRange))
{
moveInType=mtRight;
SdBevel->Cursor = crSizeWE;
}
else if (abs(X -SdBevel->Width/2)<=SizeRange&&(abs(Y)<=SizeRange))
{
moveInType=mtTop;
SdBevel->Cursor = crSizeNS;
}
else if (abs(X -SdBevel->Width/2)<=SizeRange&&abs(SdBevel->Height - Y<=SizeRange))
{
moveInType=mtBottom;
SdBevel->Cursor = crSizeNS;
}
else if ((abs(X)<= SizeRange)&&(abs(Y)<=SizeRange))
{
moveInType=mtTopLeft;
SdBevel->Cursor = crSizeNWSE;
}
else if (abs(SdBevel->Width -X <= SizeRange)&&(abs(Y)<=SizeRange))
{
moveInType=mtTopRight;
SdBevel->Cursor = crSizeNESW;
}
else if ((abs(X)<= SizeRange)&&abs(SdBevel->Height - Y<=SizeRange))
{
moveInType=mtBottomLeft;
SdBevel->Cursor = crSizeNESW;
}
else if (abs(SdBevel->Width -X)<= SizeRange&&abs(SdBevel->Height - Y<=SizeRange))
{
moveInType=mtBottomRight;
SdBevel->Cursor = crSizeNWSE;
}
else if (!SizeState)
{
SdBevel->Cursor = crArrow;
moveInType=mtNone;
}
}
if ((moveInType!=mtNone)&&(Shift.Contains(ssLeft)))
{
SizeState =true;
Canvas->Pen->Mode = pmNotXor;
Canvas->Pen->Style = psDot;
Canvas->Pen->Color = clDkGray;
Canvas->Brush->Style = bsClear;
//利用xor,将上次的 SizeRect抹去
Canvas->Rectangle(SizeRect.Left,SizeRect.Top,SizeRect.Right,SizeRect.Bottom);
TRect BRect;
//可能Rect的Right>Left,Top>Bottom,所以利用临时的BRect做一些调整
BRect = SdBevel->BoundsRect;
switch (moveInType)
{
case mtLeft:
BRect.Left += X;
break;
case mtRight:
BRect.Right =BRect.Left + X;
break;
case mtTop:
BRect.Top += Y;
break;
case mtBottom:
BRect.Bottom = BRect.Top+Y;
break;
case mtTopLeft:
BRect.Left += X;
BRect.Top += Y;
break;
case mtTopRight:
BRect.Right =BRect.Left + X;
BRect.Top += Y;
break;
case mtBottomLeft:
BRect.Left += X;;
BRect.Bottom = BRect.Top+Y;
break;
case mtBottomRight:
BRect.Right =BRect.Left + X;
BRect.Bottom = BRect.Top+Y;
break;
}
SizeRect.Left= Min(BRect.Left,BRect.Right);
SizeRect.Right= Max(BRect.Left,BRect.Right);
SizeRect.Top= Min(BRect.Top,BRect.Bottom);
SizeRect.Bottom=Max(BRect.Top,BRect.Bottom);
//画SizeRect
Canvas->Rectangle(SizeRect.Left,SizeRect.Top,SizeRect.Right,SizeRect.Bottom);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Bevel1MouseUp(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
if (SizeState)
{
//利用xor,将画的最后一个 SizeRect抹去
Canvas->Rectangle(SizeRect.Left,SizeRect.Top,SizeRect.Right,SizeRect.Bottom);
SizeState =false;
((TBevel *)Sender)->BoundsRect=SizeRect;
SizeRect =Rect(0,0,0,0);
//恢复初始的参数
Canvas->Pen->Mode = pmCopy;
Canvas->Brush->Style = bsSolid;
Canvas->Pen->Width = 1;
Canvas->Pen->Color = clBlack ;
}
}
//---------------------------------------------------------------------------