//MURATTAN
if ActiveControl is TEdit then TEdit(ActiveControl).SelectAll;
//tarih alanı olduğunu düşünürsek
if TABLO.FieldByName('DTARIHI').isnull then
Begin
MessageDlg('Girmiş olduğunuz tarih geçersiz', mtWarning, [mbOK], 0);
Exit;
end;
{sayısal alan olursa yine aynı mantık işletilebilir.
sacede mesajın içeriğini değiştirmek yeterli olacak}
//tablonun durumuna göre butonun durumunu değiştirme
if DataSource1.Dataset <> nil then
PostButton.Enabled := DataSource1.State in [dsEdit, dsInsert];
//tablo durumları
TDataSetState = (dsInactive, dsBrowse, dsEdit, dsInsert, dsSetKey,
dsCalcFields, dsFilter, dsNewValue, dsOldValue, dsCurValue, dsBlockRead,
dsInternalCalc, dsOpening);
//düzenleme veya ekleme modunda ise
if Table1.State in [dsEdit,dsInsert] then
//düzenleme modunda ise
if Table1.State = dsEdit then