Discussion :

[MelkInarian]

Bonjour,
J’ai une feuille de saisie contenant un certain nombre de TEdits, de TComboBoxes et de TRadioButtons. Lors de la validation, avant d’enregistrer, je souhaite contrôler l’exhaustivité de la saisie. Je suis donc en train d’essayer de bâtir une fonction :

ControlePresence(TObj : TControl) : Boolean;

Dans laquelle je passe l’objet à contrôler en paramètre et, dans un premier temps, s’il n’est pas vide la fonction doit retourner True.
Mon problème réside dans mon incapacité à récupérer l’instance de l’objet que j’envoie en paramètre. Je suis débutant, je me suis plongé dans le guide de F Beaulieu ainsi que dans la prose de Laurent Dardenne « Les références de classe ou métaclasses » mais je ne m’en sort pas.
Dans le code ci-dessous par exemple, le premier objet envoyé étant un TEdit, j’essaie de récupérer le contenu de la propriété Text mais je n’y arrive pas.

Le Compilo me donne le message : Text identificateur non déclaré.

Pourtant mes showmessage successifs me donnent : TEdit comme TObj.ClassName.
Quelqu’un peut-il me sortir de l’ornière en m’expliquant ce que je ne fais pas correctement ?

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
Function  ControlePresence(TObj : TControl) : Boolean;
var
  Edit : Tedit ;
  Combo : TComboBox;
  Radio : TRadioGroup;
begin
  Result := False;
  if TObj is Tedit then
  begin
      showMessage('TObj est un: ' + TObj.ClassName);
    If TObj.InheritsFrom(Tedit) then
    begin
      showMessage('TObj est un: ' + TObj.ClassName);
      //Edit := Tedit.Create(TObj);
      //Edit.Parent := Self;
      //if TObj.Text <> '' then Result := True;
      //FreeAndNil(Edit);

J'ai aussi essayé avec un constructeur mais c'est pas mieux.
Merci.

[Fabrice ROUXEL 1]

Le Compilo me donne le message : Text identificateur non déclaré.

Il faut transtyper l'objet pour avoir accès aux propriétés spécifiques.
(Voir opérateur as dans l'aide Delphi)

[atb]

Bonjour ,
voici une fonction que j'ai devloppé pour fermer toutes les fenetres mdichild d'une aplication ça peut peut étre t'aider

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
function mCloseChild(Sender :TObject):Boolean;
var child : TComponent;   vi :integer ;
begin
WITH (Application.MainForm as TForm) do
   begin
    result := true;
    for vi := 0 to MDIChildCount -1 do
       begin
       Child := MDIChildren[vi];
       if Child.Owner.Name = (Sender as TComponent).name then
          begin
          (Child as TForm).Close;
          result:=  (Child as TStrdModelFrm).doclose;
          if result=false then break;
           end;
       end;
   end;
end;

bonne journée à tous

[MelkInarian]

Bonjour ,
voici une fonction que j'ai devloppé pour fermer toutes les fenetres mdichild d'une aplication ça peut peut étre t'aider
bonne journée à tous

Merci atb j'ai pu avancer grâce à ton code.