Créer ses propres fenêtres de Hint

Type
TMyHintWindow = Class (THintWindow)
Constructor Create (AOwner: TComponent);override;
end;

Constructor TMyHintWindow.Create(AOwner:TComponent);
begin
Inherited Create (AOwner);
Canvas.Font.Name := 'Courier New';
Canvas.Font.Size := 72;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.ShowHint := false;
HintWindowClass := TMyHintWindow;
Application.ShowHint := True;
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour04/03/2002
VisualisationVu 1100 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Autre categorie
Auteur de l'article
Communauté Delphi Communauté Delphi
connecté le 02/11/2011
0 articles dans la section
Contacter l'auteur