tabsheet deaktivieren

[uligerhardt]

Zitat von 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?

Na du bist ein Scherzkeks.
Du nimmst den ganzen Quellcode aus der Unit raus und wunderst dich, wenn Funktionalität verloren geht?
Probier mal, den Originalcode aus dem Posting, das du eingangs verlinkt hast, zu nehmen, zu speichern und zu compilieren. Geht das mit Lazarus? (Den hier:{$mode objfpc}{$H+} darfst du von mir aus noch einfügen.)