Programowanie

Dzisiaj szybko musiałem pozbyć się nagłówków z kontrolki PageControl i przygotowałem zmodyfikowany komponent dla Delphi – PageControlEx z opcją ukrywania nagłówków.

////////////////////////////////////////////////////////////////////////////////
//
// Custom PageControlEx component with hidden page tabs
//
// Bartosz Wójcik | www.pelock.com
//
////////////////////////////////////////////////////////////////////////////////

unit PageControlEx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  ExtCtrls, StdCtrls, ComCtrls;

Type

  TPageControlEx = class(TPageControl)

  private
    FHideHeader: Boolean;
    procedure SetHideHeader(const Value: Boolean);
  protected
    procedure WndProc(var Msg: TMessage); override;
  published
    property HideHeader:Boolean read FHideHeader Write SetHideHeader;
  End;

procedure Register;

implementation

procedure TPageControlEx.WndProc(var Msg: TMessage);
begin
  // hide header via intercepting TCM_ADJUSTRECT message
  if (FHideHeader = True) and (Msg.Msg = $1328) then
    Msg.Result := 1
   else
    inherited;
end;

procedure TPageControlEx.SetHideHeader(const Value: Boolean);
begin
  FHideHeader := Value;
end;

procedure Register;
begin
  RegisterComponents('PELock', [TPageControlEx])
end;

end.