Discussion :

[coucoucmoi]

Je cré des forms en cliquant sur une ligne d'un Grid
par contre, comment puis je savoir si le nom de la form que je cré n'existe pas déjà, pour éviter un message d'erreur ?

[Seb]

Salut,

Dans une application, j'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
function IsFormOpen(const FormName : string): Boolean;
var 
  i: Integer; 
begin 
  Result := False; 
  for i := Screen.FormCount - 1 DownTo 0 do
    if (Screen.Forms[i].Name = FormName) then
    begin
      Result := True;
      Break;
    end;
end;

Si le form est déjà ouvert, tu le mets au premier plan (BringToFront) sinon tu le créé.

J'espère que ça répond à ta question.

A+,

Seb.

[coucoucmoi]

Merci, c exactement ce que je voulais

[Seb]

De rien

N'oublies pas de cliquer sur le bouton "Mettre Résolu" en bas à gauche.
Merci .

A+,

Seb.

[coucoucmoi]

oups
dsl

[PyRoFlo]

J'aurais plutôt fait ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
if Assigned(NomDeTaForm) then
ShowMessage('NomDeTaForm est bien créée')
else
ShowMessage('NomDeTaForm n''est pas créée')

Non ?