tabsheet deaktivieren

[khh]

Zitat von uligerhardt:

Schau doch mal, ob das Programm bei dir in TPBPageControl.DrawTab ankommt. Vielleicht ist TCustomTabControl.DrawTab in Lazarus nicht als virtuell deklariert?

mh wenn ich ins

TPBPageControl.Create reinsteppe komme ich in die Tpagecontrol

die PBPagecontrol sieht nach dem Einbinden in die IDE so aus:

Delphi-Quellcode:

unit PBPageControl;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ComCtrls;

type
  TPBPageControl = class(TPageControl)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Common Controls',[TPBPageControl]);
end;

end.

was macht Lazarus da?