как выполнить одну процедуру в другой?

[betirsolt]

всем привет,имееться ввиду есть кнопки с готовыми процедурами например

procedure TForm1.Button6Click(Sender: TObject);
var eee:string;a:integer;
begin
for a:=1 to setchik  do
 begin
   eee:=e.workbooks[1].worksheets[1].cells[a,2];
   stringgrid1.Cells[2,a]:=eee;
 end;
end;

и той же командой можно воспользоваться например в главном меню проги типа

procedure TForm1.N10Click(Sender: TObject);
begin
'как сделать чтоб тут выполнялся Button6Click?чтоб не копировать тот же код сюда'


end;

[Kotofff]

В Инспекторе Объектов на событие OnClick элемента меню N10 "повесить" процедуру Button6Click, потому как они совместимы ...

Или если вернуться к коду:

procedure TForm1.N10Click(Sender: TObject);
begin
  Button6Click(Sender);
end;

[postal2]

или просто кликать по кнопкам

procedure TForm1.N10Click(Sender: TObject);
begin
  Button6.Click;
end;

зы учти, что дельфи не будет в этом случае ждать, пока выполнится событие onclick, а пойдёт дальше. => может быть нестыковка выполнения.

[maxionans]

Идеологически правильнее использовать Actions. Порядок работы с ними примерное такой:
1. Кидаешь на форму компонент TActionList.
2. Дважды щелкаешь по нему - открывается список действий.
3. Добавляешь в списке новое действие.
4. В обработчике события OnExecute у действия прописываешь свой код.
5. У многих компонентов (в том числе у кнопок и элементов меню) есть свойство Action. Через него назначаешь для каждой кнопки необходимое действие - и готово. Теперь при нажатии на любую из этих кнопок будет выполнятся твой код из OnExecute.

[betirsolt]

ребята всем спасибо,очень помогли,тему можно закрывать