Discussion :

[altaruk]

Bonjour,


Il me faut créer un TEdit dynamiquement. Pas de problème de ce côté :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
KeyWordEdit := TEdit.Create(Panel1);
with KeyWordEdit do
begin
  Parent := Panel1;
  Visible := False;
  Left := KeyWordLabel2.Left + KeyWordLabel2.Width + 13;
  Top := KeyWordLabel2.Top;
  Width := 120;
  Text := '';
  Visible := True;
  OnKeyUp := CheckIfBlanck;
end;

J'ai créé une procédure CheckIfBlanck mais à la compilation, j'ai une erreur de type : "les listes de paramètres diffèrent". J'ai vu la procédure EditKeyUp(Sender: TObject; var Key: Word; Shift:
TShiftState); mais je ne sais pas vraiement quoi ajouter derrière CheckIfBlanck car je souhaite juste vérifier la présence ou non d'un caractère.
Merci,

Altaruk

[Pedro]

Salut

pourrais-tu nous montrer la déclaration de ta procédure CheckIfBlanck ?

[altaruk]

comme je ne sais pas trop quoi mettre au niveau des paramètres, je l'ai déclarée de cette façon :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
...
private
    KeyWordEdit: TEdit;
 
    procedure CheckIfBlanck(Sender: TObject);
public
...
 
 
procedure TFMain.CheckIfBlanck(Sender: TObject);
begin
...
end;

[Pedro]

Alors c'est normal
il faut que les paramètres correspondent!

Code :

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

1
2
3
 
procedure CheckIfBlanck(Sender: TObject; var Key: Word; Shift:
    TShiftState);

Comme pour OnKeyUp/Down

PS: n'oublie pas les balises CODE quand tu écris un code dans ton post

[altaruk]

J'ai bien compris, mais je ne vois pas quoi mettre dans les parenthèses :

Code :

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

1
2
 
   OnKeyUp := CheckIfBlanck(nil, ???, ???);

J'ai modifié la déclaration de ma procédure comme ceci :

Code :

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

1
2
3
4
5
6
7
8
 
    procedure CheckIfBlanck(Sender: TObject; var Key2: Word; Shift2:
    TShiftState);
 
...
 
procedure TFMain.CheckIfBlanck(Sender: TObject; var Key2: Word2; Shift:
    TShiftState);

La où je coince, c'est quoi mettre à la place des points d'interrogation

[Pedro]

J'ai bien compris, mais je ne vois pas quoi mettre dans les parenthèses :

Code :

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

1
2
 
   OnKeyUp := CheckIfBlanck(nil, ???, ???);

Rien, tout simplement Ton code du début était juste.

J'ai modifié la déclaration de ma procédure comme ceci :

Code :

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

1
2
3
4
5
6
7
8
 
    procedure CheckIfBlanck(Sender: TObject; var Key2: Word; Shift2:
    TShiftState);
 
...
 
procedure TFMain.CheckIfBlanck(Sender: TObject; var Key2: Word2; Shift:
    TShiftState);

Quel intérêt? Vaut mieux laisser tel quel

[altaruk]

Ok merci du coup de main, j'ai quelques pb avec les événements d'objets créés dynamiquement ... Merci bien, ...