appel procedure delphi

bonjour voila j ss debutante en delphi j veux utiliser une procedure etat
voila

Code:

---

1 2 3 4 5 6 7 8 9 10

procedure TFmenuprinc.etat; var etat_bloq :string; begin etat_bloq:='2'; if DataModule6.IBetat.locate('ETAT_CARTE', etat_bloq,[])= true then begin showmessage('bloquéé'); end else showmessage('ouuuuuuu'); end;

---

il ya pas d'erreur de compilation mais ya pas de resultat
voici la declaration de la procedure

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure Changermotdepasse1Click(Sender: TObject); procedure Ajouterutilisateur1Click(Sender: TObject); procedure supprimerutilisateur1Click(Sender: TObject); procedure FormActivate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure o1Click(Sender: TObject); procedure able1Click(Sender: TObject); procedure ableforme1Click(Sender: TObject); procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE; //**************** procedure etat;//****************************** //**************** procedure ablemedicamament1Click(Sender: TObject); procedure Vente1Click(Sender: TObject); private

---

qunad j ai utilise le corps de procedure dans une prosedure delphi par exemple evement activate forme elle marche mai tt seul non
aider moi
merci d'avence

Bonjour,

Je ne vois pas ce que tu veux dire par "tt seul" dans:

Citation:

---

qunad j ai utilise le corps de procedure dans une prosedure delphi par exemple evement activate forme elle marche mai tt seul non

---

Pour que ta procédure soit appelé tu dois forcémment l'associée à un évènement OnActivate, on Show, OnTimer...Non?

Maintenant si tu veux simplement associer directement ta procedure à un evenement, il faut qu'elles est tous les deux les mêmes paramètres.

Exemple, pour le onActivate, il faut que tu déclare ta procédure par:

Code:

---

1 2 3 4

************ procedure etat(sender:TObject); ******************

---

et après dans ton évènement ta procedure apparaîtra.

@+.