appel de fonction

Question

j'ai une fiche qui s'appelle option, sur l'évenement on create j'appelle une function présente dans une unité différente.
voici des extraits du code

unit Uoption;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls,Ufunct,Ufichier;

.....
procedure Toptions.FormCreate(Sender: TObject);

begin
  set_option(options);
end;

unit Ufunct;

interface

uses IniFiles, ComCtrls,Dialogs, SysUtils,Windows, Classes, Forms, Buttons,
  ExtCtrls, StdCtrls, Controls,Graphics, Messages, Variants,
  OleCtrls,  SHDocVw,ShellApi,Math,Registry,StrUtils,Ufichier;
......
function set_option (ecran:TForm):boolean;
var i:integer;
    ChildControl:TControl;
    edit:TEdit;
    combobox:TComboBox;
begin
   result:=false;

   for i:=0 to ecran.ControlCount -1 do
   begin

      ChildControl :=ecran.Controls[I];
      //Gdonnees_ini.mode_transfert:=libelle;
      //Gdonnees_ini.imp_etiquette:=libelle;
      if ChildControl.ClassName = 'TEdit' then
      begin

        edit:=TEdit(ChildControl);
        //showmessage(edit.Name);
        if edit.Name='Edit_tmpfolder' then
           edit.Text:=Gdonnees_ini.tmpfolder;
            
        if edit.Name='Edit_url_distant' then
           edit.Text:=Gdonnees_ini.urlsrvdocdistant;

        if edit.Name='Edit_url_local' then
           edit.Text:=Gdonnees_ini.urlsrvdoclocal;

        if edit.Name='Edit_nom_poste' then
           edit.Text:=Gdonnees_ini.nom_poste;
      end;
      if ChildControl.ClassName = 'TComboBox' then
      begin
        combobox:=TComboBox(ChildControl);
        set_combolist(combobox);
      end;

    end;
    result:=true;

end;

Mon problème est que les champs de ma fiche ne se remplisse pas pourquoi ?

Petite précision avant la fiche était en fait un onglet et ca marchait bien ?

Merci

Astrid

TheShAmAn · Answer

As tu verifié ke la fonction est bien appelée???

TheShAmAn · Answer

Et c koi ossi comme TYPE, l'unit UFunction???

Appel de fonction

2 réponses

Votre réponse

Discussions similaires