| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TSpeedButton и как к нему приделать drag&drop
Одиг © (2004-10-12 12:16:00)так как у него нету свооих Функция для использования Drag&Drop
может унаследоваться или как ?!
Одиг (2004-10-12 13:21:00) [1]я это понял , толко у меня в любом случае это наследник ...
Семен Сорокин (2004-10-12 12:50:00) [2]
> Одиг (12.10.04 12:39) [4]
> кстати можно перделать просто так , аль нет ?!
>
> MyButton = class (TSpeedButton);
> public
> procedure BeginDrag
> procedure OnDragDrop ...
BeginDrag - и так Public-метод
а вытащить без реализации можно только св-ва, и если вытавскивать то уж в published - секцию.
Я Вам привел пример как можно без наследника обойтись.
Одиг (2004-10-12 12:39:00) [3]кстати можно перделать просто так , аль нет ?!
MyButton = class (TSpeedButton);
public
procedure BeginDrag
procedure OnDragDrop ...
...
end
Семен Сорокин (2004-10-12 12:36:00) [4]
> вы имеете ввиду что у родителя есть такие методы но они
> не публичные ?!
ага эти методы есть для всех наследников TControl
Одиг (2004-10-12 12:34:00) [5]Нипонил ?!
поясните для тупого этот код ,
вы имеете ввиду что у родителя есть такие методы но они
не публичные ?!
Семен Сорокин (2004-10-12 12:27:00) [6]
type
TMySpeedButton = class(TSpeedButton);
...
TMySpeedButton(SpeedButton1).BeginDrag(false)
TMySpeedButton(SpeedButton1).OnDragDrop := ...
| |
