Подскажите, плз, как правильно к своему TCustomControl прицепить

← →
ProgRAMmer Dimonych © (2006-12-05 22:52) [0]

TControlScrollBar. Выдаёт Access Violation.

В перекрытом Create"е создаю, в Destroy"е - уничтожаю.

Чего-то явно не хватает в Create"е. Чего?

← →
Loginov Dmitry © (2006-12-05 23:11) [1]

> Чего-то явно не хватает в Create"е. Чего?

сгорел...

← →
ProgRAMmer Dimonych © (2006-12-05 23:41) [2]

> Loginov Dmitry © (05.12.06 23:11) [1]
Не понял...

← →
sniknik © (2006-12-06 00:00) [3]

> Не понял...
у меня холодильник не "холодит", выдает "дрр, дд..ррр".

белый, вилку в розетку включаю, выключаю.

наверное сломался. где?

← →
ProgRAMmer Dimonych © (2006-12-06 15:59) [4]

Цитирую TMyControl.Create;

constructor TMyControl.Create(AOwner:TComponent);
begin
{Создание и обновление всего, что нужно для контрола, это было до попытки добавить TControlScrollBar}
FMyHorizontalScrollBar:=TControlScrollBar.Create;
FMyVerticalScrollBar:=TControlScrollBar.Create;
end;

destructor TMyControl.Destroy;
begin
FMyHorizontalScrollBar.Free;
FMyVerticalScrollBar.Free;
{и ещё много всякой мути, не имеющей абсолютно никакого отношения к ScrollBar"ам}
end;

Это пока всё...

← →
Loginov Dmitry © (2006-12-06 16:13) [5]

Код прямо тут набивал?

← →
ProgRAMmer Dimonych © (2006-12-06 16:16) [6]

> Loginov Dmitry © (06.12.06 16:13) [5]
Точная копия кода в Delphi-юните.

← →
ProgRAMmer Dimonych © (2006-12-06 16:16) [7]

P.S. Кроме названия контрола и скролл-баров...

← →
MBo © (2006-12-06 16:20) [8]

А что написано в хелпе по TControlScrollBar.Create?

← →
novill © (2006-12-06 16:24) [9]

> [8] MBo © (06.12.06 16:20)

интересно там написано, но как-то же тогда пользоваться?

← →
ProgRAMmer Dimonych © (2006-12-06 16:25) [10]

> MBo © (06.12.06 16:20) [8]
Ни себе фига! Типа просто объявить как свойство и всё?

P.S. Мда, надо завязывать с программированием по вечерам после учебного дня... :(

← →
Anatoly Podgoretsky © (2006-12-06 16:27) [11]

> ProgRAMmer Dimonych (06.12.2006 16:25:10) [10]

И до тоже

← →
Loginov Dmitry © (2006-12-06 16:30) [12]

И вообще

← →
ProgRAMmer Dimonych © (2006-12-06 16:37) [13]

> Anatoly Podgoretsky © (06.12.06 16:27) [11]
LOL

> Loginov Dmitry © (06.12.06 16:30) [12]
LOL, но только при условии, что это не всерьёз, а как продолжение [11]

← →
Loginov Dmitry © (2006-12-06 16:45) [14]

Конечно же это была шутка :))))))))))))))))

← →
ProgRAMmer Dimonych © (2006-12-08 19:30) [15]

Ага, а теперь прикол: в Object Inspector"е скролл-бары появляются, но их свойства недоступны. Чего делать-то?

← →
Loginov Dmitry © (2006-12-08 22:10) [16]

> Чего делать-то?

На вскидку - создать их с помощью TControlScrollBar.Create(Self);

> Loginov Dmitry © (08.12.06 22:10) [16]
Вскидка не поможет. Я посмотрел исходник: даже так, как это делается в TScrollingWinControl (т.е. Create(Self,sbHorizontal)) не сработает, т.к. у TControlScrollBar метод Create объявлен в разделе private. :(

> ProgRAMmer Dimonych © (08.12.06 22:18) [17]

> не сработает, т.к. у TControlScrollBar метод Create объявлен
> в разделе private. :(

Видимо, это какой-то частный метод.
Бо, конструкторы публичны, IMHO.

Да, и какое отношение это имеет к твоим проблемам,
достаточно удаленным, так сказать, от оного модуля.

--
Regards, LVT.
Regards, LVT,

> Leonid Troyanovsky © (08.12.06 22:41) [18]
А как тогда, если не через TControlScrollBar? Не хочется самому прорисовывать...

> ProgRAMmer Dimonych © (08.12.06 22:54) [19]

> А как тогда, если не через TControlScrollBar? Не хочется

Откуда нам знать?
Да хучь, чрез TScrollingWinControl.

--
Regards, LVT.

> Leonid Troyanovsky © (08.12.06 23:13) [20]
Я, если честно, с самого начала не хотел его юзать, т.к. там Canvas"а нет. А добавлять Canvas - ещё одна головная боль. Придётся, наверное, всё-таки прорисовать скролл-бары самому :(

> ProgRAMmer Dimonych © (08.12.06 23:20) [21]

> Я, если честно, с самого начала не хотел его юзать, т.к.
> там Canvas"а нет. А добавлять

Canvas is a protected property that is usually redeclared as public in descendants of TCustomControl.

--
Regards, LVT.

> Leonid Troyanovsky © (08.12.06 23:30) [22]
By the way, TScrollingWinControl is not a descedant of TCustomControl...

Well, thanks to everyone for your help. I hope, I"ll finally solve the problem now...

Подскажите, плз, как правильно к своему TCustomControl прицепить Найти похожие ветки