Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)
-   -   Вызов процедуры (http://forum.oszone.net/showthread.php?t=29571)

ToX 26-06-2004 18:38 204634

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

Surround 27-06-2004 16:39 204635

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

ToX 27-06-2004 17:35 204636

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



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

Surround 27-06-2004 19:13 204637

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

ToX 27-06-2004 19:43 204638

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

Surround 27-06-2004 21:48 204639

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

shurikan 28-06-2004 17:04 204640

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

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

CyberDaemon 28-06-2004 17:35 204641

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

ToX 28-06-2004 21:01 204642

Tkz

fossil 30-06-2004 09:13 204643

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

RIKO 24-07-2004 00:11 204644

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

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


Время: 20:53.

Время: 20:53.
© OSzone.net 2001-