Intégrer un TTimer a son propre component...et avoir une chtite icone

Intégrer un TTimer a son propre component...et avoir une chtite icone - Delphi/Pascal - Programmation

Marsh Posté le 14-08-2003 à 18:10:35    

Je  suis en train de me faire  mon propre composant, et je me demandais :
-J'ai besoin que mon composant utilise un Timer ( a intervalle réglable mais  ca spa le souci) pour lancer une fonction...
Et je sais pas comment faire. Moi j'ai l'habitude de placer le composant sur  la form et de le parametrer via le object inspector... mais la je fais comment ?
-J'aimerai que mon composant marche comme un TTimer  finalement, cad j'aimerai pouvoir le lacher sur la form et qu'il apparaisse  comme un petit carré avec une icone dedans ... Comment on fait ca ?  
 
Merci :jap:

Reply

Marsh Posté le 14-08-2003 à 18:10:35   

Reply

Marsh Posté le 14-08-2003 à 18:39:16    

tetedeiench a écrit :

Moi j'ai l'habitude de placer le composant sur  la form et de le parametrer via le object inspector...  


 
Tu as encore des choses à apprendre donc :o :D
 
monTimer := TTimer.Create(nil);
monTimer.OnTimer := maProc;
 
où maProc est une méthode d'un objet (par ex ton composant) qui a les bons paramètres
 
attention, penser à désallouer le Timer (par ex à la destruction de ton composant)
 

tetedeiench a écrit :


-J'aimerai que mon composant marche comme un TTimer  finalement, cad j'aimerai pouvoir le lacher sur la form et qu'il apparaisse  comme un petit carré avec une icone dedans ... Comment on fait ca ?  


 
il suffit que ton composant dérive de TComponent et pas de TControl il me semble...  
pour l'icône, il suffit de faire un bmp de 24x24, un .rc où tu mets:
TMonComposant BITMAP "TMonComposant.bmp"
puis :  
brcc32 fichier.rc
tu mets le .res dans le dossier où est le .pas, puis dans le .pas tu mets {$R fichier.res}


Message édité par antp le 14-08-2003 à 18:40:06

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

Marsh Posté le 14-08-2003 à 18:49:45    

Marchi antpnounet :D
 
Et oui il me reste encore beaucoup de choses a apprendre :/ :D

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed