| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Подскажите где ошибка

DelphiLexx ©   (2005-10-28 20:17:00) 

Есть наследник от TControl'a TMyControl = class(TControl).
в Create пишу:

procedure TMyControl.Create(AOwner: TComponent);
  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.


---

jack128   (2005-10-28 22:00:00) [1]

DelphiLexx ©   (28.10.05 20:17)
TMyControl = class( TControl).
DelphiLexx ©   (28.10.05 20:17)
procedure TMyControl.Create(AOwner: TComponent);
DelphiLexx ©   (28.10.05 20:17)
Parent := TWinControl(Self);
Как прикажешь тебя понимать, Саид???

---

Джо   (2005-10-28 20:46:00) [2]

>  [4] Anatoly Podgoretsky ©   (28.10.05 20:41)
> И ты хочешь, что бы по другому коду мы сделали диагноз?

Диагноз уже вот-вот сделают :))

2 DelphiLexx ©
Опиши, что должен выполнять твой код, что он на самом деле выполняет и, если есть, сообщение об ошибке и строку.

---

Anatoly Podgoretsky   (2005-10-28 20:41:00) [3]

DelphiLexx ©   (28.10.05 20:33) [2]
И ты хочешь, что бы по другому коду мы сделали диагноз?

---

Джо   (2005-10-28 20:39:00) [4]

> Вообщем не в begin то дело

А в чем?

---

DelphiLexx   (2005-10-28 20:33:00) [5]

> Тело процедуры должно начинаться с begin.

begin я случайно забыл. Вообщем не в begin то дело

---

Джо   (2005-10-28 20:24:00) [6]

> в Create пишу:

Тело процедуры должно начинаться с begin.

---

Наверх