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

help   Найти похожие ветки 

← →
Groove   (2002-08-11 15:21) [0]

Скажите мне, люди, программисты, и прочие, можно сделать для компонента процедуру, которой у него нету???
Например, в trackbar1 нету процедуры OnMouseUp и OnMouseDown,а они нужны!! Help, Help

---

← →
Anatoly Podgoretsky ©   (2002-08-11 17:05) [1]

Если исходники есть то можно, иначе новый компонент.

---

← →
Юрий Зотов ©   (2002-08-11 17:09) [2]

Вообще говоря, в таких случаях пишется компонент-потомок. А в данном случае все вообще легко - эти события есть в TControl, их надо просто опубликовать.

type
TMyTrackBar = class(TTrackBar)
published
property OnMouseDown;
property OnMouseUp;
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents("Samples", [TMyTrackBar])
end;

---

← →
Groove   (2002-08-11 19:14) [3]

Что-то не выходит =(
Кинь пример на ящик, если не тяжело?!!?!?! =))

---

← →
Groove   (2002-08-11 19:54) [4]

У МЕНЯ ПОЛУЧИЛОСЬ!!!
Я РОДИЛ =))))))))

---

Страницы: 1 вся ветка

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



Память: 0.45 MB
Время: 0.01 c