Best way to handle double click on TTabControl?

[CM630]

It occurs that TTabControl has no DoubleClick event. Pretty odd, since double-click is a standard way to close tabs.
So I wonder which is the best way to handle double click?
Should I use OnMouseDown with a timer? IMHO this would be a wrong solution, since speed of double speed click is adjustable trough the OS settings.

[taazz]

It occurs that TTabControl has no DoubleClick event. Pretty odd, since double-click is a standard way to close tabs.

Since when? Which application/OS gives the ability to close a tab with a double click? In my experience double click does a number of different things from renaming the tab to detaching it from the page control and making it float. Personally I always use the middle mouse button up event to close a tab.

So I wonder which is the best way to handle double click?
Should I use OnMouseDown with a timer? IMHO this would be a wrong solution, since speed of double speed click is adjustable trough the OS settings.

The on double click event is already implemented in the Tcontrol class (parent of ttabcontrol) you just need to surface it and attach to it your handler just add

Code: Pascal  [Select][+][-]

1.    TTabControl = class(ComCtrls.TTabControl)
2.      property OnDblClick;
3.    end;
4.  

before your form's declaration in the same unit and attach to your existing tab controls an event handler from code no designer support for this. see if that works for you.

[CM630]

Since when?...

Indeed, it occurs that I am so much used to AkelPad...

I did the code before, but it does not fire:

Code: Pascal  [Select][+][-]

1. uses
2. ...
3.  
4.  
5. type
6.  
7.  
8. TTabControl = class(ComCtrls.TTabControl)
9.    property OnDblClick;
10. end;          
11.  
12.  
13. ....
14.  
15.  
16. TfrmMain = class(TForm)
17. ...
18.     procedure EventTabDblClick(Sender: TObject);
19. ...    
20. end;
21.  
22.  
23.  
24.  
25. procedure TfrmMain.EventTabDblClick(Sender: TObject);
26. begin
27.   msgbox ('afsdsafds');
28. end;
29.  
30.  
31.  
32.  
33. procedure TfrmMain.FormCreate(Sender: TObject);
34. begin
35. ...
36.    tbcMain.OnDblClick:=@EventTabDblClick;
37. ...
38. end;

[taazz]

I did the code before, but it does not fire:

I'll take a closer look later tonight to see why it does not fire.

[balazsszekely]

You must set ControlStyle, like this:

Code: Pascal  [Select][+][-]

1.   TTabControl = class(ComCtrls.TTabControl)
2.   public
3.     property OnDblClick;
4.     constructor Create(TheOwner: TComponent); override;
5.   end;
6.  
7.   TForm1 = class(TForm)
8.     TabControl1: TTabControl;
9.     procedure FormCreate(Sender: TObject);
10.   private
11.     procedure EventTabDblClick(Sender: TObject);
12.   public
13.  
14.   end;
15.  
16. var
17.   Form1: TForm1;
18.  
19. implementation
20.  
21. {$R *.lfm}
22.  
23. constructor TTabControl.Create(TheOwner: TComponent);
24. begin
25.   inherited Create(TheOwner);
26.   ControlStyle := ControlStyle + [csClickEvents, csDoubleClicks];
27. end;
28.  
29. procedure TForm1.FormCreate(Sender: TObject);
30. begin
31.   TabControl1.OnDblClick := @EventTabDblClick;
32. end;
33.  
34. procedure TForm1.EventTabDblClick(Sender: TObject);
35. begin
36.   ShowMessage('afsdsafds');
37. end;

[CM630]

Thanks,
GetMem's solution almost works or precisely: It works if I dobleclick on the big rectangle (TTabControls container/area or whatever it is called), but it does not work if I click on the tab itself.

[CM630]

Probably I should better search for an alternative, which has close buttons in the tabs.

[taazz]

Probably I should better search for an alternative, which has close buttons in the tabs.

oops sorry I forgot about it. well I added an alert on my phone for when I get back from work. In the mean time you can use attabs it has close buttons and already supports double clicks etc if you want a pagecontrol experience instead drop me a pm I'll see what I can do.

[CM630]

Thanks @Taazz but please do not bother. I combined an EyeCandy tab control with a TPanel, I think it would do for me.