Настройка своих кнопок навигатора

[allegator333]

Как сделать кнопку past(подтверждение) так чтобы изначально она была не активна(это я сделал), но при изменении в поле(в полях на форме) текста она становилась активной(для того что подвердить изменение)?

[lux16]

Хм, сделай вот так

procedure TForm1.Table1AfterEdit(DataSet: TDataSet);
begin
  Button1.Enabled := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Table1.Post;
  Button1.Enabled := False;
end;

И по умолчанию поставь у Button1 свойство Enabled в False

[N0iD]

Доброго времени суток.
Изменять состояние кнопки можно по событию Change Текстовых полей (Edit1)
В первом примере кнопка становиться активной если в текстовом поле содержимое изменилось.

Во втором примере кнопка становится активной если в текстовое поле что нибудь написать, если текстовое поле оставить пустым, то и кнопка станет обратно не активной.

[lux16]

Пример хороший, но очень замудренный

[N0iD]

От чего же, все кажется просто.

procedure TForm1.Edit1Change(Sender: TObject);
begin
Button1.Enabled:=True;
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
if Edit2.Text = '' then
Button2.Enabled:=False else
Button2.Enabled:=True;
end;

[lux16]

Хм, да нет все просто, я не спорю. Просто если у тебя два поля, то да. А если у тебя 100 полей и на каждое прописывать твою процедуру ? Не много муторно, согласись. У меня же действия идут от таблицы, и все равно сколько полей и где они находятся

[Пепел Феникса]

а кто мешает не писать 100раз процедуру эту, а просто её выбрать у компонента?(нажав стрелочку)

[lux16]

Это алегория, все равно способ очень долгий