掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Delphi 10 Berlinでのdrag&drop (ID：48490)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
DelphiX3 + FireMonkey で書いた Drag&drop に関するコードが Delphi10では動きません。 下記は，TrectangleからTCircleにFill.Colorをドラッグしようとして書いたコードで，X3では動作していましたが，Delphi10では，onDragOverの引数自体が違うようで，Accept変数もありません。 リファレンスを検索しても手がかりはつかめませんでした。 ============================================================== procedure TForm1.Circle0DragOver(Sender: TObject; const Data: TDragObject; const Point: TPointF; var Accept: Boolean); begin Accept := true; end; procedure TForm1.Circle0DragDrop(Sender: TObject; const Data: TDragObject; const Point: TPointF); begin Tshape(sender).Fill.Color := Tshape(data.Source).Fill.Color; end; ==============================================================
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.