Текущий архив: 2004.10.24;
Скачать: CL | DM;
Вниз
TSpeedButton и как к нему приделать drag&drop Найти похожие ветки
← →
Одиг (2004-10-12 12:16) [0]так как у него нету свооих Функция для использования Drag&Drop
может унаследоваться или как ?!
← →
Семен Сорокин © (2004-10-12 12:27) [1]
type
TMySpeedButton = class(TSpeedButton);
...
TMySpeedButton(SpeedButton1).BeginDrag(false)
TMySpeedButton(SpeedButton1).OnDragDrop := ...
← →
Одиг (2004-10-12 12:34) [2]Нипонил ?!
поясните для тупого этот код ,
вы имеете ввиду что у родителя есть такие методы но они
не публичные ?!
← →
Семен Сорокин © (2004-10-12 12:36) [3]
> вы имеете ввиду что у родителя есть такие методы но они
> не публичные ?!
ага эти методы есть для всех наследников TControl
← →
Одиг (2004-10-12 12:39) [4]кстати можно перделать просто так , аль нет ?!
MyButton = class (TSpeedButton);
public
procedure BeginDrag
procedure OnDragDrop ...
...
end
← →
Семен Сорокин © (2004-10-12 12:50) [5]
> Одиг (12.10.04 12:39) [4]
> кстати можно перделать просто так , аль нет ?!
>
> MyButton = class (TSpeedButton);
> public
> procedure BeginDrag
> procedure OnDragDrop ...
BeginDrag - и так Public-метод
а вытащить без реализации можно только св-ва, и если вытавскивать то уж в published - секцию.
Я Вам привел пример как можно без наследника обойтись.
← →
Одиг (2004-10-12 13:21) [6]я это понял , толко у меня в любом случае это наследник ...
Страницы: 1 вся ветка
Текущий архив: 2004.10.24;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.089 c
