Скачать: CL | DM;

Подскажите где ошибка   Найти похожие ветки 

← →
DelphiLexx ©   (2005-10-28 20:17) [0]

Есть наследник от 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.


---

← →
Джо ©   (2005-10-28 20:24) [1]

> в Create пишу:

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

---

← →
DelphiLexx ©   (2005-10-28 20:33) [2]

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

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

---

← →
Джо ©   (2005-10-28 20:39) [3]

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

А в чем?

---

← →
Anatoly Podgoretsky ©   (2005-10-28 20:41) [4]

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

---

← →
Джо ©   (2005-10-28 20:46) [5]

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

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

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

---

← →
jack128 ©   (2005-10-28 22:00) [6]

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);
Как прикажешь тебя понимать, Саид???

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c