Form açık mı?

[Serhat]

Selam bir formu show ile açıyorum sürekli üste kalması içinde (FormStyle := fsSTAYONTOP;) komutu kullanıyorum fakat butona tekrar tıklandığında aynı form ikici kez açılıyor bunu nasıl genelleyebilirim...

Kod: Tümünü seç

procedure TForm1.ToolButton18Click(Sender: TObject);
begin
  Form5.Show;
  Form5 := TForm5.Create(Nil);
  Application.ProcessMessages;
end;

[cinarbil]

Kod: Tümünü seç

procedure TForm1.ToolButton18Click(Sender: TObject);
begin
  if (form5.Showing) then exit  // form5 gösteriliyorsa çık 
  
   Form5.Show;
  Form5 := TForm5.Create(Nil);
  Application.ProcessMessages;
end;

[Serhat]

Bu şekilde kullandı değişen bir şey olmadı.


if (Form6.Showing) then
begin
Exit;
end
else
begin
Form6.Show;
Form6 := TForm6.Create(Nil);
Application.ProcessMessages;
end;
end;

[freeman35]

create etmediğin bir formu nasıl show ediyorsun?
if assigned() kullan sağlıklı olabilmesi içinde onclose da action := caFree; ondestroyda da form6 := nil; ekle autocreate form sa zaten girmez manual create edeceksende
initialization
form6 := nil;
kolay gele

[thelvaci]

Ben bu tarz durumlar için; ilgili formun OnClose'unda form değişkeninini Action := caFree'den sonra nil'e eşitliyorum. Formu create ederken ise;

Kod: Tümünü seç

  try
    MyForm.Show;
  except
    MyForm := TMyForm.Create(Application);
    MyForm.Show;
  end;

gibi bir yapı kullanıyorum. Form daha önce create edilmedi ise; MyForm.Show çağrımı bir hataya neden olacak, dolayısı ile form create edilecek ardından da show edilecek. Form daha önce create edildi ise bu sefer hata vermeden direkt Show işlemi gerçekleşecek.