Creation d'un evenement

Marsh Posté le 25-11-2002 à 14:26:51

Bonjour a tous,

J'utilise largement les evenements des objets Delphi, mais maintenant, je voudrais aussi creer mes propres evenements, soit en plus dans des objets existant, soit dans mes propres objets.

Comment faire ? Pouvez-vous me donner des exemples ?

Merci d'avance

---------------
Cobol le jour, PHP la nuit ... Je préfère franchement mes nuits ...

Marsh Posté le 25-11-2002 à 14:26:51

Marsh Posté le 25-11-2002 à 14:30:01

Code :

TMonComposant = class(TAutreTruc)
private
FOnMonEvent: TNotifyEvent;
...
published
OnMonEvent: TNotifyEvent read FOnMonEvent write FOnMonEvent;
...
end;

puis quand tu veux l'appeler depuis une des méthodes du composant :

Code :

if FMonEvent <> nil then
FMonEvent(Self);

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

Marsh Posté le 25-11-2002 à 14:49:34

merci bcp, je v tester ca ce soir

---------------
Cobol le jour, PHP la nuit ... Je préfère franchement mes nuits ...

Marsh Posté le 27-11-2002 à 05:11:31

antp a écrit a écrit :

Code :

[code]if FMonEvent <> nil then
FMonEvent(Self);

Borland préconise plutôt de faire

Code :

if Assigned(FMonEvent) then
FMonEvent(Self);

C'est strictement pareil, mais c'est plus parlant

---------------
Informaticien.be - Lancez des défis à vos amis

Marsh Posté le 27-11-2002 à 09:14:44

ouais mais bon ça évite à certains de penser que Assigned fait plus qu'un simple if <> nil

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

Sujets relatifs:

Leave a Replay

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

Name *

Email *

URL

Message *