tabsheet怎么双击关闭呢？没有找到双击事件

[lshfong]

这是在delphi中的解决办法，但bcb中要出错
OnMouseDown事件
procedure TForm1.PageControl1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
Index: Integer;
begin
if (Button = mbLeft) and (ssDouble in Shift) then
begin
Index := PageControl1.IndexOfTabAt(X, Y);
if Index >= 0 then
PageControl1.Pages[Index].Free;
end;
end;
=====================================我改成bcb的
void __fastcall TForm2::TabSheet1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y) {
if (Button == mbLeft && ssDouble in Shift) {
PageControl1->RemoveControl(ActivePage);
PageControl1->ActivePage->Free();
}
}
错误提示：[BCC32 Error] Unit2.cpp(119): E2377 If statement missing )
Full parser context
Unit2.cpp(118): parsing: void _fastcall TForm2::TabSheet1MouseDown(TObject *,TMouseButton,TShiftState,int,int)

[|????|]

楼主你发错势力范围了。这里归C++Builder管辖。

[|????|]

搞错了，原来也是C++Builder的东东。
可是 (ssDouble in Shift)这句是啥意思啊？不懂。

[ccrun.com]

C++Builder中没有in的语法, 改成下面这个就行了:

void __fastcall TForm1::PageControl1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    if (Button == mbLeft && Shift.Contains(ssDouble))
    {
        int nIndex = PageControl1->IndexOfTabAt(X, Y);
        if (nIndex >= 0)
            PageControl1->Pages[nIndex]->Free();
    }
}

注意是PageControl的OnMouseDown,而不是TabSheet的OnMouseDown事件,这两个事件有区别的

[lshfong]

妖哥，该你吃，分全给你