Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   hints en las solapas de un pageControl (https://www.clubdelphi.com/foros/showthread.php?t=83084)

delphiana 09-05-2013 17:15:59

hints en las solapas de un pageControl
 
Hola!!
Si alguien me ayuda, por favor. Quisiera saber si alguno sabe como hacer que los hints de las páginas de un PageControl se muestren pasando el mouse por la solapa donde figura el caption de la página y no solamente cuando la página está activa.
GRACIAS!!
Saludos

ecfisa 09-05-2013 21:24:01

Hola delphiana y vienvenida a Club Delphi :)

Como a todos los que se inician, te invitamos a que leas nuestra guía de estilo.

Código Delphi [-]
implementation

uses CommCtrl;

procedure TForm1.FormCreate(Sender: TObject);
begin
  PageControl1.ShowHint := True;
  ...
end;

procedure TForm1.PageControl1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
var
  HI    : TTCHitTestInfo;
  Index : Integer;
begin
  HI.pt.x  := X;
  HI.pt.Y  := Y;
  HI.flags := 0;
  with Sender as TPageControl do
  begin
    Index := Perform(TCM_HITTEST, 0, Longint(@HI));
    Hint  := Pages[Index].Hint;
  end;
end;

Saludos. :)

delphiana 12-05-2013 01:46:54

Muchas Gracias!! Fue de mucha utilidad tu sugerencia.
Saludos


La franja horaria es GMT +2. Ahora son las 05:48:14.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi