Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.02 c