Rambler's Top100
"Knowledge itself is power"
F.Bacon
Поиск | Карта сайта | Помощь | О проекте | ТТХ  
 Круглый стол
  
Правила КС
>> Настройки

Фильтр вопросов
>> Новые вопросы
отслеживать по
>> Новые ответы

Избранное

Страница вопросов
Поиск по КС


Специальные проекты:
>> К л ю к в а
>> Г о л о в о л о м к и

Вопрос №

Задать вопрос
Off-topic вопросы

Помощь

 
 К н и г и
 
Книжная полка
 
 
Библиотека
 
  
  
 


Поиск
 
Поиск по КС
Поиск в статьях
Яndex© + Google©
Поиск книг

 
  
Тематический каталог
Все манускрипты

 
  
Карта VCL
ОШИБКИ
Сообщения системы

 
Форумы
 
Круглый стол
Новые вопросы

 
  
Базарная площадь
Городская площадь

 
   
С Л С

 
Летопись
 
Королевские Хроники
Рыцарский Зал
Глас народа!

 
  
ТТХ
Конкурсы
Королевская клюква

 
Разделы
 
Hello, World!
Лицей

Квинтана

 
  
Сокровищница
Подземелье Магов
Подводные камни
Свитки

 
  
Школа ОБЕРОНА

 
  
Арсенальная башня
Фолианты
Полигон

 
  
Книга Песка
Дальние земли

 
  
АРХИВЫ

 
 

Сейчас на сайте присутствуют:
 
  
 
Во Флориде и в Королевстве сейчас  00:37[Войти] | [Зарегистрироваться]
Ответ на вопрос № 59674

22-02-2008 05:32
здравствуйте!
вопрос у меня такого плана:
когда я создаю программно Label на форме - я не вижу этот самый лэйбл. Почему?
Вроде бы уже и все свойства перебрал прямо или косвенно отвечающие за прорисовку.
Может быть я принципиально что-то делаю не так?
Помогите плиз )

вот пример, при компиляции которого на форме нет лэйбла:


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  L : TLabel;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  L := TLabel.Create(Form1);
  L.Caption := '1';
{дальше идет перебор свойств прямо или косвенно связанных с прорисовкой. может нет нужного???}
  L.Visible := True;
  L.Transparent := False;
  L.AutoSize := True;
  L.Top := 0;
  L.Left := 0;
  L.Font.Size :=8;
  L.Font.Name := 'MS Sans Serif';
  L.Font.Color := clBlack;
  L.Color := clBlack;
end;

end.

[+] Добавить в избранные вопросы

Отслеживать ответы на этот вопрос по RSS

Ответы:


Уважаемые авторы вопросов! Большая просьба сообщить о результатах решения проблемы на этой странице.
Иначе, следящие за обсуждением, возможно имеющие аналогичные проблемы, не получают ясного представления об их решении. А авторы ответов не получают обратной связи. Что можно расценивать, как проявление неуважения к отвечающим от автора вопроса.

22-02-2008 19:03 | Комментарий к предыдущим ответам
в смысле первой половины Вашего ответа ;-)

22-02-2008 19:02
2 Бел Амор

С вами не можно и не нужно поспорить :-)

ЗЫ и не буду...

22-02-2008 13:50
>>> а вот
>>> L.Parent := Form1;
>>> действительно помогло

Это грубая ошибка. Вы разрабатываете класс... Правильнее будет так:

  L.Parent := Self;

Почему это именно ошибка, а не недочёт, попробуйте ответить сами, сформулировав для себя различия между Form1 и Self

P.S. И старайтесь никогда не использовать автогенерируемые объявления форм. Их лучше удалять сразу после создания формы в дизайнере, чтобы не было соблазна использовать. Про то, что все формы, кроме главной, не должны быть автосоздаваемыми, я даже упоминать не буду... ;)

22-02-2008 06:20
to Cedar:
Если будет время, почитайте вот эту статью
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=342

Это поможет Вам получить ответы на те вопросы по данной тематике, которые перед Вами еще не встали ;-)

