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

Shift: TShiftState; X, Y: Integer);

begin

Image5.Picture:=Image12.Picture;

end;

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

Shift: TShiftState; X, Y: Integer);

begin

Image6.Picture:=Image25.Picture;

end;

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

Shift: TShiftState; X, Y: Integer);

begin

Image7.Picture:=Image22.Picture;

end;

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

Shift: TShiftState; X, Y: Integer);

begin

Image8.Picture:=Image21.Picture;

end;

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

Shift: TShiftState; X, Y: Integer);

begin

Image9.Picture:=Image10.Picture;

end;

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

Y: Integer);

begin

Image3.Cursor:=crHandPoint;

end;