|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Вопрос по объявлению процедуры
Помогите кому не сложно.
Код ниже. Меня интересует как вызвать процедуру Proba из процедуры FormCreate. вариант выбора Proba в обработчике событий Object Inspector не годится. Т.к. будет еще несколько процедур под это же событие. Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, Buttons; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; procedure Button1Click(Sender: TObject); procedure Proba(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Proba(Sender: TObject); begin Edit1.Text:='Ïîëó÷èëîñü'; end; procedure TForm1.Button1Click(Sender: TObject); begin Form1.Close; end; procedure TForm1.FormCreate(Sender: TObject); begin end; end. |
#2
|
|||
|
|||
Код:
procedure TForm1.FormCreate(Sender: TObject); begin Proba(nil); end; |
#3
|
|||
|
|||
Спасибо большое
|