Вызов процедуры

[ToX]

Как мне из другой процедуры вызвать
процедуру BitbtnXXXClick? Что писать в скобках вместо Sender: TObject?

[Surround]

ToX
в хелпах вроде бы было про вызов процедур и функций
че за странная процедура?

[ToX]

Ну т.е. *мне надо из другой процедуры вызвать выполнение процедуры нажатия какой либо кнопки.



Исправлено: ToX, 17:40 27-06-2004

[Surround]

ToX
попробуй просто без параметров, или в скобках nil пропиши. На худой конец Label создай в том месте, куда надо вызывать...

[ToX]

Ругается:
This form of method call only allowed for class methods

[Surround]

ToX
ну тогда попробуй то, что выполняется при нажатии кнопки, определить как procedure, и вызывай при нажатии на кнопку, и когда еще нужно будет.:gigi:

[shurikan]

ToX
Эта процедура является членом класса. Если кнопка у тебя расположена на форме Form1, а ты вызываешь процедуру нажатия не из процедур-членов TForm, то необходим следующий вызов: Form1.BitbtnXXXClick(...). А вместо Sender подставь Form1.BitbtnXXX :)

Исправлено: shurikan, 17:05 28-06-2004

[CyberDaemon]

... а я в таких случаях вместо sener пишу SELF. Типа сама себя :)

[ToX]

Tkz

[fossil]

Если я правильно понял то тебе надо нажать на одну кнопку, а вызывалась другая процедура? Если да, то так:
Button10Click(Button11);
где Button11 - по которой ты жмешь (ака отправитель)
Button10 - Вторая кнопка.
Получается хоть по одной хоть по длругой кнопки жмешь, все равно одно и то же :)

[RIKO]

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('нажал');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Button1.Click;
end;
Так не подойдёт?