Delphi XE2 firemonkey

[ST@LKER]

нужно сделать так что бы 3D объект двигался за курсором мыши
при компиляции ошибка [DCC Error] Unit1.pas(54): E2010 Incompatible types: 'TPoint3D' and 'TPointF'

сам код соответственно

procedure TForm1.Viewport3D1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Single);
var

np, p: TPointF;

nx, ny: Single;

begin

p := Platform.GetMousePos; //Определяем позицию курсора на экране

p := ScreenToClient(p);//Теперь относительно формы

//новая позиция курсора будет в центре нашего обьекта

nx := p.X - cube1.Width / 2;

ny := p.Y - cube1.Height / 2;

np.X := nx;

np.Y := ny;

Form1.Caption := IntToStr(round(nx)) + ' : ' + IntToStr(round(ny)); //выведем на екран в кэпшн формы

cube1.Position.Point := np;//вот и все=)

end;

[Пепел Феникса]

ну используйте тип TPoint3D, а не TPointF.

[dmitriegorovih]

можно вот так попробовать

procedure TForm1.Viewport3D1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Single);
var

np, p: TPointF;

nx, ny: Single;

begin

p := Platform.GetMousePos; //Определяем позицию курсора на экране

p := ScreenToClient(p);//Теперь относительно формы

//новая позиция курсора будет в центре нашего обьекта

nx := p.X - cube1.Width / 2;

ny := p.Y - cube1.Height / 2;

np.X := nx;

np.Y := ny;

Form1.Caption := IntToStr(round(nx)) + ' : ' + IntToStr(round(ny)); //выведем на екран в кэпшн формы

cube1.Position.X := np.X;
cube1.Position.Y := np.Y;

end;

[ST@LKER]

Сообщение от Пепел Феникса

ну используйте тип TPoint3D, а не TPointF.

не все так просто Ватсон так будет целых две ошибки

[ST@LKER]

Сообщение от dmitriegorovih

можно вот так попробовать

procedure TForm1.Viewport3D1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Single);
var

np, p: TPointF;

nx, ny: Single;

begin

p := Platform.GetMousePos; //Определяем позицию курсора на экране

p := ScreenToClient(p);//Теперь относительно формы

//новая позиция курсора будет в центре нашего обьекта

nx := p.X - cube1.Width / 2;

ny := p.Y - cube1.Height / 2;

np.X := nx;

np.Y := ny;

Form1.Caption := IntToStr(round(nx)) + ' : ' + IntToStr(round(ny)); //выведем на екран в кэпшн формы

cube1.Position.X := np.X;
cube1.Position.Y := np.Y;

end;

dmitriegorovih, ну почти в цель только после компиляции когда я начинаю двигать курсором КУБ пропадает остается только курсор

[Пепел Феникса]

не все так просто Ватсон так будет целых две ошибки

у меня нет ХЕ2 чтоб на них посмотреть, в студию.

[ST@LKER]

Сообщение от Пепел Феникса

у меня нет ХЕ2 чтоб на них посмотреть, в студию.

[DCC Error] Unit1.pas(39): E2010 Incompatible types: 'TPoint3D' and 'TPointF'
[DCC Error] Unit1.pas(41): E2010 Incompatible types: 'TPointF' and 'TPoint3D'

на эти две строки

p := Platform.GetMousePos; //Определяем позицию курсора на экране

p := ScreenToClient(p);//Теперь относительно формы

[dmitriegorovih]

procedure TForm1.Timer1Timer(Sender: TObject);
var

np, p: TPointf;

nx, ny: Single;

pp:TPoint;

begin
cube1.Projection:=TProjection(1);
getcursorpos(pp);
p.X:=pp.X;
p.Y:=pp.Y;

//p := GetMousePos; //Определяем позицию курсора на экране

p := form1.ScreenToClient(p);//Теперь относительно формы

//новая позиция курсора будет в центре нашего обьекта

nx := p.X - (cube1.Width / 2);

ny := p.Y - (cube1.Height / 2);

np.X := nx;

np.Y := ny;

Form1.Caption := IntToStr(round(nx)) + ' : ' + IntToStr(round(ny)); //выведем на екран в кэпшн формы

cube1.Position.X := np.X;//вот и все=)
cube1.Position.Y := np.Y;
end;

киньте таймер поставьте 1 милисикунду
P.S. Чесно не давно поставил xe2 пол часа бился с этими типами и очень не восторге от него, лучше Delphi 7 ))))))

[ST@LKER]

Сообщение от dmitriegorovih

procedure TForm1.Timer1Timer(Sender: TObject);
var

np, p: TPointf;

nx, ny: Single;

pp:TPoint;

begin
cube1.Projection:=TProjection(1);
getcursorpos(pp);
p.X:=pp.X;
p.Y:=pp.Y;

//p := GetMousePos; //Определяем позицию курсора на экране

p := form1.ScreenToClient(p);//Теперь относительно формы

//новая позиция курсора будет в центре нашего обьекта

nx := p.X - (cube1.Width / 2);

ny := p.Y - (cube1.Height / 2);

np.X := nx;

np.Y := ny;

Form1.Caption := IntToStr(round(nx)) + ' : ' + IntToStr(round(ny)); //выведем на екран в кэпшн формы

cube1.Position.X := np.X;//вот и все=)
cube1.Position.Y := np.Y;
end;

киньте таймер поставьте 1 милисикунду
P.S. Чесно не давно поставил xe2 пол часа бился с этими типами и очень не восторге от него, лучше Delphi 7 ))))))

спасибо работает)))