Вызов процедуры самой себя

Рейтинг: 0Ответов: 2Опубликовано: 21.05.2011

У меня есть процедура FormShow() которая выполняется при показе нового окна, который рэндомно считывает информацию из файла. И есть кнопка, при нажатии на которую, я бы хотел вызвать эту же процедуру, точнее код процедуры. Как это сделать?

delphi pascal
Источник: Stack Overflow на русском

Ответы

▲ 1Принят

Или можно 

procedure TForm1.FormShow(Sender: TObject)
begin
  ....
end;

procedure TForm1.Button1Click(Sender: TObject)
begin
  FormShow(Form1)
end;
▲ 5

Общий код - в отдельную процедуру, а её вызывайте откуда хотите)

procedure TForm1.Nya()
begin
   // Do nya
end;

procedure TForm1.FormShow(Sender: TObject)
begin
   Nya();
end;

procedure TForm1.Button1Click(Sender: TObject)
begin
   Nya();
end;