Bonjour, j'aimerais pouvoir vider tous les champs d'un formulaire sans avoir à taper TxtChamp1.Clear; ou LblInfo1.Caption := '';

J'aimerais avoir une Procedure qui verifie le type de l'objet et qu'il le vide s'il fait partie des types que je veux vider...

J'ai une procedure semblable qui fait un focusnext comme si j'appuyais sur Tab, mais j'appuie sur enter...

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
17
18
19
 // Mettre le KeyPreview à True sur le formulaire
  // Permet d'utiliser la clé ENTER comme la clé TAB
  if Key = #13 then
  begin
    // Enlever les mémos (font partis de TCustomEdit)
    if (Form.ActiveControl is TCustomMemo) then
      Exit;
 
    if (Form.ActiveControl is TCustomEdit) or
       (Form.ActiveControl is TCustomComboBox) or
       (Form.ActiveControl is TCustomListBox) or
       (Form.ActiveControl is TCustomCheckBox) or
       (Form.ActiveControl is TRadioButton) or
       (Form.ActiveControl is TDateTimePicker) then
    begin
      Key := #0;
      Form.Perform(WM_NEXTDLGCTL, 0, 0);
    end;
  end;
Une petite question aussi...

Qu'est-ce qui est le mieux d'utiliser pour les champs TEdit?
Text.Clear;
Text.Text := '';