Suche Komponente

[Red_Dragon]

bei mozilla firefox gefällt mir dieses tabsheet system gibt es das auch vieleicht auch zum downloaden? ist mir in meiner suche noch nicht untergekommen... :/

[Christian Seehase]

Moin Red Dragon,

das liesse sich doch mit dem PageControl bewerkstelligen.

[Red_Dragon]

Zitat von Christian Seehase:

Moin Red Dragon,

das liesse sich doch mit dem PageControl bewerkstelligen.

jo das createn der tabsheets hatte ich auch mit pagecontrol gemacht aber das schliesen konnte ich net richtig da das dann irgendwie nicht mehr geladen hat wenn ich open dialog gestartet hatte :/

dieses integrierte schliesungsbutton hat mir vorallem gefallen

[Christian Seehase]

Moin Red Dragon,

Zitat von Red_Dragon:

das schliesen konnte ich net richtig da das dann irgendwie nicht mehr geladen hat

Der Fehler muss sich doch beseitigen lassen

Zitat von Red_Dragon:

dieses integrierte schliesungsbutton hat mir vorallem gefallen

Zeichne es doch selber.
Dazu dann im PageControl auf OwnerDraw = true stellen, und, z.B. im OnDrawTab, den Button zeichnen.

Delphi-Quellcode:

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
  PageControl1.Canvas.Brush.Color := clRed;
  PageControl1.Canvas.FillRect(classes.Rect(PageControl1.Width-20,2,PageControl1.Width,20));
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if (x >= (PageControl1.Width-20+PageControl1.Left)) and (x <= (PageControl1.Width+PageControl1.Left)) and
     (y >= PageControl1.Top)                          and (y <= (PageControl1.Top+20)) then begin
    PageControl1.Canvas.Brush.Color := clNavy;
    PageControl1.Canvas.FillRect(classes.Rect(PageControl1.Width-20,2,PageControl1.Width,20));
  end else begin
    PageControl1.Canvas.Brush.Color := clRed;
    PageControl1.Canvas.FillRect(classes.Rect(PageControl1.Width-20,2,PageControl1.Width,20));
  end;
end;

[Red_Dragon]

Zitat von Christian Seehase:

Der Fehler muss sich doch beseitigen lassen

tja das schaft wohl nur gott ich hab schon alles probiert eigentlich MUSS es gehen aber es tut es nicht

Zitat von Christian Seehase:

Zeichne es doch selber.
Dazu dann im PageControl auf OwnerDraw = true stellen, und, z.B. im OnDrawTab, den Button zeichnen.

ach ne war eigenltich nur als witz gedacht ^^ ich kann natürlich mit externen close button leben hauptsache sie gehen

[Christian Seehase]

Moin Red Dragon,

Zitat von Red_Dragon:

ach ne war eigenltich nur als witz gedacht ^^

warum, man kann ja auch einfach einen Button an der Stelle plazieren, und muss nicht mal selber zeichnen

[EDIT]
Ausserdem finde ich den auch ganz praktisch
[/EDIT]