Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.04.2011, 00:44   #1
autopilot75
Новичок
Джуниор
 
Регистрация: 05.04.2011
Сообщений: 2
По умолчанию VCL формы

Как в VCL форме сделать процедуру, которая начнет выполняться при включении программы, а не по нажатию какой-либо клавиши? И где можно вписать randomize?
Пример: надо сделать, чтобы при включении программы, какой-то переменной присвоилось рэндомное значение.
autopilot75 вне форума Ответить с цитированием
Старый 05.04.2011, 03:04   #2
Don Karleone
Форумчанин
 
Регистрация: 05.04.2010
Сообщений: 410
По умолчанию

обработчик формы OnCreate
ICQ: 593-013-807
Don Karleone вне форума Ответить с цитированием
Старый 05.04.2011, 03:16   #3
autopilot75
Новичок
Джуниор
 
Регистрация: 05.04.2011
Сообщений: 2
По умолчанию

Не совсем понял... Типа такого : procedure TForm1.FormCreate(Sender: TObject); ?

Возник еще один вопрос : как, во время выполнения процедуры, задать переход к другой процедуре? Например начать выполнение TForm1.Button3Click(Sender: TObject). Видимо вместо "Sender: TObject" надо что-то другое написать, но что?

Последний раз редактировалось autopilot75; 05.04.2011 в 03:24.
autopilot75 вне форума Ответить с цитированием
Старый 05.04.2011, 03:32   #4
Sparkman
220400
Форумчанин
 
Аватар для Sparkman
 
Регистрация: 21.05.2010
Сообщений: 726
По умолчанию

Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
     randomize;
end;

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

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

procedure TForm1.Button3Click(Sender: TObject);
begin
     Button2Click(Self);
end;
по Sender определяется тот элемент, который вызвал процедуру.
Cерьёзной помощи не ждите - помогаю в перерывах на "перекур".
Не существует ничего невозможного для человека, который не собирается ничего делать сам.
Не учите человека, если вы не его учитель.
Sparkman вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
winsock udp сервер в потоке, не работает при создании формы или обращению к VCL компоненту marikcool Работа с сетью в Delphi 1 01.10.2010 00:57
DynamicSkinForm VCL TaTT DoGG Компоненты Delphi 4 01.05.2008 16:28
VCL Э/\bФ_}{P Свободное общение 2 21.05.2007 00:21