View Issue Details

IDProjectCategoryView StatusLast Update
0001783JEDI VCL04 Feature Requestpublic2004-05-24 00:25
ReporteranonymousAssigned Touser72 
Status resolvedResolutionfixed 
Product Version 
Target VersionFixed in Version 
Summary0001783: Change tabs in TjvTabControl and TjvPageControl with the right mouse button
DescriptionIn some situations it would be useable to let the user change the active tab of a TjvTabControl or a TjvPageControl with the right mouse button (e.g. if the tab has a popup menu that deals with teh content of the corresponding page)

Currently i do this with a code that looks like this:

procedure TMyForm.JvTabControlMouseDown(
  Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,
  Y: Integer);
  r : TRect;
  i : Integer;
  for i := 0 to JvTabControl.Tabs.Count - 1 do begin
    r := JvTabControl.TabRect(i);
    if PtInRect(r, Point(x, y)) then begin
      JvTabControl.TabIndex := i;
      // call a method that updates or handles the new tab

Maybe ths could be controlled by a new property (ChangeTabOnRightMouseButton??) or an event that "asks" the application when the right mouse button was clicked if the tab should be changed?

Would that be usefull?

TagsNo tags attached.



2004-05-21 04:39


An implementation has been added to JvComCtrls in CVS. PLease try and comment.


2004-05-23 03:51

viewer   ~0004316

This implementation is workig but it does not generate the events OnChanging and OnChange. See newsgroup for a sample implementation that will do this


2004-05-23 08:50


Try the new version in CVS (rev 1.50)


2004-05-24 00:18

viewer   ~0004326

With the new version (rev 1.5) it works as expected. The events are generated when the user changes the page with the right mouse button.


2004-05-24 00:25


Great! I'm closing this issue now

Issue History

Date Modified Username Field Change
2004-05-20 02:48 anonymous New Issue
2004-05-21 04:39 user72 Status new => assigned
2004-05-21 04:39 user72 Assigned To => user72
2004-05-21 04:39 user72 Note Added: 0004314
2004-05-23 03:51 anonymous Note Added: 0004316
2004-05-23 08:50 user72 Note Added: 0004317
2004-05-24 00:18 anonymous Note Added: 0004326
2004-05-24 00:25 user72 Status assigned => resolved
2004-05-24 00:25 user72 Resolution open => fixed
2004-05-24 00:25 user72 Note Added: 0004327