자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 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 15634
공지 유용한 관련 사이트 관리자2 2014.03.20 54464
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 97828
234 아이폰 개발(환경) [2] 가을이다 2015.09.03 567
233 PAServer SDK 설정 및 디버깅 관련 오류 [1] 릴리리 2015.09.02 248
232 재문의 - Beacon, Bluetooth, Bluetooth LE 동시 접속 문의 [3] 이정이남편 2015.08.26 1123
231 카카오톡 REST API 사용 관련해서 여쭈어 봅니다. [2] 유탐호호 2015.08.31 2467
230 현재 XE8로 지원되는 스마트워치 종류를 알고싶습니다. [1] 가을이다 2015.08.27 660
229 Beacon, Bluetooth, Bluetooth LE 동시 접속 문의 [2] 이정이남편 2015.08.25 1364
228 메세지 관련질문입니다. [1] 희망나라 2015.08.22 337
227 XE7 Windows 8.1 BLE [1] 야곱 2015.08.19 310
226 [질문] 모바일 프로그램에서 상세조회를 할려고 터치하면 첫줄에 있는 키값으로된 자료만 조회됩니다 [4] delphi 2015.08.13 224
225 Contact-picker를 안드로이드에서 적용하는 방법에 대한 문의 [1] 김상기 2015.08.01 127
224 델파이 XE7에서 ClientDataSet1 에 환경설정 하고 ACTIVE 을 True 하면 Access violation at address 50BDDD17 in module 'dsnap210.bpl'. Read of address 00000000. 라는 오류메세지가 나옵니다 [3] delphi 2015.07.13 1465
223 안드로이드에서 Navigation bar 숨기기/보이기 방법 [1] hsson 2015.07.10 939
222 TMemo 버그 문의 Celsius 2015.07.09 174
221 핸드폰 갤러리 사진 불러오기 및 선택을 어떻게 하나요? [1] 농가사랑 2014.12.03 2199
220 PushEvents1.StartupNotification 문의드립니다 [1] 최민철 2015.06.30 252
219 내부네트웍사용 질문입니다. [5] 희망나라 2015.06.26 502
218 TEdit 에 커서가 들어갈때 가상키보드 나타나지 않게 [2] 희망나라 2015.06.22 448
217 자체적인 원격푸시 전송시의 한글문제 [3] 마눠니 2015.05.28 1396
216 FireDAC에 FireBird DB 연결시 오류 [1] 빨리빨리 2015.06.18 928
215 안드로이드 5에서 델파이로 만든 앱이 실행되지 않습니다. [1] 첨처럼 2015.06.17 691