자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 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 15892
공지 유용한 관련 사이트 관리자2 2014.03.20 54694
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 98151
2739 InputBox 질문입니다. 희망나라 2017.03.28 156
2738 FMX 안드로이드 개발시 폰트리스트 가져오는 방법? Firemonkey 2020.10.13 156
2737 DUNIT 관련 [2] 초초보 2015.07.21 157
2736 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 5 - Exercise 2 [2] 관리자 2016.05.02 157
2735 델파이2007에서 프로젝트 실행시 에러 [1] file 신재철 2016.11.28 157
2734 C Builder Active X 관련 문의 [1] file 한미반도체 2017.08.02 157
2733 안드로이드 앱 개발 중 발생하는 오류 관련해 문의 드립니다. [1] file 관리자 2018.02.01 157
2732 VCL 폼스타일 변경시 TrackBar의 SelEnd 색상표시가 궁금합니다. file OJTO 2020.01.14 157
2731 iphone6 [4] file 텔로스김 2015.12.14 157
2730 드래그시 커서,키보드 노출 및 오브젝트 동작에대해서 문의합니다 file 봉봉봉 2016.01.12 157
2729 Class TfrxDBCrossView not found [2] 가나다 2020.09.08 157
2728 RAD Server 라이센스 문제 [1] 옥돌 2020.10.05 157
2727 xe4 2D 바코드 사용하려면? [1] 왕팝콘 2020.11.17 157
2726 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 14 - Exercise 3 [1] 관리자 2016.05.10 158
2725 mousedown 에서의 shift상태 [1] 100jk 2018.12.27 158
2724 STL allocator 관련 컴파일 질문 드립니다. [1] kang 2019.03.04 158
2723 [XE8 출시세미나] EMS Analytics와 AppAnalytics는 다른건가요? [1] Humphery 2015.04.30 158
2722 XE8 블럭간 라인(?) 제거법 알려주세요. [2] file 도사 2015.07.16 159
2721 프로그래밍 중 오류에 관해 질문드립니다. [1] 장운민 2016.04.23 159
2720 TBeacon컴포넌트의 속성중 시간값관련속성의 정확한 쓰임새가 궁금합니다. [2] 김태윤 2016.07.18 159