Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

ÖNEMLİ AÇIKLAMA: MUTLAKA OKUYUNUZ!

Gönderen Konu: açılan bir form tekrar açılmasın  (Okunma sayısı 1270 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı Apex10

  • Yeni Üye
  • *
  • İleti: 6
  • Rep: +0/-0
açılan bir form tekrar açılmasın
« : 28 Nisan 2010 07:53:27 »
Arkadaşlar anaform üzerindeki butonlar sayesinde birtakım formları ki bunlar child form açıyorum ancak bu açtığım formu tetikleyen butona tekrar bastığımda birdaha açılıyor
bunun yerine açılan bir formu tetikleyen butona tekrar basınca şayet form açıksa sadece tüm formların en üstünde görünmesini sağlamanın bir yolu varmı acaba teşekkürler

Çevrimdışı tesisatçı

  • Üye
  • ***
  • İleti: 21
  • Rep: +1/-0
Ynt: açılan bir form tekrar açılmasın
« Yanıtla #1 : 28 Nisan 2010 07:59:09 »
form açilinca bütonü görünmez et

Çevrimdışı Opt2000

  • Global Moderatör
  • *****
  • İleti: 263
  • Rep: +9/-1
  • Cinsiyet: Bay
Ynt: açılan bir form tekrar açılmasın
« Yanıtla #2 : 28 Nisan 2010 11:37:52 »
Selam,

Screen nesnesi içinde FormCount ve Forms[Index] diye iki tane property var. Basit bir döngü kurup açık olan formların class isimlerinden ya da class type'larından istediğin kontrolü yaptırabilirsin. Delphi 2010'da çalışan bir kod örneği aşağıda (Test etmedim)

Kod: [Seç]
var
  I: Integer;
begin
  for I:=0 to Screen.FormCount - 1 do
  begin
    If Screen.Forms[I].ClassType = TfrmMyForm then
    begin
      Screen.Forms[I].BringToFront;
      Exit;
    end;
  end;
  //Formu bulunmadı, yenisini aç
  with TfrmMyForm.Create(self)
      Show;
end;


Kolay gelsin,
Bahadır Alkaç