Люди, помогите советом! Есть необходимость сделать что то типа TrackBar, но только в 2х плоскостях

← →
Yuraz © (2002-02-05 13:43) [0]

Т.е. регулировка по горизонтали и вертикали. Идеально для этого подходит фигура прямоугольника Shape1, например 230 на 170, и на ней также фигура Shape2, в виде ползунка, 5 на 5 пикселей. Как реализовать захват мышки Shape2, перемещение в области Shape1, чтение координат.

-----
MBo, спасибо за последний ответ про тень!

← →
MBo © (2002-02-05 14:48) [1]

если следовать заложенной парадигме ;), то примерно так
в Mousedown mdown:=true; и наоборот

поищи примеры более корректного перемещения - написал от фонаря

procedure TForm1.s2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var xx,yy:integer;
p:tpoint;
begin
if mdown then begin
p:=screentoclient(mouse.cursorpos);
xx:=p.x-s1.left;
yy:=p.y-s1.top;
if (xx>=0) and (yy>=0) and (xx<=s1.Width-s2.width)
and (yy<=s1.height-s2.height) then begin
if (xx<>oldx) or (yy<>oldy) then begin
oldy:=yy;oldx:=xx;
s2.top:=oldy+s1.top;
s2.left:=oldx+s1.left;
label1.caption:=formatfloat("0.000",xx/(s1.width-s2.width));
label2.caption:=formatfloat("0.000",yy/(s1.height-s2.height));
end;
end;
end;
end;

← →
MBo © (2002-02-05 14:56) [2]

можно без mdown
if ssleft in shift ...

Люди, помогите советом! Есть необходимость сделать что то типа TrackBar, но только в 2х плоскостях Найти похожие ветки