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

> Одиг (12.10.04 12:39) [4]
> кстати можно перделать просто так , аль нет ?!
>
> MyButton = class (TSpeedButton);
> public
> procedure BeginDrag
> procedure OnDragDrop ...

BeginDrag - и так Public-метод
а вытащить без реализации можно только св-ва, и если вытавскивать то уж в published - секцию.

Я Вам привел пример как можно без наследника обойтись.

← →
Одиг (2004-10-12 13:21) [6]

я это понял , толко у меня в любом случае это наследник ...

TSpeedButton и как к нему приделать drag&amp;drop Найти похожие ветки

TSpeedButton и как к нему приделать drag&drop Найти похожие ветки