Перетаскивание картинки с помощью мыши.(ошибка)
Страницы:
<
1
2
>
Aqua © (2011-01-03 19:19:00)
lazarus XP вот код:
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms,
Controls, Graphics, Dialogs,
ExtCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Image1: TImage;
procedure Image1MouseDown(Sender: TObject; Button:
TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure Image1MouseMove(Sender: TObject; Shift:
TShiftState; X, Y: Integer);
procedure Image1MouseUp(Sender: TObject; Button:
TMouseButton; Shift: TShiftState; X, Y: Integer);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
var x0,y0:integer;
move:boolean;
procedure TForm1.Image1MouseDown(sender: TObject; Button:
TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
If button<>mbLeft Then
move:=false
Else begin
move:=true;
x0:=x;
y0:=y
end
end;
procedure TForm1.Image1MouseMove(Sender: TObject; Shift:
TShiftState; X,
Y: Integer);
begin
if move then begin
image1.Left:=image1.Left+x-x0; //
Изменяем позицию левого края
image1.Top:=image1.Top+y-y0; // Изменяем
позицию верхнего края
end;
end;
procedure TForm1.Image1MouseUp(Sender: TObject; Button:
TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
move:=false;
end;
initialization
{$I Unit1.lrs}
end.
ошибки такие:
Unit1.pas(18,66) Hint: Parameter "Shift" not used
Unit1.pas(19,44) Hint: Parameter "Shift" not used
Unit1.pas(20,42) Hint: Parameter "Button" not used
Unit1.pas(20,64) Hint: Parameter "Shift" not used
Unit1.pas(20,84) Hint: Parameter "X" not used
Unit1.pas(20,87) Hint: Parameter "Y" not used
Проект "project1" успешно собран. :)
на форме рисунок не таскается
Anatoly Podgoretsky (2011-01-03 19:28:00) [21]
> Aqua (03.01.2011 19:19:00) [0]
Если проект успешно сообран, то ошибок не обнаружено.
Страницы:
<
1
2
>
Наверх 
ЧАТ |
Орешник |
|
