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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 27.10.2009, 20:38   #1
MarihuanaP
Пользователь
 
Регистрация: 27.10.2009
Сообщений: 23
По умолчанию Глупый вопрос о delphi. Не отображается Label

Здраствуйте можно спросить?


Код:
var
  Form1: TForm1;
  i,j,q,f:integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormActivate(Sender: TObject);
begin
i:=random(11);
j:=random(11);
Label1.Caption:=inttostr(i);
Label2.Caption:=inttostr(j);
end;
Почему когда я запускаю программа i и j не отображаются в окне формы, и лайбел выглядит пустым
Извините блондинку за тупой вопрос, но пожалуйста объясните.
MarihuanaP вне форума Ответить с цитированием
Старый 27.10.2009, 20:59   #2
Lemo
Форумчанин
 
Аватар для Lemo
 
Регистрация: 13.10.2008
Сообщений: 714
Радость

Попробуй так:
Код:
var
  Form1: TForm1;
  i,j,q,f:integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormActivate(Sender: TObject);
begin
randomize; 
i:=random(11);
j:=random(11);
Label1.Caption:=inttostr(i);
Label2.Caption:=inttostr(j);
end;
Проверил только что, ТС збыл просто подключить генератор случ чисел...

Последний раз редактировалось Lemo; 27.10.2009 в 21:06.
Lemo вне форума Ответить с цитированием
Старый 27.10.2009, 21:01   #3
Вавел из ГМТУ
Форумчанин
 
Регистрация: 19.06.2009
Сообщений: 896
По умолчанию

Цитата:
программа i и j не отображаются в окне формы, и лайбел выглядит пустым
А что значит "не отображаются" и что значит "выглядит пустым"?
Может быть просто событие не срабатывает...
Вавел из ГМТУ вне форума Ответить с цитированием
Старый 27.10.2009, 21:12   #4
MarihuanaP
Пользователь
 
Регистрация: 27.10.2009
Сообщений: 23
По умолчанию

Lemo не помогло к сожалению

Вавел ну в общем да событие почему то не срабатывает, хотя программа запускается, просто лайбел при запуске остается пустым...(
MarihuanaP вне форума Ответить с цитированием
Старый 27.10.2009, 21:15   #5
NeshSoft
Максим Николаев
Форумчанин
 
Аватар для NeshSoft
 
Регистрация: 15.02.2009
Сообщений: 170
По умолчанию

Код:
procedure TForm1.FormActivate(Sender: TObject);
begin
randomize; 
i:=random(11);
j:=random(11);
Label1.Caption:=inttostr(i);
Label2.Caption:=inttostr(j);
Application.ProcessMessages;
end;
Попробуйте так. - это заставит делфи выполнить отложенные операции, т.к. прорисовка лейбл с т.з. программы является не значимой, и может откладываться до лучших времен...
NeshSoft. Программирование на заказ для студентов. Delphi/Pascal. Подробнее на сайте neshsoft.narod.ru
NeshSoft вне форума Ответить с цитированием
Старый 27.10.2009, 21:17   #6
Вавел из ГМТУ
Форумчанин
 
Регистрация: 19.06.2009
Сообщений: 896
По умолчанию

Мне почемуто кажется что форма не знает что у неё есть FormActivate....
Укажите вручную.
Вавел из ГМТУ вне форума Ответить с цитированием
Старый 27.10.2009, 21:21   #7
MarihuanaP
Пользователь
 
Регистрация: 27.10.2009
Сообщений: 23
По умолчанию

NeshSoft не помогло (

Вавел процедура описана :
Код:
procedure
    FormActivate(Sender: TObject);
MarihuanaP вне форума Ответить с цитированием
Старый 27.10.2009, 21:27   #8
Вавел из ГМТУ
Форумчанин
 
Регистрация: 19.06.2009
Сообщений: 896
По умолчанию

Цитата:
Вавел процедура описана :
Код:

procedure
FormActivate(Sender: TObject);
Это ничего не значит )
Выберите форму и перейдите на вкладку Events. (окно Object Inspector)
Там найдите FormActivate и укажите что его нужно отрабатывать.

Вы откудато тупо скопировали код, поэтому так и получается....
Вавел из ГМТУ вне форума Ответить с цитированием
Старый 27.10.2009, 21:27   #9
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,713
По умолчанию

может вы че с формой нахимичили?
Вложения
Тип файла: zip form.zip (1.0 Кб, 9 просмотров)
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation
raxp вне форума Ответить с цитированием
Старый 27.10.2009, 21:36   #10
MarihuanaP
Пользователь
 
Регистрация: 27.10.2009
Сообщений: 23
По умолчанию

Вавел вы оказались правы, я даже не знала что нельзя просто скопировать процедуру, огромное спасибо за помощь)

Всем спасибо за отзывчивость, чмоки всем)
MarihuanaP вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
C# глупый вопрос PMike Помощь студентам 3 08.04.2009 08:26
CheckBox - глупый вопрос JRcoker Общие вопросы Delphi 3 17.08.2008 21:51
глупый вопрос ryton Свободное общение 3 06.06.2008 13:44
глупый вопрос по функциям steck Общие вопросы Delphi 2 17.06.2007 15:40
Вопрос по label. Как сделать так чтобы label была прозрачной. Lonix Компоненты Delphi 2 01.04.2007 06:23