delete from tablegrid

if text box belong to an other table then?

I am sorry. I want to know when we delete a record from tablegride, it must also clear the data on text box of same form.

Hi derek
            look at this project. When I enter sale on sale form it will appear on tablegrid and I type costumer's name. In case costumer refuse to buy then I delete record from tablegrid then costumer name should also be cleared.

If all you want to do is clear out the edit field, then just change this procedure as follows:
procedure Sales_Button5_OnAfterClick (Sender: TObject);
begin
    if sales.tablegrid1.rowcount = 0 then sales.edit4.clear;
    UpdateTicketTotalSales(Sales.btnSave.dbGeneralTableId);
end;
Derek.

If you are selecting a row and a) hitting the 'delete' key or b) right-clicking, then I have to assume that you are using an editable grid;  it would have been helpful to have known this.
Simply add the code to the 'onchange' event of the tablegrid instead.
.
procedure Sales_TableGrid1_OnChange (Sender: TObject);
begin
    if sales.tablegrid1.rowcount = 0 then sales.edit4.clear;
//Sales.stotal.Value:= Sales.TableGrid1.Columns[1].Footer.Formulavalue;
//ComputeReceivable;
end;

Всем привет подскажите решение:
Есть таблица и кнопка удалить. Если в таблице не выделена запись то открывается форма Form2 и там уже сообщение что не выбрана запись. Если запись выбрана то она скриптом удаляться
procedure Form1_Button3_OnClick (Sender: TObject; var Cancel: boolean);
begin
    Cancel := True;
    if Form1.TableGrid1.dbItemID then
    begin
        if Confirm('Are you sure you want to delete customer? This will make its children orphan. Proceed?') then
        begin
            // make tele Customer to delete orphan
            SQLExecute(DELETE tele SET id_Customer = NULL WHERE id_Customer = '+IntToStr(Form1.TableGrid1.dbItemID));

            // proceed to delete.
            Cancel := False;
        end;
    end else
        ShowMessage('Cannot proceed without selected record');
end;

{
  Comfirm massages with "Yes or No"
}
function Confirm(msg: String='Please Confirm.'; ICON: Integer=MB_ICONQUESTION; title:String='Confirm'): boolean;
begin
    result := IDYES = MessageBox(msg, 'APPNAME : '+title, MB_YESNO+ICON);
end;.