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

← →
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]
И ты хочешь, что бы по другому коду мы сделали диагноз?

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

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

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

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

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