Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как вызвать процедуру нажатия на кнопку ?

Автор: Mepcuk 26.10.2006, 16:32

Как вызвать процедуру нажатия на кнопку ?

Код


procedura supermain();
begin


            // <<<<-- Kak vizvatj proceduru BUTTON2CLICK ??????



end;


procedure TForm1.Button2Click(Sender: TObject);
var m:integer;
    edi_name:string;
begin
    for m:=1 to 2 do
    begin
      Edi_name:='Edit'+IntToStr(m);
      TEdit(FindComponent(edi_name)).Text:='1';
    end;
end;

Автор: Snowy 26.10.2006, 16:42

Код


  Form1.Button2.Click;

Автор: Albinos_x 26.10.2006, 16:51

или так:

Код


Button2Click(Self);

Автор: Mepcuk 26.10.2006, 17:23

СПАСИБОоооооооооооооооооооооооооо