Make the PageControl use buttons instead of tabs

Call this procedure in your form's OnCreate() event to force the TPageControl component to use buttons instead of tabs.

procedure PageControlButtons(Hnd: THandle);
{ Turn the tabs into buttons on the TPageControl component. }
{ Call the procedure in the FormCreate() event of your form. }
{ Ex: PageControlButtons(PageControl1.Handle); }
{ Code adapted from ZieglerSoft [http://www.zieglersoft.dk/uk.html] }
begin
  { Uses CommCtrl.pas }
  SetWindowLong(Hnd, GWL_STYLE,
  GetWindowLong(Hnd, GWL_STYLE) and (not TCS_TABS) or TCS_BUTTONS);
end;


Blue Orb Software
[email protected]