Курсовая работа: Мониторинг ОС

end;

procedure TForm1.FormPaint(Sender: TObject);

begin

Canvas.Draw(0, 0, Image1.Picture.Bitmap);

end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

if button=mbLeft then

begin

Dragging := True;

OldLeft := X;

OldTop := Y;

end;

end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if Dragging then

begin

Left := Left+X-OldLeft;

Top := Top+Y-OldTop;

end;

end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Dragging := False;

end;