açık olan mdichildi öne getir.

[aesenkaya]

arkadaşlar merhaba. mdi olan ana formumda açmak istediğim pencerenin açık olup olmadığını aşağıdaki kodla tespit edip ikinci defa açmasını engelleyebiliyorum. fakat ben eğer form açık ise o formu en öne getirmek istiyorum. Kullanıcı o esnada birden fazla form ile çalışıyor olabilir açık formlar arasından bulmakta zorlanabilir. Mdichildin açık olup olmadığını aşağıdaki kodla denetledim.

Kod: Tümünü seç

procedure TForm_Main.Label12Click(Sender: TObject);
var i,k,a: integer;
begin
  k:=0;
  if MdiChildCount=0 Then
  begin
    Application.CreateForm(TForm_Ihbar_Kabul,Form_Ihbar_Kabul);
    Form_Ihbar_Kabul.Show;
  end
  else
  begin
    for i:= 0 to MdiChildCount -1 do
    begin
      if  MDIChildren[i].Name ='Form_Ihbar_Kabul' Then
         begin
           k:=k+1;
           break;
         end;
    end;
       if k<>0 Then
       begin
         a:= Application.MessageBox('Açmak istediğiniz pencere şu anda açık','Bilgi',MB_OK+MB_ICONINFORMATION);
       end
       else
       begin
        Application.CreateForm(TForm_Ihbar_Kabul,Form_Ihbar_Kabul);
        Form_Ihbar_Kabul.Show;
       end;
  end;

end;

[emin_as]

Form u öne getirmek için aşagıdaki kodu kullanabilirsin.

Kod: Tümünü seç

Form_Ihbar_Kabul.BringToFront;

[aesenkaya]

teşekkür ederim.