Czy ktos wie jak sie do tego zabrac ...
tak ja wiem :-) :-D
// to w procedurach dla shape
var
b: boolean;
t: tpoint;
//pod onmousedown
b:=true;
t:=point(x,y);
//pod onmousemove
if b then
begin
shape1.left := shape1.left + (x-t.x); {tego nie jestem pewien}
shape1.top := shape1.top + (y-t.y); {tego nie jestem pewien}
end;
//pod onmouseup
b:=false;
heh bylo to juz gdzies kiedys szukoj :P
wiem ze bylo kiedys cos podobnego ale jakos to nie dziala tak jak powinno a to co mi teraz napisales nie widziala <font color="red">w ogóle</span>.
wiem ze pewnie trzeba ustawic cos jeszcze we wlasciwosciach tshape zeby w ogóle mozna nim bylo poruszac.... chyba
to co mi teraz napisales nie widziala <font color="red">w ogóle</span>.
wiem ze pewnie trzeba ustawic cos jeszcze we wlasciwosciach tshape zeby w ogóle mozna nim bylo poruszac.
To źle wiesz. Właśnie na żywca wkleiłem kod podany przez -T-H-C- - działa wyśmienicie! Zanim napiszesz, że ktoś popełinł błąd - sprawdź to kilka razy!
no mnie tesh działa gitnie :-)
mnie sie wydaje że ty w złe miejsce wstawiłeś zadeklarowanie zmiennych, bo mógł cie zmylić troche text, więc wstaw deklaracje tych zmiennych nie do procedury tylko tam gdzie sie deklaruje zmienne globalne (nad implementation) :-)
Heh no dziala mala pomylka z nazwa komponentow :)
dzieki za wszystko