двойной клик по гриду внутри кнопки

[kate158]

есть кнопка "отправить". внутри нее как прописать, что если был двойной щелчок по гриду, показать сообщение?

[Аватар]

procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
  Button1Click(Button1);
  //или
  Button1.Click;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
//Что-то делаем
end;

[Dozent]

ну если прям буквально то что вы написали в своём вопросе, то ставить какойнить флаг на процедуру дбклик, и в кнопке проверять этот флаг...