PageControl - Tabs um Schließen-Symbol erweitern

[anse]

Jo, das war der entscheidende Hinweis - vielen dank! Die direkt darunter liegende Form oder Panel feuert das OnDblClick. In meinem Fall ein Panel auf der Form. Klappt wunderbar. Werde das mit dem obigen Code für den Close-Button kombinieren und hier einbauen.

[fkerber]

Hi,

ich muss mal diesen etwas älteren Thread hervorzaubern
Im Prinzip kann das PageControl hier nahezu alles, was ich möchte, aber es gibt (zumindest bei mir) ein kleines Problem.
Wenn mehr Pages da sind, als angezeigt werden können, gibt es ja rechts diese netten Pfeile zum Durchscrollen (wenn multiline = False). Leider scrollen dabei nur die Tabs durch die Gegend und die X bleiben fix.
Gerade bei unterschiedlichen breiten Tabs fällt das dann sehr unschön auf.
Leider konnte ich kein Event finden, dass gefeuert wird, wenn dieses Scrollen stattfindet, um dann die X neu zu zeichnen - außer onDrawTab (wenn OwnerDraw = True) und dann war erstmal alles Schöne weg und ich befürchte, der Aufwand im onDrawTab alles selbst zu zeichnen, bis es so aussieht, wie es jetzt ist, ist wahrscheinlich nicht ganz gering. Davon ab würde dann das Ganze ja auch viel zu oft aufgerufen werden.

Hat da vielleicht jemand eine Idee zu?


LG, Frederic

[Björn Ole]

Da hast du dein Event.

Delphi-Quellcode:

type
  TPageControl_ = class(TPageControl)
  private
    FOnScroll: TNotifyEvent;
  protected
    procedure WndProc(var Message: TMessage); override;
  published
    property OnScroll: TNotifyEvent read FOnScroll write FOnScroll default nil;
  end;

  TPageControl = class(TPageControl_);

{ TPageControl_ }

procedure TPageControl_.WndProc(var Message: TMessage);
begin
  inherited;
  if (Message.Msg = WM_HSCROLL) and Assigned(FOnScroll) then
    FOnScroll(Self);
end;

[fkerber]

Hi!

Super, danke!


LG, Frederic

[Back2Code]

Zitat von Björn Ole:

Da hast du dein Event.

Delphi-Quellcode:

type
  TPageControl_ = class(TPageControl)
  private
    FOnScroll: TNotifyEvent;
  protected
    procedure WndProc(var Message: TMessage); override;
  published
    property OnScroll: TNotifyEvent read FOnScroll write FOnScroll default nil;
  end;

  TPageControl = class(TPageControl_);

{ TPageControl_ }

procedure TPageControl_.WndProc(var Message: TMessage);
begin
  inherited;
  if (Message.Msg = WM_HSCROLL) and Assigned(FOnScroll) then
    FOnScroll(Self);
end;

Soll das in die Vcl.ComCtrls Unit??

[DeddyH]

Nö, pack das mal in die Formularunit mit dem PageControl.

[Back2Code]

Zitat von DeddyH:

Nö, pack das mal in die Formularunit mit dem PageControl.

Habs jetzt anders gemacht und zwar indem ich ReCalculateButtonPositions in das FormResize Event gepackt habe.

Delphi-Quellcode:

procedure TMainForm.FormResize(Sender: TObject);
begin
  ReCalculateButtonPositions;
end;