Fenêtre modale rétive

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Fenêtre modale rétive

HERIBERT

Bonjour à tous

Voici un code fonctionnant parfaitement :

Code :

procedure TForm1.Btn_1Click(Sender: TObject);
Var
Retour : integer;
begin
Form2 := TForm2.Create(Application);
Retour := Form2.ShowModal;
Form2.Free;
MessageDlg('RETOUR DE FORM2', mtInformation, [mbOK], 0);
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 :

Function Saisie_Url_Cible : boolean;
Var
Retour : integer;
begin
Form2 := TForm2.Create(Application);
Retour := Form2.ShowModal;
Form2.Free;
CASE Retour OF
mrOK :
begin
Saisie_Url_Cible := True;
end;
mrAbort :
begin
Saisie_Url_Cible := False;
end;
End; // Case
end;

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

Publicité

jcb84

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

FORUM HardWare.fr

Programmation

Delphi/Pascal

Fenêtre modale rétive

Sujets relatifs
[MFC] [RESOLU] Affichage message avant fermeture d une fenetre	java virtual machine dans une fenêtre tkinter
Action dans une fenetre precise?	afficher la fenêtre dans une applet
Taille fenêtre/résolution écran ?!	probleme d'affichage d'une seconde fenêtre
[RÉSOLU] Problème fenêtre modale et notifications	Forcer format fenêtre lecteur vidéo web
Comment s'appelle cette fenetre avec liste deroulante?
Plus de sujets relatifs à : Fenêtre modale rétive

Page générée en 0.038 secondes