자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
폼에 버튼을 하나 달아놓고 드래그 앤 드롭(버튼을 화면 이리저리 움직여야 할 일이 있어서) 테스트를 하고 있는데 32비트 windows 모드에서는 잘 작동하는데 안드로이드 모드로 제작해서 테스트하면 드래그 앤 드롭이 작동하지 않습니다. 부탁드립니다.


unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure DragOver(const Data: TDragObject;
      const Point: TPointF; var Accept: Boolean); override;
    procedure DragDrop(const Data: TDragObject;
      const Point: TPointF); override;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.DragDrop(const Data: TDragObject;
  const Point: TPointF);
var P: TPointF;
begin
P:= screenToClient(Point);
TButton(Data.Source).Position.X:=P.X - TButton(Data.Source).Width/2;
TButton(Data.Source).Position.Y:=P.Y - TButton(Data.Source).Height/2;
end;

procedure TForm1.DragOver(const Data: TDragObject;
  const Point: TPointF; var Accept: Boolean);
begin
  Accept := True;
end;

end.
번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 20047
공지 유용한 관련 사이트 관리자2 2014.03.20 58957
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 102574
539 Rad Studio XE7 Trial 버전에서 안드로이드 연동 후 [1] file 다몽 2014.11.05 1302
538 Delphi XE5 Professional ESD 문의 [1] GearFit 2014.11.06 1295
537 DBExpress 사용 프로그램 배포시 문제 해결 요청드립니다. [1] file 쌈장곰 2014.11.03 1741
» firemonkey mobile application에서 버튼 드래그 앤 드롭 작동 문제 [1] superman 2014.11.02 1667
535 [XE6] 나의 도서관앱따라하기에서 블랙스크린이 생기며 실행되지 않네요. [3] 어려워 2014.11.01 1664
534 XE6, XE7 (주)머든 2014.11.03 2135
533 Datasnap 외부 IP로 접속? [2] secret 불나방 2014.10.31 6
532 TTouchKeyboard 질문입니다. [2] 나도몰라 2012.04.04 9798
531 TTouchKeyboard 문의 [1] J 2014.03.01 2613
530 [XE6] 자체 웹브라우저에서 다른 앱호출하기 가을이다 2014.10.31 1861
529 제품 등록 않됩니다. [1] secret barcode0 2014.10.30 5
528 [세미나] 탭컨트롤을 이용해 상세보기 구현하지 않으면 폼을 계속 추가해서 개발해야 하나요? [2] Humphery 2014.10.31 1193
527 [세미나] "한 번에 개발하는 안드로이드 & iOS" 온라인 세미나(2014년 10월 28일) 질문&답변 Humphery 2014.10.31 1000
526 [세미나] 향후 NFC 같은 하드웨어 장비 콤포넌트가 추가 될 계획은 없는지? [1] Humphery 2014.10.31 1142
525 [XE6] 앱을 숨겼다가 다시 보일때에 이벤트 [1] 가을이다 2014.10.30 1585
524 Exception in safecall method 발생 superman 2014.10.29 1525
523 외부 자바파일 연동중에 근우아빠 2014.10.23 1776
522 [XE6] InApp 결제 개발 가을이다 2014.10.23 1510
521 XE6 ScrollBox 문의드립니다. file 신동근 2014.10.22 1388
520 ios 컴파일 오류 문의 [1] 프리스켄 2014.10.08 2173