Çalışma zamanında oluşturulan formun kontrolü

[Okann]

Merhaba arkadaşlar,

Çalışma zamanında form oluşturuyorum. eğer form daha önceden oluşturulmuşsa formu öne getirmek istiyorum fakat yapamadım. kodlarım aşağıdaki gibi yardımcı olursanız çok sevinirim.

Kod: Tümünü seç

var
  Form1: TForm1;
  ID: Integer;
  ACaption: String;

procedure TForm1.btnChangeItemClick(Sender: TObject);
var
  AOwnerForm: TForm;
  I: Integer;
begin
  with GridEMUHACCView.Controller do
  begin
    for I := 0 to SelectedRowCount - 1 do
    begin
      ID := SelectedRows[I].Values[GridEMUHACCViewLOGICALREF.Index];
      ACaption := SelectedRows[I].Values[GridEMUHACCViewCODE.Index];
    end;
  end;
  if FindWindow(nil, PWideChar('Malzeme - ' + ACaption)) = 0 then
  begin
    AOwnerForm := TForm2.Create(Self);
    AOwnerForm.Caption := 'Malzeme - ' + ACaption;
    AOwnerForm.Position := poMainFormCenter;
    AOwnerForm.Show;
  end else
end;

[freeman35]

if assigned()then .bringtofront;

[Lord_Ares]

findwindow ile pencere isimleri arasında formunuzu arıyorsunuz. Findwindow eğer pencereyi bulursa size bir handle numarası döndürür. Sizde bu handle numarasını kullanarak formunuzu öne getirebilirsiniz.
Örneğin
SetForegroundWindow(Handle numarası);

[Okann]

Teşekkür ederim yardımınız için. dediğiniz gibi yapınca istediğim oldu.

Kod: Tümünü seç

  HWND := FindWindow(nil, PWideChar('Malzeme - ' + ACaption));
  if FindWindow(nil, PWideChar('Malzeme - ' + ACaption)) = 0 then
  begin
    AOwnerForm := TForm2.Create(Self);
    AOwnerForm.Caption := 'Malzeme - ' + ACaption;
    AOwnerForm.Position := poMainFormCenter;
    AOwnerForm.Show;
  end else
  begin
    ShowWindow(HWND, SW_SHOWDEFAULT); // minimize ise
    SetForegroundWindow(HWND);
  end;