* * *
to Shura ???:
>>> после изменения l.Caption, нужно обязательно сделать l.Refresh, иначе ты этого самого Caption не увидешь
Хм... Вы в этом уверены? Я как-то никогда Refresh не делал, но изменения в Caption видел. Или я как-то неправильно Вас понял?

22-02-2008 05:50 | Сообщение от автора вопроса
а вот
L.Parent := Form1;
действительно помогло )

22-02-2008 05:49 | Комментарий к предыдущим ответам
2 Сергей Хачатуров:
спасибо за экскурс, но вопрос был несколько по другой тематике ;)

22-02-2008 05:47
И ещё... у тебя L.AutoSize := True;
Это значит, что ширина контрола будет зависеть от его содержимого. А L.Caption у тебя = '' :)
К тому же, после изменения l.Caption, нужно обязательно сделать l.Refresh, иначе ты этого самого Caption не увидешь.

22-02-2008 05:45
оцените разницу:

L := TLabel.Create(Form1);
with L do begin
  Caption := '1';
  Visible := True;
  Transparent := False;
  AutoSize := True;
  Top := 0;
  Left := 0;
  Font.Size :=8;
  Font.Name := 'MS Sans Serif';
  Font.Color := clBlack;
  Color := clBlack;
end;//with



когда просто L. - это норм, а когда

TButton(Form1.Panel1.Compontnts[0]).Caption = 'Кнопка';
TButton(Form1.Panel1.Compontnts[0]).Left = 10;
TButton(Form1.Panel1.Compontnts[0]).Top = 10;
TButton(Form1.Panel1.Compontnts[0]).Width = 100;
TButton(Form1.Panel1.Compontnts[0]).Height = 20;

то
with Form1.Panel1.Compontnts[0] as TButton do begin
  Caption = 'Кнопка';
  Left = 10;
  Top = 10;
  Width = 100;
  Height = 20;
end;//with
намного лучше читается.

ЗЫ чрезмерно увлекаться With правда тоже не стоит...

22-02-2008 05:39 | Комментарий к предыдущим ответам
Спасибо)
Пока не приходилось сталкиваться с программным добавлением объектов, потому и несколько глупый впрос получился

22-02-2008 05:34
L.Parent := Form1;

22-02-2008 05:33
Прочитайте про свойство Parent. Что это такое, и зачем оно нужно. Особенно, для потомков TControl.

Добавьте свое cообщение

Вашe имя:  [Войти]
Ваш адрес (e-mail):На Королевстве все адреса защищаются от спам-роботов
контрольный вопрос:
Раз дощечка, два дощечка будет лесенка. Раз словечко, два словечко, будет ЧТО?
в качестве ответа на вопрос или загадку следует давать только одно слово в именительном падеже и именно в такой форме, как оно используется в оригинале.
Надоело отвечать на странные вопросы? Зарегистрируйтесь на сайте.
Тип сообщения:
Текст:
Жирный шрифт  Наклонный шрифт  Подчеркнутый шрифт  Выравнивание по центру  Список  Заголовок  Разделительная линия  Код  Маленький шрифт  Крупный шрифт  Цитирование блока текста  Строчное цитирование
  • вопрос Круглого стола № XXX

  • вопрос № YYY в тесте № XXX Рыцарской Квинтаны

  • сообщение № YYY в теме № XXX Базарной площади
  • обсуждение темы № YYY Базарной площади
  •  
     Правила оформления сообщений на Королевстве

    Страница избранных вопросов Круглого стола.
      
    Время на сайте: GMT минус 5 часов

    Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter.
    Функция может не работать в некоторых версиях броузеров.

    Web hosting for this web site provided by DotNetPark (ASP.NET, SharePoint, MS SQL hosting)  
    Software for IIS, Hyper-V, MS SQL. Tools for Windows server administrators. Server migration utilities  

     
    © При использовании любых материалов «Королевства Delphi» необходимо указывать источник информации. Перепечатка авторских статей возможна только при согласии всех авторов и администрации сайта.
    Все используемые на сайте торговые марки являются собственностью их производителей.

    Яндекс цитирования