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

Y: Integer);

begin

Image2.Cursor:=crHandPoint;

end;

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

Shift: TShiftState; X, Y: Integer);

begin

Image2.Picture:=Image14.Picture;

end;

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

Shift: TShiftState; X, Y: Integer);

begin

Image2.Picture:=Image15.Picture;

end;

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

Shift: TShiftState; X, Y: Integer);

begin

Image3.Picture:=Image16.Picture;

end;

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

Shift: TShiftState; X, Y: Integer);

begin

Image4.Picture:=Image18.Picture;

end;

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

Shift: TShiftState; X, Y: Integer);

begin

Image5.Picture:=Image13.Picture;

end;