! CODEBANK 2012 !
İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.
ÖNEMLİ AÇIKLAMA: MUTLAKA OKUYUNUZ!
0 Üye ve 1 Ziyaretçi konuyu incelemekte.
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;