Как мне из другого места программы выполнить процедуру типа
TForm1.Button1Click(Sender: TObject);

Сейчас я делаю так - Создаю отдельную процедуру ,в TForm1.Button1Click прописываю ее и из другого места программы тоже вызываю эту новую процедуру.А можно ли как-то вызвать сразу TForm1.Button1Click?
Вот пример того как делаю подобные вещи я:

Код

Procedure Butt1; begin; ShowMessage('Press Button1'); end; procedure TForm1.Button1Click(Sender: TObject); begin Butt1; end; procedure TForm1.Button2Click(Sender: TObject); begin Butt1; end;

А можно ли из Button2Click вызвать Button1Click?

Это сообщение отредактировал(а) SlaUr - 11.6.2004, 09:57

Код

Procedure Form1.Button2Click(Sender: Tobject); begin  Button1Click (); end;

Читайте хелп!!!


Блин я плакаль!!!

Это сообщение отредактировал(а) ~FoX~ - 11.6.2004, 10:04

~FoX~ Вы плакали :-) а я об этом не знал - я вообще еще многие простые вещи не знаю . Спасибо за ответ.
Иногда стыдно задавать может элементарные вопросы,но что делать приходится (спросить то больше не у кого - только в форуме) .
Не видел книг по вот таким элементарным вещам,во всех книгах в основном расматриваются VCL и например Базы данных.



Это сообщение отредактировал(а) SlaUr - 11.6.2004, 10:31

~FoX~

Код

Procedure Form1.Button2Click(Sender: Tobject); begin Button1Click (); end

Ваш код не компелируется .

~FoX~
че ты плачешь? код-то вообще неправильный... надо в скобочках параметр передавать ))
SlaUr
можешь сделать так

Button1.Click;

проще будет и лучше по-моему

Button1Click(Self);

AriX Спасибо , решение действительно очень простое и действенное.Но все же как запустить Button1Click () с передачей параметров ?

p.s. Пока писал вопрос Girder уже писал ответ .Вопрос снимается .Всем спасибо.

Это сообщение отредактировал(а) SlaUr - 11.6.2004, 10:58

2All
Люди вы вообще о чем говорите то!???
Если человек не умеет вызывать процедуру..........ему не на делфи писать надо!!!
2SlaUr
1. Книги?? Да в делфи хелп встроенный обширный!!!
2. В жизни не поверю, что в книге по программированию нет примера вызова процедуры\функции (с параметроми и без)!!!
3. Собственную процедуру вызвать можешь, а чужую с единственным параметром - не можешь?
=========================================================
Да и вообще все куда проще - в объект инспекторе на событие OnClick у Button2, выбрсть Button1OnClick. Уж это то можно было допереть своими мОзгами!!!
З.Ы. Прошу прощения за излишнюю эмоцианальность! Ни кого не хотел обидеть!

~FoX~ Про Button1Click я спросил так для примера , мне было нужно было знать как вообще вызывать процедуры с входными параметрами (Sender: Tobject) вот и все.Сами подумайте зачем мне дублировать кнопки?

И вообще в форуме люди могут задать любой вопрос.Если вам вопрос кажется слишком примитивным можете не отвечать.Найдутся другие люди которые обьязательно помогут.Ищите для себя вопросы ,достойные ваших обширных знаний.

Это сообщение отредактировал(а) SlaUr - 11.6.2004, 11:34

B инспекторе обьектов зайди в закладку events, а в ней найди onclick. Там будет ниспадающий список из возможных процедур, выбери Button1Click

Это сообщение отредактировал(а) Shishkin - 12.6.2004, 14:37

~FoX~
Ты же сам не знал, как это сделать, а выпендриваешься

Цитата(SlaUr @ 11.6.2004, 11:23)

Сами подумайте зачем мне дублировать кнопки?

Иногда вызов тела процедуры по нажатию кнопки бывает нужен другой процедуре.
Часто сталкивался. Не переписывать же код в самом-то деле, а Label и goto стараюсь не использовать SUX это

по моему скромному мнению, Slaur делал изначально абсолютно правильно. если у меня обработчики используют один и тот же код, я всегда выношу его в отдельную процедуру и вызывают её в обработчиках. использовать один и тот же обработчик - не совсем удобно. может понадобиться потом добавить в один из них что-то индивидуальное. при выносе кода в отдельную процедуру, это делается без проблем. а вот при использовании одного обработчика на всех - придётся либо извращаться, либо опять таки, выносить общий код отдельно.

Цитата

2All Люди вы вообще о чем говорите то!??? Если человек не умеет вызывать процедуру..........ему не на делфи писать надо!!!

НЕ тебе решать на чем ему писать! ... человек учится как хочет или как может ... я лично всему сам научился без книг, достаточно было исходников или метода тыка

Цитата

И вообще в форуме люди могут задать любой вопрос.Если вам вопрос кажется слишком примитивным можете не отвечать.Найдутся другие люди которые обьязательно помогут.Ищите для себя вопросы ,достойные ваших обширных знаний.

Что верно, то верно ...
Добавлено @ 23:03

Цитата(x77 @ 13.6.2004, 21:59)

по моему скромному мнению, Slaur делал изначально абсолютно правильно. если у меня обработчики используют один и тот же код, я всегда выношу его в отдельную процедуру и вызывают её в обработчиках. использовать один и тот же обработчик - не совсем удобно. может понадобиться потом добавить в один из них что-то индивидуальное. при выносе кода в отдельную процедуру, это делается без проблем. а вот при использовании одного обработчика на всех - придётся либо извращаться, либо опять таки, выносить общий код отдельно.

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

я программлю уже больше шести лет. профессионально, я имею в виду, т.е. за деньги. а балуюсь вообще со школы, т.е. уже лет 8-10. и вот на днях узнал, что к элементу набора данных можно при желании обратиться по индексу.... был в шоке.

все мы пальцы гнуть умеем, и рассуждать кому на чём писать.... если я знаю ответ, я его пишу, даже если он 100 раз был в факе или ещё где-то.

Короче. ~FOX~, будь проще, и коллектив к тебе потянется