如何实现这种可视化的效果?(50分)

大侠们:

我们写软件时都会这样,选择一个panel控件后,再窗体划一个区域(方框),然后动态生成panel的控件
与区域的大小一样,请问如何实现选择区域这个过程;

是不是没有会?还是分数太低了

在鼠标事件里自己写吧，
你的问题简单，就是复杂所以没人答

不知如何下手,大侠们

????????????????????惨,没人

我给你一个代码

mx,my:Integer;
ddd:Trect;
//全局变量

procedure TForm1.FormMouseDown(Sender: TObject;
Button: TMouseButton;
Shift: TShiftState;
X, Y: Integer);
begin

mx:=x;
my:=y;
end;


procedure TKQForm.Image1MouseMove(Sender: TObject;
Shift: TShiftState;
X,
Y: Integer);
begin

if ssLeft in shift then

begin

Form1.Canvas.Brush.Color:=Form1.Color;
Form1.Canvas.FrameRect(ddd);
ddd.Left:=mx;
ddd.Top:=my;
ddd.Right:=y;
ddd.Bottom:=x;
Form1.Canvas.DrawFocusRect(ddd);
end;

end;

谢谢