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

[Вадим Мошев]

Здравствуйте.
У меня возникла необходимость при вызове пункта меню (меню – имеется ввиду: файл, правка, вид, и так далее, как в большинстве программ) дублировать действие, выполняемое при нажатии кнопки, располагающейся на этой же форме, что и меню (для избыточности).

В коде это выглядит следующим образом:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    MainMenu1: TMainMenu;
    N111111: TMenuItem;
    Menu: TMenuItem;
    procedure Button1Click(Sender: TObject);
    procedure MenuClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
{Этот метод вызывается в том случае,
Если была нажата кнопка}
label1.Caption:=TimeToStr(now);
end;

procedure TForm1.MenuClick(Sender: TObject);
begin
{Это обработчик события нажатия на пункт меню
Здесь просто происходит дублирование действия нажатия кнопки
Через вызов соответствующего метода}
form1.Button1Click(form1);
end;

end.

Когда я описывал метод обработчика нажатия на пункт меню, возник большой соблазн в качестве передаваемого параметра вызова обработчика нажатия кнопки передать переменную form1, что я и сделал. Всё работало хорошо.

Но в более серьёзных проектах переменна form1 имеет существенно больший размер, нежели чем в данном примере, и при попытке передать её в качестве параметра происходит переполнение стека (как это произошло у меня).

Итак, я прошу помочь мне в данном вопросе: каким образом можно выполнить описанное здесь дублирование; что необходимо передавать в качестве параметра, чтобы не свалиться в переполнение стека. Я пробовал передавать адрес переменной Form1 (через оператор @) – не помогло
Заранее большое спасибо.

P.S. Программу-пример леплю в качестве приложения

[Stilet]

form1.Button1Click(form1);

Замени на form1.Button1.Click; и не парься.

[Прик]

Когда вызывается процедура обработки события кнопки, то ей в качестве параметра передается указатель на эту самую кнопку. Так происходит в недрах винды.
Для "самостоятельного" вызова обработчика можно передать nil, если в процедуре обработки параметр Sender никак не участвует. Если же будет участвовать, то передается указатель на саму кнопку.

  Button1Click(nil);
  //или
  Button1Click(Button1);

[Аватар]

Сообщение от Вадим Мошев

Но в более серьёзных проектах переменна form1 имеет существенно больший размер, нежели чем в данном примере, и при попытке передать её в качестве параметра происходит переполнение стека (как это произошло у меня).

Переменная такого типа в любых проектах будет иметь один и тот же размер, поскольку это указатель. И если Sender не используется в процедуре, то в общем-то не важно что передать: от nil до любого TObject

[Вадим Мошев]

Всем огромное спасибо. И за предоставленную информацию тоже. Всё оказалось просто. Причина - у меня в подписи.

Вот смотрите.

Процедура обработки нажатия кнопки у меня имеет такой заголовок:

procedure TForm3.ButtonAddNewQuestionClick(Sender: TObject);

А процедура обработки клика на пункт меню (заголовок) выглядит так:

procedure TForm3.AddNewQuestionClick(Sender: TObject);

По условию задачи, в этой процедуре должно было быть обращение к обработчику нажатия кнопки. И тут я, видимо запутался, в общем, не знаю, почему, там я написал:

Form3.AddNewQuestionClick(form3);

То есть у меня было написано:

procedure TForm3.AddNewQuestionClick(Sender: TObject);
begin
Form3.AddNewQuestionClick(form3);

Процедура вызывала сама себя рекурсивно, при этом об условии выхода и речи не было. Бесконечная рекурсия, стек забился и переполнился...

ПС. Не будет наверное того случая, когда я с первого раза напишу непростую программку, без единого бага...
Все отвечавшие получают плюсики.

Stilet. Не могу что-то я тебе поднять репутацию...

[phomm]

советую для написания множественных "вызывателей" одного действия поизучать Tactionlist
примерный аналог ему же - писать собственные процедуры/функи в public формы или в интерфейсе unit'a и потом просто вызывать их нужными кнопками/менюшками/тулбарами

ну и маленький хинт - лучше внутри метода конкретной формы не указывать конкретная_форма.её_поле(или метод) а просто сразу её_поле , а то потом захотите рефакторить , переназвать форму, и везде придётся удалять/менять эти строки

[Вадим Мошев]

ну и маленький хинт - лучше внутри метода конкретной формы не указывать конкретная_форма.её_поле(или метод) а просто сразу её_поле , а то потом захотите рефакторить , переназвать форму, и везде придётся удалять/менять эти строки

Да, спасибо, я сам просто потом уже понял.
Во-первых, нет никакого смысла к объекту, если мы описываем его метод, ну, а, во-вторых, всё то, что сказали вы. Спасибо.

советую для написания множественных "вызывателей" одного действия поизучать Tactionlist
примерный аналог ему же - писать собственные процедуры/функи в public формы или в интерфейсе unit'a и потом просто вызывать их нужными кнопками/менюшками/тулбарами

Лучше, действительно, мне раскурить этот компонент (как и другие компоненты делфи), чтобы легче жилось и чайниковские вопросы не сыпались...

[ZvEr_HaCkEr]

А я бы просто написал процедуру, а после вызывал ее.

procedure Click;
begin
Form1.label1.Caption:=TimeToStr(now);
end;

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