Comment montrer Vista style astuces ballon en Delphi?

Sur la validation d'entrée, je suis en utilisant les info-bulles au lieu de boîtes de message.
Mon problème est que sur Vista, ils ont les vieux XP style avec les coins arrondis, pas la plus récente, plus d'un rectangle comme l'aspect.

J'ai essayé de les créer à l'aide de CreateWindowEx et tooltips_class32 ou montrant l'Édition associée balloontip à l'aide de SendMessageW et EM_SHOWBALLOONTIP, le résultat est le même.
Faire la même chose dans Visual Studio et C# résultats dans un Vista style ballon de la pointe.

Vous pouvez voir un exemple de la bulle de l'indice j'ai besoin, quand vous l'activez le Verrouillage des Majuscules alors que dans un mot de passe modifier, comme sur l'ouverture de session Windows.

OriginalL'auteur Attila Szasz | 2008-11-18

  1. 16

    Si vous êtes à l'aide de Delphi 2009, puis en y ajoutant des astuces ballon est relativement simple, bien que la documentation est pauvre. (surprise, surprise)

    • Déposer un TBalloonHint sur votre formulaire
    • Déposer un TImageList à contenir des icônes si nécessaire.
    • Lien de la TIMageList à la TBalloonHint
    • Définir la forme du CustomHint propriété de la TBalloonHint
    • Assurez-vous que ShowHint et ParentCustomHint sont défini à true pour vos commandes.

    Ce bit suivant est très non-évident:

    • Format de la "Pointe" de la propriété de votre contrôle comme "Titre|Hint|ImageIndex"

    Vous avez terminé. Cela ne ressemble pas à 100% comme vista, peut-être en raison pour le choix de la police. Mais il est assez proche.

    Comment montrer Vista style astuces ballon en Delphi?

    (source: codegear.com) ,

    OriginalL'auteur Roddy

  2. 3

    Comme on peut le lire dans Delphi 2009 examinateurs guide chaque composants VCL a maintenant un CustomHint de la propriété. Il peut être réglé à tout descendant de TCustomHint.

    Assurez-vous d'activer le ballon conseils dans Vista, sinon ils ne seront pas visibles.

    Je les utilise à la place des messages d'erreur, et non pas comme des indices.
    Comment faites-vous cela? J'ai essayé ici, mais n'était pas en mesure de comprendre comment faire pour afficher l'indicateur.
    swissdelphicenter.ch/fr/printcode.le php?id=2279
    delphitricks.com/source-code/forms/...

    OriginalL'auteur Toon Krijthe

  3. 2

    La TCustomHint en Delphi 2009 a quatre protégé des surcharges de ShowHint que lorsqu'il est appelé vous permettre de placer le TCustomHint sur demande et dans des endroits spécifiques:

    procedure ShowHint; overload;
procedure ShowHint(Point: TPoint); overload;
procedure ShowHint(Rect: TRect); overload;
procedure ShowHint(Control: TControl); overload;

    Tout ce que vous devez faire est de mettre en œuvre un soupçon dans le style que vous voulez (ou simplement descendre de TBalloonHint si c'est assez proche) et de rendre ces méthodes public ait la possibilité de placer un soupçon où et quand vous voulez.

    Remarque: Changer le Titre de propriété de la TCustomHint pour changer ce texte est affiché, sauf si vous utilisez le ShowHint qui prend un TControl comme argument. Dans ce cas, il l'obtient à partir de la commande de l'Indicateur de bien (et de la place dans le Titre de propriété de la TCustomHint).

    OriginalL'auteur Jim McKeeth