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]

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

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