Fenêtre modale rétive

Fenêtre modale rétive - Delphi/Pascal - Programmation

Marsh Posté le 08-01-2016 à 17:15:07    

Bonjour à tous :)
 
Voici un code fonctionnant parfaitement :  
 

Code :
  1. procedure TForm1.Btn_1Click(Sender: TObject);
  2. Var
  3.   Retour : integer;
  5. begin
  6.   Form2 := TForm2.Create(Application);
  7.   Retour := Form2.ShowModal;
  8.   Form2.Free;
  10.   MessageDlg('RETOUR DE FORM2', mtInformation, [mbOK], 0);
  11. end;


 
La Form2 est appelée, et l'on reste dessus jusqu'à ce que l'utilisateur ait déclenché mrOK ou mrAbort.  
 
Le même code, qui, lui, ne fonctionne pas :  
 

Code :
  1. Function Saisie_Url_Cible : boolean;
  2. Var
  3.   Retour : integer;
  5. begin
  6.     Form2 := TForm2.Create(Application);
  7.     Retour := Form2.ShowModal;
  8.     Form2.Free;
  10.     CASE Retour OF
  11.       mrOK :
  12.         begin
  13.           Saisie_Url_Cible := True;
  14.         end;
  16.       mrAbort :
  17.         begin
  18.           Saisie_Url_Cible := False;
  19.        end;
  21.    End; // Case
  24. end;


 
Heu...  :pt1cable: Où est-ce que je me plante ?  
 

Reply

Marsh Posté le 08-01-2016 à 17:15:07   

Reply

Marsh Posté le 11-01-2016 à 13:04:31    

nulle part ...
 
ajoute un bouton test dans ta forme et ajoute ceci :  
 
procedure TForm1.Button2Click(Sender: TObject);
var
test : boolean;
begin
 
 test:=  Saisie_Url_Cible;
 if test = true then
    showmessage ('vrai')
 else
    showmessage ('faux');
end;
 
compile et tu verras que cela fonctionne...  Après, on peut faire + mieux bien comme code  :D  

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed