Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Пачиму Label не виден? 
:(
    Опции темы
Volkogriz
Дата 12.12.2008, 00:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 216
Регистрация: 16.9.2007

Репутация: 1
Всего: 1
 Доброе время суток!!!
Подскажите как вывести Label на экран?  smile 
Что не делаю безполезно! smile  smile 

Код

var
  SplashForm: TForm;
  SplashImage: TImage;
  SplashSite:TLabel;
  SplashInfo:TLabel;
begin
  SplashForm := TForm.create(nil);
  with SplashForm do
  begin
    BorderStyle := bsNone;
    Position := poScreenCenter;
    // Óêàçûâàåì ðàçìåðû ïîêàçûâàåìîãî èçîáðàæåíèÿ
    ClientWidth := 700;
    ClientHeight :=450 ;
   end;
    SplashImage := TImage.Create(SplashForm);
  with SplashImage do
    begin
SplashImage.Picture.LoadFromFile(extractfilepath(Application.ExeName)+'Boot\Boot.JPG');
    Stretch := true;
    Align := alClient;
    Parent := SplashForm;
    end;
  SplashSite:= TLabel.Create(SplashImage);
  with SplashSite do
    begin
SplashSite.Caption:= 'Ïðèâåòèê ìóäàêè';
SplashSite.Font.Charset:= ANSI_CHARSET;
SplashSite.Font.Color:= clBlue;
SplashSite.Font.Size:= 18;
SplashSite.Font.Height:=  -19;
SplashSite.Font.Name:= 'Markiz de Sad script';
SplashSite.Font.Pitch :=  fpDefault;
SplashSite.Top:=408;
SplashSite.Left:=272;
SplashSite.ParentFont:=false;
SplashSite.Visible:=true;
 end;
  with SplashForm do
   begin
     Show;

      begin
       Repaint;
        // ïàêàç èçîáðîæåíèÿ â ñåêóíäàõ (1000 – îäíà ñåêóíäà, 2000 – äâå ñåêóíäû è ò.ä.)
       Sleep(5000);
      end;
     Close;
     Free;
   end;


--------------------
("`-''-/").___..--''"`-._`6_6  ) ,,,`-.  ( ''' ).` "_-.__.')(_Y_.)'  ._''' )  `._ `. ``-.__'.-'_..`--'_..-_/'''/--'_.' ,'(il).-'''''(li).'  ((!.-'
PM MAIL ICQ   Вверх
AntonN
Дата 12.12.2008, 00:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 491
Регистрация: 8.8.2006

Репутация: 3
Всего: 18
потому что у него не указан Parent


--------------------
user posted image
PM MAIL WWW   Вверх
Volkogriz
Дата 12.12.2008, 00:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 216
Регистрация: 16.9.2007

Репутация: 1
Всего: 1
Ну а в коде магёте а пожалуйсто!!!???
--------------------
("`-''-/").___..--''"`-._`6_6  ) ,,,`-.  ( ''' ).` "_-.__.')(_Y_.)'  ._''' )  `._ `. ``-.__'.-'_..`--'_..-_/'''/--'_.' ,'(il).-'''''(li).'  ((!.-'
PM MAIL ICQ   Вверх
kemiisto
Дата 12.12.2008, 01:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Дикий Кот. =^.^=
****
Награды: 1



Профиль
Группа: Участник Клуба
Сообщений: 3292
Регистрация: 29.7.2007

Репутация: 16
Всего: 160
тут была написана глупость...

Это сообщение отредактировал(а) kemiisto - 12.12.2008, 01:08


--------------------
XMPP-канал.

Unit testing isn't enough. You need static typing.

Пей, кури, пиши на си! smile
PM MAIL WWW GTalk Jabber   Вверх
Akella
Дата 12.12.2008, 01:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329
Код

SplashInfo.parent := SplashForm
PM MAIL   Вверх
Данкинг
Дата 12.12.2008, 01:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
Цитата(kemiisto @  12.12.2008,  01:07 Найти цитируемый пост)
тут была написана глупость...

Млин, а я-то над ней думаю сижу...  smile  smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
kemiisto
Дата 12.12.2008, 01:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Дикий Кот. =^.^=
****
Награды: 1



Профиль
Группа: Участник Клуба
Сообщений: 3292
Регистрация: 29.7.2007

Репутация: 16
Всего: 160
Цитата(Данкинг @  11.12.2008,  23:10 Найти цитируемый пост)
Млин, а я-то над ней думаю сижу...

Данкинг,  smile Я там жуть написал, потёр... После чтения Java-тьюториала совсем плохо думалось. smile 
 
Volkogriz, прости, а на кой ты динамически VCL-компоненты создаёшь? smile 

Это сообщение отредактировал(а) kemiisto - 12.12.2008, 01:12


--------------------
XMPP-канал.

Unit testing isn't enough. You need static typing.

Пей, кури, пиши на си! smile
PM MAIL WWW GTalk Jabber   Вверх
Akella
Дата 12.12.2008, 01:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329
kemiisto, откуда он знает?  smile Ему дали пример... а дальше делай что хошь
PM MAIL   Вверх
Volkogriz
Дата 12.12.2008, 01:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 216
Регистрация: 16.9.2007

Репутация: 1
Всего: 1
Я это как заставку использую!
А вот итекетку туды впервые засунуть захател! smile  smile 
--------------------
("`-''-/").___..--''"`-._`6_6  ) ,,,`-.  ( ''' ).` "_-.__.')(_Y_.)'  ._''' )  `._ `. ``-.__'.-'_..`--'_..-_/'''/--'_.' ,'(il).-'''''(li).'  ((!.-'
PM MAIL ICQ   Вверх
Akella
Дата 12.12.2008, 01:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329
Volkogriz, где-то на форуме у Модератора Snowy была статейка о Parent и Owner, поищи, если найдёшь - полезно будет почитать
PM MAIL   Вверх
Volkogriz
Дата 12.12.2008, 01:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 216
Регистрация: 16.9.2007

Репутация: 1
Всего: 1
И это я сам личьно нагадил'накодил' и мне не кто не давал!!! smile  smile

Добавлено через 1 минуту и 32 секунды
Спасибо большое!!! smile 
--------------------
("`-''-/").___..--''"`-._`6_6  ) ,,,`-.  ( ''' ).` "_-.__.')(_Y_.)'  ._''' )  `._ `. ``-.__'.-'_..`--'_..-_/'''/--'_.' ,'(il).-'''''(li).'  ((!.-'
PM MAIL ICQ   Вверх
Данкинг
Дата 12.12.2008, 01:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
Цитата(kemiisto @  12.12.2008,  01:12 Найти цитируемый пост)
а на кой ты динамически VCL-компоненты создаёшь?

Видимо, чтобы размер EXE-файла уменьшился донельзя. smile 




--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Akella
Дата 12.12.2008, 01:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329
Цитата(Volkogriz @  12.12.2008,  00:46 Найти цитируемый пост)
begin
       Repaint;
        // ïàêàç èçîáðîæåíèÿ â ñåêóíäàõ (1000 – îäíà ñåêóíäà, 2000 – äâå ñåêóíäû è ò.ä.)
       Sleep(5000);

может application.processmessages добавить?
PM MAIL   Вверх
Volkogriz
Дата 12.12.2008, 01:36 (ссылка) | (голосов:2) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 216
Регистрация: 16.9.2007

Репутация: 1
Всего: 1
   smile 

Это сообщение отредактировал(а) Volkogriz - 12.12.2008, 01:46
--------------------
("`-''-/").___..--''"`-._`6_6  ) ,,,`-.  ( ''' ).` "_-.__.')(_Y_.)'  ._''' )  `._ `. ``-.__'.-'_..`--'_..-_/'''/--'_.' ,'(il).-'''''(li).'  ((!.-'
PM MAIL ICQ   Вверх
Akella
Дата 12.12.2008, 01:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329
Volkogriz, не забывай, что ты в тематическом разделе  smile  smile 
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0583 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.