Открываеца форма много раз!

[KingSize]

У меня при нажатии кнопки форма открываеца 1 раз! нажимаешь на нее еще раз , форма опять открываеца! не магу понять как сделать чтобы форма больше одного раза не открывалась?жду....

[FaTaL]

If форма открыта then
не открываем форму повторно.

[SERG1980]

открой её с помощью ShowModal

[beemoto]

Procedure TForm1.FormCreate(SEnder: TObject);
Var ExtEndedStyle:dword;
Wnd : hWnd;
buff : Array[0.. 127] of Char;
Begin
Wnd := GetWindow(Handle, gw_HWndFirst);
While Wnd < > 0
DO
Begin
If (Wnd < > Application.Handle)
and (GetWindow(Wnd, gw_Owner) = 0) Then 
Begin GetWindowText (Wnd, buff, sizeof (buff ));
If StrPas (buff) = Application.Title Then
Begin Halt;
End;
End;
Wnd := GetWindow (Wnd, gw_hWndNext); 
End;
End;

[Sparky]

bemoto, зачем этот код? Ведь достаточно ShowModal

[Toxa]

2Sparky
ShowModal не всегда полезно, бывают случаи когда необходим доступ к нескольким формам сразу

[KingSize]

Сообщение от FaTaL

If форма открыта then
не открываем форму повторно.

обьясни нормально!

[SERG1980]

 if not form2.Showing  then form2.Show

[Stilet]

нажимаешь на нее еще раз , форма опять открываеца!

Не нажимай - открываться не будет.
Или ты по нажатию еще форму создаешь?