VPF::Constructor - Форум программистов

Blindman

Дата 17.4.2005, 00:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Раньше никогда не доводилось работать с конструкторами и деструкторами. Тут решил использовать пример из DRKB для уменьшения мерцания компонентов при перерисовке.

Код


constructor TMyControl.Create; 
begin 
  inherited; 
  ControlStyle := ControlStyle + [csOpaque]; 
end;

Дельфин ругается на этот код. Объясните как же заставить его заработать. Я понимаю что нужно что-то прописать дополнительно, но где? Пытался понять читая объяснение из книги, но там написано настолько заумным языком, что крыша едет.

Разжуйте всё поподробнее, плиз: где, что и как прописать.

Ch0bits

Дата 17.4.2005, 01:03 (ссылка)

(нет голосов)

Загрузка ...

Python Dev.

Профиль
Группа: Завсегдатай
Сообщений: 2124
Регистрация: 21.2.2005
Где: Казань

Репутация: нет
Всего: 62

А какая ошибка конкретно?

--------------------

Quizful - новый портал с классными IT тестами!

Blindman

Дата 17.4.2005, 02:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Undeclared identifier "Label1". На форме есть.

Вы мне напишите, что (допустим):

В секцию процедур допиши то-то
Конструктор вызывай так-то
И т.д.

А то я вообще не понимаю что и куда.

Snowy

Дата 18.4.2005, 12:38 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

Репутация: 192
Всего: 484

Доктор, я когда чихаю, у тещи в тамбове под мышкой чешется...
Между приведенным кодом и этой ошибкой никакой связи.
Конструктор написан правильно.

Blindman

Дата 18.4.2005, 22:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Блин. Пишу я в модуле вышеприведенный пример и мне выдается такая ошибка (Undeclared identifier "Label1"). В чём загвоздка??? Пишу я только вышеприведенный код , неужели ничего дописывать не надо, неужели глюк Дельфи или моих кривых рук? Я даже не знаю что еще написать чтобы меня поняли.

Напишите мне пример использования конструктора, чтобы я понял что к чему.

Girder

Дата 19.4.2005, 11:34 (ссылка)

(нет голосов)

Загрузка ...

Лентяй 2

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

Репутация: 31
Всего: 155

Код

unit labelX;

interface

uses
  SysUtils, Classes, Controls, StdCtrls;

type
  tlabelX = class(TLabel)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
  published
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [tlabelX]);
end;

constructor TlabelX.Create(AOwner:TComponent);
begin
 inherited Create(Aowner);
 ControlStyle := ControlStyle + [csOpaque]; 
end;

end.

Это сообщение отредактировал(а) Girder - 19.4.2005, 11:39

--------------------

Как слышим, так и пишим.
Истина где-то там...

Blindman

Дата 19.4.2005, 22:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

А можно небольшое пояснение? Что делает процедура:

Код


procedure Register;    
begin    
  RegisterComponents('Samples', [tlabelX]);    
end;

сфе

Дата 20.4.2005, 06:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Это регистрация собственного компонента. Инсталировав этот компонент, можно пользоваться вместо TLabel - TLabelX.

Blindman

Дата 21.4.2005, 00:12 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

То есть, даем компоненту второе имя. Так?

сфе

Дата 21.4.2005, 06:43 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Открываешь в Делфе меню Компонент, нажимаешь Нью компонент, в качестве предка указываешь Тлабел и инстелируешь. На закладке Сампл, которая задана там по умолчанию появляется твой TLabelX картинка у него будет А. Удачи!

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »