Suche Komponente
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... :/
|
Re: Suche Komponente
Moin Red Dragon,
das liesse sich doch mit dem PageControl bewerkstelligen. |
Re: Suche Komponente
Zitat:
dieses integrierte schliesungsbutton hat mir vorallem gefallen :lol: |
Re: Suche Komponente
Moin Red Dragon,
Zitat:
Zitat:
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; |
Re: Suche Komponente
Zitat:
Zitat:
|
Re: Suche Komponente
Moin Red Dragon,
Zitat:
[EDIT] Ausserdem finde ich den auch ganz praktisch [/EDIT] |
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:36 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz