выделение мышью

[codermoder]

есть форма, пользователь жмен левой кнопкой мыши и , не отпуская кнопки, тянет курсор, при это рисуется прямоугольник.
1) как нарисовать этот прямоугольник?
2) как узнать его размер (длина, высота) и начальные координаты x и y?

[MadReason]

var
  Form1: TForm1;
  xd,yd:integer;
  pr:boolean=false;

implementation

{$R *.dfm}

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  xd:=x;
  yd:=y;
  pr:=true;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  pr:=false;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if pr then
  Canvas.Rectangle(xd,yd,x,y);
end;

end.

с размерами думаю разберешься сам

[MyLastHit]

Почему нельзя поискать то? На предыдущей странице есть топик, как создать SelectBox
http://programmersforum.ru/showthread.php?t=136630

[ArtGrek]

думаю вы ето ишите
http://www.delphisources.ru/pages/fa...rectangle.html

[CepbIu]

я делал когда то такое, при этом я использовал 33-е прерывание(int 33h), писал на турбо паскале
проверял какая кнопка нажата, получал координаты, и уже с помощью graph рисовал

[codermoder]

большое спасибо MadReason
то что нужно!

еще вопрос.
я поставил у формы прозрачность, как сделать чтобы прямоугольник рисовался все равно ярко?
как сделать прозрачный фон у прямоугольника? если делаю так

Canvas.Brush.Style:=bsClear;

то прямоуголник рисуется с множеством линий "внутри"?

[Freddy_Kruger]

Ууу... При таких методах тебе нужно каждый раз очищать canvas.