Headercontrol affichage des hint pour les section

Résolu
cavalier2400 Messages postés 120 Date d'inscription mardi 8 juillet 2008 Statut Membre Dernière intervention 1 décembre 2010 - 12 juil. 2009 à 20:36
cs_cantador Messages postés 4720 Date d'inscription dimanche 26 février 2006 Statut Modérateur Dernière intervention 31 juillet 2021 - 15 juil. 2009 à 21:47
Bonsoir, je n'arrive pas à afficher ds infos bulles pour les divers sections du control HeaderControl. merci,

10 réponses

cavalier2400 Messages postés 120 Date d'inscription mardi 8 juillet 2008 Statut Membre Dernière intervention 1 décembre 2010 1
15 juil. 2009 à 17:02
Une des solutions possibles, mais peu commode:

procedure TForm1.HeaderControl1MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
var
pt: TPoint;
begin
pt.X := HeaderControl1.Left ;
pt.Y:= HeaderControl1.Top ;
Pt := form1.ClientToScreen(Pt);
Pt.x := Pt.x+X;
Pt.y := Pt.y+Y;
HeaderControl1.ShowHint := true;
label4.Caption :=inttostr(pt.X);
if ((pt.X >Pt.x-X )and (pt.X 540) and (pt.X <630 )) then
begin
HeaderControl1.Hint :='BBBBBB';
.... pour les sections suivantes
end;
end;
3
Rejoignez-nous