如何区分TPanel的OnClick与OnDblClick事件

[adon]

有关TPanel控件的事件响应代码如下：

procedure TForm1.Panel1Click(Sender: TObject);
begin
//Some Code
ShowMessage('Click!');
end;

procedure TForm1.Panel1DblClick(Sender: TObject);
begin
//Some Code
ShowMessage('DblClick!');
end;

以上代码TPanel不能响应DblClick事件，我该如何才能执行DblClick呢？
等待中……

[adon]

我是用TPanel组件动态生成房间状态，需要响应单击和双击事件。

var Panel : array [1..40] of TPanel;

for i:=1 to 40 do begin
if not Assigned(Panel[i]) then Panel[i]:=TPanel.Create(MainForm);
Panel[i].Parent:=Self;
//Panel[i].Caption:='' ; ...

Panel[i].OnClick:=MainForm.Panel1Click;
Panel[i].OnDblClick:= MainForm.Panel1DblClick;
end;

或者还有更好的解决方法吗？

[bamfk10231023]

ControlStyle := ControlStyle + [csDoubleClicks];
// csDoubleClicks 控件可以对鼠标的双击操作进行接受和反应，此外可以将双击映射成为按击操作。