Discussion :

[bel_louiza]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[PadawanDuDelphi]

Bonjour,

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
************
procedure etat(sender:TObject);
******************

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

@+.