Назначить обработчик события на кнопку form2 из form1 программно

[golopjatov]

Сообщение от Serge_Bliznykov

просто замечание.
у DataSet можно проверить на пустоту через IsEmpty (и не надо городить огород через свою функцию NotEmptySet....):

if Not inSet.IsEmpty then
begin
...

А разница-то в чём?

[Serge_Bliznykov]

А разница-то в чём?

Проще. Красивее. Эффективнее.

[golopjatov]

Сообщение от Serge_Bliznykov

Проще. Красивее. Эффективнее.

Возможно проще и красивее где-то и даже в чем-то эффективнее. Но не массштабируемей чуть язык не сломал пока выговорил. Я думаю смысл понятен..

[Korben5E]

есть такой стиль программирования - с "защитой от дурака", где смысл в показе диалоговых окон(а не редактировании таблицы напрямую)

реализуется так:

все проверки на значения полей организуются на Form2
Form2 показывается модально
обработчик проверки ставится на кнопке "Готово"/"ОК"/"Сохранить" - вот он:

procedure TForm2.Button1Click(Sender: TObject);
begin
    Edit1.Text := Trim(Edit1.Text);
    Edit2.Text := Trim(Edit2.Text);

    if (Edit1.Text)='' then // если пустой первый едит (фамилия)
    begin
        MessageDlg('Введите фамилию!',mtInformation,[mbOK], 0); // сообщаем что фамилия не указана
        Edit1.SetFocus; // ставим на него фокус
        Exit; // выходим из процедуры
    end;

    if (Edit2.Text)='' then // если пустой первый едит (имя)
    begin
        MessageDlg('Введите имя!',mtInformation,[mbOK], 0); // сообщаем что имя не указано
        Edit2.SetFocus; // ставим на него фокус
        Exit; // выходим из процедуры
    end;

    ModalResult := mrOk;
end;

в Form1 делаем одну процедуру и назначаем ее обеим клавишам так:

procedure TForm1.Button1Click(Sender: TObject);
var
    edt : boolean;
begin
// если форма не создается автоматически - создаем.
    Form2 := TForm2.Create(Application);

// заметка: если форма создается автоматически, то при повторном вызове, 
// при добавлении записи - в полях будут отображаться предыдущие значения

    edt := (Sender = Button2);
    if edt then
    begin
        Form2.Edit1.Text := ADOQuery1.FieldByName('Фамилия').Text;
        Form2.Edit2.Text := ADOQuery1.FieldByName('Имя').Text;
    end

    if Form2.ShowModal = mrOk then
    begin

        if edt then ADOQuery1.Edit
        else ADOQuery1.Insert; // или ADOQuery1.Append; - по вкусу

        ADOQuery1.FieldByName('Фамилия').Text:=Form2.Edit1.Text;
        ADOQuery1.FieldByName('Имя'). Text:=Form2.Edit2.Text;
        ADOQuery1.Insert;// .Append; //.Post;
        ADOQuery1.Post;

    end;
   //если форма создается вручную - уничтожаем
   Form2.Free;
end;

собственно все.