Form create buton visible durumu

[Yeliz]

Hayırlı geceler,

Form create ederek formdaki edit içindeki eski verileri temizlenmesini sağlıyorum!.
Forumun iki giriş yöntemi var save ve update.
Fakat form show olduğunda save butonuna basıldığında update enabled false olması lazımken, update butonu enabled true yani buton aktif bu sorunu nasıl çözerim?

procedure TForm7.BtnSaveClick(Sender: TObject);
var
  MyForm: TForm8;
begin
  MyForm := TForm8.Create(Nil);
  try
    MyForm.ShowModal;
    MyForm.BtnPGSave.Enabled := True;
    MyForm.BtnPGUpdate.Enabled := False;
  finally
    MyForm.Free;
  end;
end;

procedure TForm7.BtnUpdateClick(Sender: TObject);
var
  MyForm: TForm8;
begin
  MyForm := TForm8.Create(Nil);
  try
    MyForm.ShowModal;
    MyForm.BtnPGSave.Enabled := False;
    MyForm.BtnPGUpdate.Enabled := True;
  finally
    MyForm.Free;
  end;
end;

[savasabd]

procedure TForm7.BtnSaveClick(Sender: TObject);
var
  MyForm: TForm8;
begin
  MyForm := TForm8.Create(Nil);
  try
    MyForm.BtnPGSave.Enabled := True;
    MyForm.BtnPGUpdate.Enabled := False;
    MyForm.ShowModal;
  finally
    MyForm.Free;
  end;
end;

procedure TForm7.BtnUpdateClick(Sender: TObject);
var
  MyForm: TForm8;
begin
  MyForm := TForm8.Create(Nil);
  try
    MyForm.BtnPGSave.Enabled := False;
    MyForm.BtnPGUpdate.Enabled := True;
    MyForm.ShowModal;
  finally
    MyForm.Free;
  end;
end;

[shooterman]

(27-01-2019, Saat: 00:18)Yeliz Adlı Kullanıcıdan Alıntı: Hayırlı geceler,

Form create ederek formdaki edit içindeki eski verileri temizlenmesini sağlıyorum!.
Forumun iki giriş yöntemi var save ve update.
Fakat form show olduğunda save butonuna basıldığında update enabled false olması lazımken, update butonu enabled true yani buton aktif bu sorunu nasıl çözerim?

procedure TForm7.BtnSaveClick(Sender: TObject);
var
  MyForm: TForm8;
begin
  MyForm := TForm8.Create(Nil);
  try
    MyForm.ShowModal;
    MyForm.BtnPGSave.Enabled := True;
    MyForm.BtnPGUpdate.Enabled := False;
  finally
    MyForm.Free;
  end;
end;

procedure TForm7.BtnUpdateClick(Sender: TObject);
var
  MyForm: TForm8;
begin
  MyForm := TForm8.Create(Nil);
  try
    MyForm.ShowModal;
    MyForm.BtnPGSave.Enabled := False;
    MyForm.BtnPGUpdate.Enabled := True;
  finally
    MyForm.Free;
  end;
end;

Selamlar,

try işleminden sonra
    MyForm.BtnPGSave.Enabled := False;
    MyForm.BtnPGUpdate.Enabled := True; 
    MyForm.ShowModal;

şeklinde yapıyı değiştirin her iki buton kodunda da. Showmodal olmadan önce yapılması gerekiyor. Bu şekilde yaptığınızda doğru çalışacak. Test ettim.

[Yeliz]

Teşekkür ederim. Allah razı olsun.

Formun ShowModal olmadan butonları enabled true yapmak aklıma gelmişti ama denemedim, nedeni form Create etmeden bana mantıklı gelmemişti.

[mcuyan]

Pardon ben soruyu yanlış gördüm ve anladım..

[idealist]

(27-01-2019, Saat: 12:53)Yeliz Adlı Kullanıcıdan Alıntı: Teşekkür ederim. Allah razı olsun.

Formun ShowModal olmadan butonları enabled  true yapmak aklıma gelmişti ama denemedim, nedeni form Create etmeden bana mantıklı gelmemişti.

"ShowModal" komutu : ShowModal ile Çağrdığın Form kapatana kadar ShowModal'dan sonraki kodlar çalışmaz... ShowModal olarak çağırdığın ekranı kapattıktan sonra ShowModal dan sonra ki kodlar çalışmaya devam eder... 

Ayrıca Showmodal geriye Integer değer döndürür

Mesela : Fatura ekranında Müşteri seçmek için Müşteri Arama ekranını ShowModal olarak açarsın, Müşteri Arama ekranında Müşteri seçtiğinde ModalResult := MusteriId ataması yaparak, Seçillen Müşteri ID bilgisini fatura ekranına aktarabilirsin... Sonra da MusteriId bilgisine göre Müşteri Bilgilerini yüklersin...

procedure TFormFatura.Button1Click(Sender: TObject);
var 
 musteriId : integer;

begin
  with TForm_Musteri.Create(Nil) do
    begin
        musteriId := Showmodal;

        queryMusteri.Close;
        queryMusteri.Sql.Text := 'SELECT * FROM musteri WHERE id = ' + inttostr( musteriId ) ;
        queryMusteri.Open;

        editMusteriAdi.Text := queryMusteri.FieldByName('MusteriAdi').asstring;
        queryMusteri.Close;
    end;
end;

Müşteri Arama ekranında Müşteri Seçim İşlemi ;

procedure TFormMusteri.ButtonMusteriSecClick(Sender: TObject);
begin
        ModalResult := queryMusteriListesi.FieldByName('id').AsInteger;
end;

ModalResult yazdığımızda CLOSE; komutu yazmıyoruz!!! ModalResult komutu formu Close ediyor...

2. olarak FormCreate etmeden form içerisinde ki bir nesneyi Enable - Disable edemezsin... 

ShowModal ve FormCreate güle güle kullanman dileğiyle...

[Yeliz]

Elinize dilinize sağlık +4 rep