Как сделать выделение мышью?

Posted by Chas under Топик-обзор

есть форма, пользователь жмен левой кнопкой мыши и , не отпуская кнопки, тянет курсор, при это рисуется прямоугольник.
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.

тема на форуме

Похожие статьи

• Тест в Delphi с помощью RadioGroup
• Random слов в Memo
• Плавное перемещение Image больших размеров
• Выдвижное меню
• Получение яндекс каптчи в Image
• Добавить строку с верха вниз StringGrid
• Выбор таблицы в ComboBox
• Указать координаты для создания компонента
• Скопировать данные из Edit в Word
• Проверить статус звука