TabSheets...

[bingo72]

Hallo Delphigemeinde!!

Ich habe ein Panel auf ein Tabsheet gepatzt und habe wie man im Anhang sehen kann, immer einen kleinen hässlichen Rand, obwohl ich das Panel schon mit mit alClient am Tabsheet ausgerichtet habe. Wie bekomme ich diesen Rand weg??

LG
Thomas

[sh17]

geht nur mit Style = tsFlatButtons, ansonsten nicht.

[bingo72]

Hallo Sven!!

Danke für die rasche Antwort...jetzt bin ich meinem Ziel schon recht nahe...habe zusätzlich nun auch noch die Tabs verschwinden lassen und sieht nun so aus --> Attachment!!

Meine letzte Frage...gibt es auch noch eine Möglichkeit den Rand zw. Tabsheet und PageControl zu eliminieren??

LG
Thomas

[bingo72]

Bei meinen Nachforschungen bin ich draufgekommen, daß ich bei den Tabsheet-Einstellungen Left := 4 und Top := 6 habe, die sich aber nicht auf 0 verändern lassen.....

Vielleicht ist das ja der Grund warum ich einen Rand habe??!!

[sh17]

Den Rand bekommst Du nicht weg. Er wird durch den Style einfach nur Flach gemacht.

Beim Panel geht noch der/die/das Bevel wegzumachen.

Sven

[marabu]

Hallo,

vielleicht ist die alte Komponente TNoteBook in diesem Fall interessanter als TPageControl. Bei den Jedis gibt es da noch die Komponente JvWizard, falls du so etwas vorhaben solltest.

Grüße vom marabu

[bingo72]

Danke für eure Tipps...

Die alte TNotebook-Komponente war vorher im Einsatz, läßt sich aber nicht vererben (TNotebook: this component doesn't support inheritance....blabla)... drum Umsteig auf PageControl!!

Habe das Problem insofern in den Griff bekommen, als das ich mir eine Komponente von PageControl abgeleitet habe....nach folgenden Muster und es funzt!! :thumb:

Delphi-Quellcode:

unit BPageControl;

interface

uses
  ComCtrls, Messages, Controls, Classes, Windows, CommCtrl;


type 
   TBPageControl = class(TPageControl)
   private
   protected
     procedure WndProc(var Msg: TMessage); override;
     procedure CreateParams(var Params: TCreateParams); override;
   public
     constructor Create(AOwner: TComponent); override;
   end;

implementation

constructor TBPageControl.Create(AOwner: TComponent);
begin
   inherited;
   //ParentBackground := False;
end;


procedure TBPageControl.CreateParams(var Params: TCreateParams);
begin
   inherited;
   //ParentBackground := False;
end;


procedure TBPageControl.WndProc(var Msg: TMessage);
begin
  inherited WndProc(Msg);
  if (Msg.Msg = TCM_ADJUSTRECT) then begin
    with PRect(Msg.LParam)^ do begin
      Left := 0;
      Right := ClientWidth;
      Top := Top - 6;
      Bottom := ClientHeight;
    end;
  end;
end;
end.

Vielleicht kann es ja mal wer brauchen!!

[sh17]

Cool, Danke, werd es bei Gelegenheit mal testen und gleich in meine TNTControls einbauen.