AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein GUI-Design mit VCL / FireMonkey / Common Controls Delphi PageControl - Tabs um Schließen-Symbol erweitern

PageControl - Tabs um Schließen-Symbol erweitern

Ein Thema von Balu der Bär · begonnen am 15. Okt 2006 · letzter Beitrag vom 18. Feb 2023
Antwort Antwort
Seite 2 von 4     12 34   
Benutzerbild von turboPASCAL
turboPASCAL

Registriert seit: 8. Mai 2005
Ort: Sondershausen
4.274 Beiträge
 
Delphi 6 Personal
 
#11

Re: PageControl - Tabs um Schließen-Symbol erweitern

  Alt 2. Jul 2009, 07:19
Moin.

@toms, eine Frage dazu, was ist die Unit WinXP ?
Matti
Meine Software-Projekte - Homepage - Grüße vom Rüsselmops -Mops Mopser
  Mit Zitat antworten Zitat
Benutzerbild von toms
toms
(CodeLib-Manager)

Registriert seit: 10. Jun 2002
4.648 Beiträge
 
Delphi XE Professional
 
#12

Re: PageControl - Tabs um Schließen-Symbol erweitern

  Alt 2. Jul 2009, 07:33
Zitat von turboPASCAL:
Moin.

@toms, eine Frage dazu, was ist die Unit WinXP ?
Diese Unit kann entfernt werden. Brauchte ich nur für D6, da dieses die XPMan noch nicht hat.
Thomas
  Mit Zitat antworten Zitat
Benutzerbild von anse
anse

Registriert seit: 30. Okt 2006
Ort: Neuenkirchen
188 Beiträge
 
Delphi 11 Alexandria
 
#13

Re: PageControl - Tabs um Schließen-Symbol erweitern

  Alt 28. Jul 2009, 20:51
Cool wäre ja jetzt noch wenn man im leeren Bereich rechts neben den Tabs auf Doppelklick ein neues Tab öffnen könnte - so wie es im FireFox und mittlerweile auch einigen anderen Anwendungen funktioniert. Leider feuert in dem Bereich aber kein einziger Event:
* OnMouseDown + OnMouseUp reagieren nur auf den Tabs selbst, nicht aber in dem freien Bereich
* OnMouseClick + OnDblClick gibt's gar nicht bei TPageControl
* OnMouseActivate ist unbrauchbar für diesen Zweck und feuert auch dort nicht
* Auch die darunterliegende Komponente feuert hier kein OnClick o.ä. (was auch eigentlich logisch ist, aber hätte ja sein können)

Ideen?
Ansgar Becker
  Mit Zitat antworten Zitat
Benutzerbild von mirage228
mirage228

Registriert seit: 23. Mär 2003
Ort: Münster
3.750 Beiträge
 
Delphi 2010 Professional
 
#14

Re: PageControl - Tabs um Schließen-Symbol erweitern

  Alt 29. Jul 2009, 01:21
Wird auch keine VCL-Interne Window Message verschickt? Ala CM_MOUSECLICK oder so?
David F.

May the source be with you, stranger.
PHP Inspection Unit (Delphi-Unit zum Analysieren von PHP Code)
  Mit Zitat antworten Zitat
Benutzerbild von anse
anse

Registriert seit: 30. Okt 2006
Ort: Neuenkirchen
188 Beiträge
 
Delphi 11 Alexandria
 
#15

Re: PageControl - Tabs um Schließen-Symbol erweitern

  Alt 29. Jul 2009, 08:04
Oh, sofern ein Tab den Fokus hat wird bei Klick auf den freien Bereich die Message 45060 verschickt. Keine Ahnung welche das genau ist, WM_LBUTTONDOWN (513) ist es nicht.
Ansgar Becker
  Mit Zitat antworten Zitat
Benutzerbild von Lannes
Lannes

Registriert seit: 30. Jan 2005
Ort: Münster
745 Beiträge
 
Delphi 3 Professional
 
#16

Re: PageControl - Tabs um Schließen-Symbol erweitern

  Alt 29. Jul 2009, 08:31
Hallo,

45060 -> $B004

Aus controls.pas:
CM_BASE = $B000;
CM_CANCELMODE = CM_BASE + 4;

In OnMouseDown der Form kannst Du ermitteln ob ein Mousklick in dem Bereich stattgefunden hat:
Delphi-Quellcode:
var aRect : TRect;
    aPoint : TPoint;
begin
  aRect := PasgeControl.ClientRect;
  aPoint := PasgeControl.ScreenToClient(ClientToScreen(Point(X,Y)));
  if PtInRect(aRect,aPoint) then
    //neben Reiter geklickt
    else
      //auf Form geklickt
OnMouseDown der Form feuert nicht wenn auf andere Bereiche des PageControl geklickt wird.
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )
  Mit Zitat antworten Zitat
Benutzerbild von anse
anse

Registriert seit: 30. Okt 2006
Ort: Neuenkirchen
188 Beiträge
 
Delphi 11 Alexandria
 
#17

Re: PageControl - Tabs um Schließen-Symbol erweitern

  Alt 29. Jul 2009, 21:40
Hey Lannes, Grüße nach Münster aus Nienberge (bzw. Neuenkirchen privat)

Bei mir feuert die Form kein OnMouseDown wenn ich auf eine Komponente - egal welche und egal an welcher Stelle ich klicke. (D11)

(ähm, arbeitest du wirklich noch mit Delphi 3 (siehe dein Profil)?)
Ansgar Becker
  Mit Zitat antworten Zitat
Benutzerbild von semo
semo

Registriert seit: 24. Apr 2004
755 Beiträge
 
Delphi 2010 Professional
 
#18

Re: PageControl - Tabs um Schließen-Symbol erweitern

  Alt 29. Jul 2009, 22:36
Kleiner EInwurfvon mir: die Jedis bieten eine schöne Komponente: TJvTabBar
  Mit Zitat antworten Zitat
Benutzerbild von toms
toms
(CodeLib-Manager)

Registriert seit: 10. Jun 2002
4.648 Beiträge
 
Delphi XE Professional
 
#19

Re: PageControl - Tabs um Schließen-Symbol erweitern

  Alt 30. Jul 2009, 07:24
Zitat von M. Hassmann:
Kleiner EInwurfvon mir: die Jedis bieten eine schöne Komponente: TJvTabBar
Das "X" ist jedoch immer links und es gibt keine Hover/OnClick-Effekte
Thomas
  Mit Zitat antworten Zitat
uwewo

Registriert seit: 14. Jul 2004
Ort: Karlsruhe
479 Beiträge
 
Delphi 2006 Professional
 
#20

Re: PageControl - Tabs um Schließen-Symbol erweitern

  Alt 30. Jul 2009, 09:06
Delphi-Quellcode:
//Notlösung, da kA wie man das TRect manuell setzt um den Reiter zu verbreitern:
PageControl1.Pages[PageIndex].Caption := PageControl1.Pages[PageIndex].Caption + ' ';
PageControl.TabWidth
Uwe
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 21:49 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