Oniria
Messages postés292Date d'inscriptiondimanche 14 mars 2004StatutMembreDernière intervention18 décembre 2014
-
13 sept. 2007 à 18:40
Oniria
Messages postés292Date d'inscriptiondimanche 14 mars 2004StatutMembreDernière intervention18 décembre 2014
-
14 sept. 2007 à 14:38
Bonjour,
j'aimerais savoir comment déclarer une procedure d'événement. En effet, j'ai une unité en pascal permettant de gérer le port série. C'est un objet qui s'appelle TBlockread. A l'intérieur il y a une procedure de gestion des événement dans la classe qui permet de réagir à un événement (réception d'un octet, buffer vide, etc...) la procedure est défini
THookSerialStatus = procedure(Sender: TObject; Reason: THookSerialReason;
const Value: string) of object;
J'ai bien compris que c'est un événement personnel mais je ne sait pas comment utiliser cet événement à la mode de l'inspecteur d'objet qui crée automatiquement des procedures (par exemple quand on clique sur la souris).
En effet, j'ai besoin de créer une procédure événementielle qui réagit en fonction de différents événement (réception d'un caractére, buffer vide, etc...)
procedure TForm1.blockreadHookserialstaus(Sender: TObject; Reason: THookSerialReason; const Value: string);
begin
// cettre procedure est lancee a l'evenement du blockread
end;
cs_Loda
Messages postés814Date d'inscriptionvendredi 3 novembre 2000StatutMembreDernière intervention30 juillet 20093 14 sept. 2007 à 10:04
salut,
j'ai pas tellement d'expérience dans ce domain, mais il me semble que tu ne peux pas faire ça ("'inspecteur d'objet qui crée automatiquement des procedures") sans passer par un composant "installable" avec une propriété published.
de toute manière, tu ne peux pas acceder aux propriétés du composant avec l'inspecteur d'object si tu crée ton compo dynamiquement. donc...
après, pour les détails je sais pas.
bonne recherche,
Loda
<hr size="2" width="100%" />Se poser les bonnes questions est le premier pas pour trouver les bonnes réponses.
Oniria
Messages postés292Date d'inscriptiondimanche 14 mars 2004StatutMembreDernière intervention18 décembre 20143 14 sept. 2007 à 14:38
Bonjour,
Merci beaucoup Guillemouze, c'est exactement ce que je voulais faire. En effet le TBlockRead n'est pas un composant installable. Et je ne comprenais pas ou se faisait le lien entre ma procedure et celle du composant.
Je croyait qu'il fallait surcharger la procedure du TBlockread par un overide.