Delphi XE8のモバイルアプリケーションで文字列や画像を共有するにはFMX.MediaLibrary.Actions.TShowShareSheetActionを使用します。
TShowShareSheetActionの使い方
文字列を共有するときは、TShowShareSheetActionのTextMessageプロパティに共有する文字列を設定します。
ShowShareSheetAction1.TextMessage := '共有するTextMessage';
画像を共有するときは、TShowShareSheetActionのBitmapプロパティに共有する画像を設定します。
ShowShareSheetAction1.Bitmap.Assign(Image1.Bitmap);
アクションを実行すると、ウィンドウが表示されて共有アクションを選択できます。
画像を共有するサンプルアプリケーション
フォームに次のコンポーネントを配置します。
- TButtonコンポーネント
- TActionListコンポーネント
- TImageコンポーネント
TImageコンポーネントに共有する画像を設定します。
TActionListコンポーネントを右クリックして「アクションリストの設定」を選択します。
新規アクションの「▼」ボタンを押し、「標準アクションの新規追加」を選択します。
「メディアライブラリ」の中にある「TShowShareSheetAction」を選択して、「OK」ボタンを押します。
アクションリストに「ShowShareSheetAction1」が追加されました。
TButtonコンポーネントのActionプロパティに「ShowShareSheetAction1」を設定します。
ボタンを押すとShowShareSheetAction1が実行されます。
ShowShareSheetAction1のOnBeforeExecuteイベントを追加します。
ボタンを押したときに共有する画像を設定します。
procedure TForm1.ShowShareSheetAction1BeforeExecute(Sender: TObject);
begin
ShowShareSheetAction1.Bitmap.Assign(Image1.Bitmap);
end;
ここで、TextMessageプロパティを設定すると文字列を共有できます。
実行します。
ボタンを押すと共有ウィンドウが表示されます。