Sugerencias de TTabSheet en Delphi

Question

Deseo un TPageControl y algunas TTabSheets, con sugerencias de información sobre la herramienta por hoja de cálculo visibles mientras deslizo el cursor sobre cada pestaña.

¿Hay alguna forma de obtener este efecto en Delphi 2009?

Answer 1

Simplemente enganche el evento Mover el mouse del control de página y use la propiedad TabAtPos para determinar en qué pestaña se está moviendo el mouse. A continuación, asigne la sugerencia de esa pestaña a la propiedad de sugerencia del control de página.

procedure TForm.PageMouseMove(Sender: TObject; Shift: TShiftState; X, Y: integer); 
var 
    tabindex: integer; 
begin 
    tabindex := PageControl.IndexOfTabAt(X, Y); 
    if (tabindex >= 0) and (PageControl.Hint <> PageControl.Pages[tabindex].Hint) then 
    begin 
    Application.CancelHint; 
    PageControl.Hint := PageControl.Pages[tabindex].Hint; 
    PageControl.ShowHint := true; 
    end; 
end; 

CancelHint/ShowHint se encargará de la actualización de la ventana de la pista cuando se mueve directamente de una pestaña a otra.

La versión mejorada pero fea a continuación también cambia temporalmente HintPause a 0 cuando el mouse se mueve directamente de una pestaña a otra para que la sugerencia se vuelva a mostrar inmediatamente. (La parte "fea" de la solución va a llamar los Application.ProcessMessages que las fuerzas insinúan mensajes para ser procesados ​​antes de HintPause se restaura.)

procedure TForm.PagesMouseMove(Sender: TObject; Shift: TShiftState; X, Y: integer); 
var 
    hintPause: integer; 
    tabindex: integer; 
begin 
    tabindex := PageControl.IndexOfTabAt(X, Y); 
    if (tabindex >= 0) and (PageControl.Hint <> PageControl.Pages[tabindex].Hint) then 
    begin 
    hintPause := Application.HintPause; 
    try 
     if PageControl.Hint <> '' then 
     Application.HintPause := 0; 
     Application.CancelHint; 
     PageControl.Hint := PageControl.Pages[tabindex].Hint; 
     PageControl.ShowHint := true; 
     Application.ProcessMessages; // force hint to appear 
    finally Application.HintPause := hintPause; end; 
    end; 
end; 

Para ocultar la pista sobre el cuerpo principal de la página, asignar el siguiente método al evento OnMouseLeave del control de página.

procedure TForm.PageMouseLeave(Sender: TObject); 
begin 
    PageControl.Hint := ''; 
    PageControl.ShowHint := false; 
end; 

Answer 2

1 - complete la propiedad .Hint y establezca la propiedad .ShowHint en True para PageControl (suponiendo que cada hoja de tarta tenga ParentShowHint establecido en verdadero, de lo contrario, tendrá que configurar cada página individualmente).

2 - Asignar a este evento controlador de eventos OnChange del PageControl:

procedure TForm1.PageControl1Change(Sender: TObject); 
begin 
    PageControl1.Hint := PageControl1.ActivePage.Hint; 
end; 

Después de hacer eso, la pista será cualquiera que sea la pestaña activa es. No estoy seguro de cómo hacer que cambie la pista en función de dónde se mueve el mouse: es un fenómeno interesante que nunca antes había notado.

Answer 3

En Raize Components, esto se puede lograr mediante el establecimiento de la propiedad trzpagecontrol.tabhints a true. Los buenos componentes pueden ahorrarle mucho tiempo (por lo tanto, dinero).

(sólo un cliente satisfecho, por cierto)

Answer 4

Por tPageControl.OnMouseMove encontrar ÍndiceDeTabulación por Pgctrl.IndexOfTabAt (X, Y) y asignar TabSheet pista para la pista TPageControl

Mira aquí:

http://www.delphigroups.info/2/9/321680.html