VPF::Подскажите где ошибка - Форум программистов

Delphist

Дата 28.10.2005, 19:03 (ссылка)

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

Загрузка ...

Delphist Эксперт

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

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

Есть наследник от TControl'a TMyControl = class(TControl). TMyControl делает следующее:
создает два элемента TPanel, который должен лежать и принадлежать TMyControl и TImage который должен лежать и принадлежать TPanel, но в коде возникает ошибка с Self.

Где я тут чего неправильно делаю.

Код


procedure TMyControl.Create(AOwner: TComponent);
begin
  Self.Parent := AOwner;   
  panel := TPanel.Create(Self)
  with panel do begin
    panel.Visible := false;
    DoubleBuffered := true;
    Parent := TWinControl(Self);
  end;
  GlueImageTop := TImage.Create(panel);   
  with GlueImageTop do begin
    Parent := TWinControl(panel);
    Align := alTop;
    Cursor :=crUpArrow;
    Transparent := true;
  end;
end.

Это сообщение отредактировал(а) Delphist - 28.10.2005, 19:16

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

ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...

Bose

Дата 28.10.2005, 19:08 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1458
Регистрация: 5.3.2005
Где: Riga, Latvia

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

а сожет просто убрать блоки

Код


with *** do begin
end;

и писать напрямую. типа
panel.parent:=TWinControl(Self);

все-равно компилятор это потом оптимизурует..

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

Лучшее о Delphi за 2013 год. Подборка ссылок.

Delphist

Дата 28.10.2005, 19:17 (ссылка)

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

Загрузка ...

Delphist Эксперт

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

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

Цитата(Bose @ 28.10.2005, 19:08)

а сожет просто убрать блоки

Код


with *** do begin
end;

и писать напрямую. типа
panel.parent:=TWinControl(Self);

все-равно компилятор это потом оптимизурует..

With здесь не причем. Для общего сведения с with компилятор делает код более эфективне

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

Poseidon

Дата 28.10.2005, 19:49 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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

Цитата(Delphist @ 28.10.2005, 19:03)

Self.Parent := AOwner;

Чо-то я не понял. Self.Parent - это TWinControl, а AOwner у тебя это TComponent. Эти типы разве совместимы?

Далее...
Где обьявлены panel: TPanel, GlueImageTop: TImage

Короч, давай весь код, а не вырезку.

PS. И для читабильности:

Цитата

with panel do begin
panel.Visible := false;

-->

Код

  with panel do begin
    Visible := false;

Добавлено @ 19:53
И еще забыл:

Цитата(Delphist @ 28.10.2005, 19:03)

panel := TPanel.Create(Self)
with panel do begin

Точку с запятой забыл

Цитата

panel := TPanel.Create(Self);
with panel do begin

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

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