[R-18Rus]

Как можно обратиться к процедурам формы из собственноручно написанной процедуры? Выпадает ошибка: Undeclarated identifier: 'Sender'. Пробовал писать (Sender) и (Sender: TObject) - ошибка не проходит.

Код:

Код:

procedure procedure1;
begin
if Form1.Label6.Caption<>('') then
  if MessageDlg('Файл не сохранён. Сохранить?',mtConfirmation,[mbYes, mbNo],0)=6
    then Form1.N10Click(Sender: TObject);
end;

[Yurk@]

Код:

procedure procedure1;
begin
if Form1.Label6.Caption<>('') then
  if MessageDlg('Файл не сохранён. Сохранить?',mtConfirmation,[mbYes, mbNo],0)=6
    then Form1.N10Click(nil);
end;

[icsander]

Сообщение от Yurk@

Код:

procedure procedure1;
begin
if Form1.Label6.Caption<>('') then
  if MessageDlg('Файл не сохранён. Сохранить?',mtConfirmation,[mbYes, mbNo],0)=6
    then Form1.N10Click(nil);
end;

Можно и

Код:

procedure procedure1;
begin
if Form1.Label6.Caption<>('') then
  if MessageDlg('Файл не сохранён. Сохранить?',mtConfirmation,[mbYes, mbNo],0)=6
    then Form1.N10Click(Self);
end;

если в N10Click обрабатывается Sender.

[M.A.D.M.A.N.]

Интерфейс навесь, потом будешь приводить, если привелось - дернешь нужный метод.

[R-18Rus]

Self не сработал.
А почему сработал Nil? Насколько мне известно - это указатель вникуда.

[lmikle]

Сообщение от R-18Rus

Self не сработал.
А почему сработал Nil? Насколько мне известно - это указатель вникуда.

Ну, если к нему нет обращения, то, собственно, почему бы ему и не сработать. Вот если внутри обработчика N10Click ты попробуешь обратиться к Sender - получишь ошибку.

А Self не сработал потому что у тебя его и нет, т.к. данная процедура не является методом класса (в смысле, объекта, для метода класса, который of class, тоже нет Self).

Учите матчасть, это всегда полезно.

[Ildar-tsr]

Сообщение от R-18Rus

Self не сработал.
А почему сработал Nil? Насколько мне известно - это указатель вникуда.

Что значит Self не сработал?
Это не указатель, а объект, который вызывает данную процедуру. Опять же как сказано выше, если в обработчике нажатия на указанный пункт меню не обрабатывается sender, то указывай nil.

[cotseec]

если в N10Click(Sender:TObject); обрабатывать аргумент (Sender), то nil тоже не сработает, здесь значение nil является просто заглушкой, т.к. процедура требует какого-либо аргумента

значение Self не сработало, т.к. процедура, из которой происходит вызов (согласно примера выданного icsander' ом) не является методом какого либо класса, соответственно значения self у нее вообще не существует и обращение к этому значению выдает ошибку

опередили

[Ildar-tsr]

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

А Self не сработал потому что у тебя его и нет...

Ну да, не заметил блин:

Код:

procedure TForm1.procedure1;

[NumLock]

Код:

  Form1.Button1Click(nil);
  Form1.Button1Click(Form1);
  Form1.Button1Click(Application);
  Form1.Button1Click(TButton.Create(Application));

[icsander]

Сообщение от Ildar-tsr

Ну да, не заметил блин:

Код:

procedure TForm1.procedure1;

Блин, у меня косоглазие (не заметил, что процедура не метод класса, привык по умолчанию ).
Self - это явное задание экземпляра класса в его методе.
Например для формы - это указание на саму форму:

Код:

procedure TForm1.N10Click(Sender: TObject);
begin
Showmessage(Self.classname+#13#10+Self.name);
end;

Т.е. Sender - это <Form1>.
Self иногда, еще называют безопасным аргументом методов класса, поэтому предпочтительно использовать именно его.