Форум: "Начинающим";
Текущий архив: 2005.11.20;
Скачать: [xml.tar.bz2];
Вниз
Подскажите где ошибка Найти похожие ветки
← →
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 вся ветка
Форум: "Начинающим";
Текущий архив: 2005.11.20;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.031 c
