tpagecontrol

I have used the code provided in this example How to implement a close button for a TTabsheet of a TPageControl to draw a close button to each tabsheet of a pagecontrol and I have replaced ThemeServices with Style Services inside the code and when applying styles the close button doesn`t show and react in no way. Could anyone point me to a different path o solving this issue. thank you! this is the code of the OnDrawTab event: procedure TFormMain.PageControlCloseButtonDrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean); var CloseBtnSize: Integer;

In Delphi 2009 I found that the flicker of a PageControl - which occurs during resizing of the form - can be reduced by setting its DoubleBuffered property to true. However if I add controls to the PageControl tabsheets, they will flicker regardless of their DoubleBuffered property setting. I have also tried with and without runtime themes enabled. Setting ParentBackground to False for components on the PageControl helped a lot. However this results in a different color of these panel components, they all have a darker background now. Maybe this can be fixed easily (without losing Theme

How can I implement a close button for a TTabsheet of a TPageControl like Firefox? Edit: Delphi Version: Delphi 2010 OS: Windows XP and up Now with Theme support (include Windows, UxTheme, Themes units)! type TFormMain = class(TForm) {...} private FCloseButtonsRect: array of TRect; FCloseButtonMouseDownIndex: Integer; FCloseButtonShowPushed: Boolean; {...} end; {...} procedure TFormMain.FormCreate(Sender: TObject); var I: Integer; begin PageControlCloseButton.TabWidth := 150; PageControlCloseButton.OwnerDraw := True; //should be done on every change of the page count SetLength

So, I have an application that loads different plugins and creates a new tab on a TPageControl for each one. Each DLL has a TForm associated with it. The forms are created with their parent hWnd as the new TTabSheet. Since the TTabSheets aren't a parent of the form as far as VCL is concerned ( didn't want to use dynamic RTL, and plugins made in other languages ) I have to handle resizes manually. I do this like below: var ChildHandle : DWORD; begin If Assigned(pcMain.ActivePage) Then begin ChildHandle := FindWindowEx(pcMain.ActivePage.Handle, 0, 'TfrmPluginForm', nil); If ChildHandle > 0 Then