[Delphi 7] Récupérer tous les messages arrvant au niveau d'un Tbutton

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Delphi 7] Récupérer tous les messages arrvant au niveau d'un Tbutton

Yoyo@

Salut!

(je précise que j'utilise Delphi 7)

Voilà, j'ai un composant de la classe TButtoon dans une instance TForm.

Je voulais savoir comment faire pour récupérer TOUS les messages qui étaient envoyés à mon TButton? Est ce que c'est possible?

Merci

Publicité

zion

Plop

Via Application.OnMessage tu peux avoir tous les messages, faut juste que tu vérifies celui qui est pour ton bouton ou pas.

Sinon tu dérives un compo TButton et la le monde est à toi

Yoyo@

En passant par Application.OnMessage, chui OK!

Mais ce qui m'intéresserait, ce serait en dérivant TButton. Mais une fois que j'ai mon dérivé de OnButton, comment faire pour chopper TOUS les messages, de manière générique, et non pas seulement en utilisant une procédure par type de message?

antp

Super Administrateur
Champion des excuses bidons

en écrasant

Code :

procedure Dispatch(var Message);

peut-être (en n'oubliant pas d'appeler inherited après)

Message édité par antp le 23-01-2004 à 09:51:34

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Yoyo@

D'accord, ça marche, je vais essayer ça! Enfin, dernière question, qui est liée : comment je peux faire pour afficher une liste de messages au fur et à mesure qu'ils sont interceptés! Bien sûr, un truc du type "ShowMessage" serait une tuerie, car ça bloquerait l'appli! En fait, je rechercherait un truc équivalent au "OutputDebugString" du C++.

antp

Super Administrateur
Champion des excuses bidons

tu peux toujours faire un fichier log avec AssignFile, Append, WriteLn, CloseFile.

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Yoyo@

D'accord! Donc, y a pas moyen de voir les messages arriver dans une fenetre genre "console" en temps réel?

antp

Super Administrateur
Champion des excuses bidons

Tu peux mettre un Memo sur une fenêtre, mais je ne pense pas que tu puisses avoir une console en plus de ta fenêtre normale (malheureusement)

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Yoyo@

D'accord! Je débute, mais le Mémo sur la fenêtre sera parfait je pense Je vais essayer tout ça!

Merci beaucoup :hello:

Yoyo@

Une question en passant (dans la continuité de ce qu'on se disait), comment faire pour indiquer au Tmemo de passer à la ligne?

Par exemple :

Code :

myMemo.Text := myMemo.Text {+ passage à la ligne ici} + 'Nouveau Texte';

Message édité par Yoyo@ le 23-01-2004 à 11:19:19

Publicité

antp

Super Administrateur
Champion des excuses bidons

Un passage à la ligne c'est #13#10 ou sLineBreak, au choix.
Sachant qu'à chaque appel de Memo.Text il reconstruit une chaîne contenant toutes les lignes (c'est pour ça que c'est pas mal d'aller voir le code), c'est pas une bonne solution pour rajouter des lignes.
Il vaut mieux faire myMemo.Lines.Add('nouvelle ligne');

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

FORUM HardWare.fr

Programmation

Delphi/Pascal

[Delphi 7] Récupérer tous les messages arrvant au niveau d'un Tbutton

Sujets relatifs
Utilisation de dbExpress sous Delphi 7	[DELPHI] Comment effacer tous les éléments d'une table ?
[DELPHI] Requete SQL ? [RESOLU]	[asp.net] récupérer la valeur depuis Dropdownlist
Arrondi en delphi	[delphi 6]Status imprimante via API windows...
Recherche prog Ti89 maths sur les limites niveau EcoGestion 1ere année	[DELPHI] TRanférer des données d'une BD à une autre !
[DELPHI]Rave et code barre	[VB] Récupérer la résolution d'une image
Plus de sujets relatifs à : [Delphi 7] Récupérer tous les messages arrvant au niveau d'un Tbutton

Page générée en 0.044 secondes