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;
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;
(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.
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.
Pardon ben soruyu yanlış gördüm ve anladım..
(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...
Elinize dilinize sağlık +4 rep
