为什么不能在MOUSEDOWN事件中创建组件
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
mylabel:TButton;
这段代码在BUTTONCLICK里就不会出问题，可是在这里就会出现错误说TBUTTON类没有定义，这是为什么．在这个过程里不能动态创建组件吗？
[解决办法]
我试了没问题：
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
with TButton.Create(self) do
begin
Left := X;
Top := Y;
Parent := self;
Caption := Format( '%d,%d ',[X,Y]);
end;
end;
[解决办法]
uses StdCtrls
