Delphi10.3 FMX 上の Listview その2

解決

はくちゃん 2020-07-06 11:33:42 No: 148884

Listview のアイテムにメモを書き込むための下記dialogBoxを作成しています。

TDialogService.InputQuery(
    'メモ '+Label1.Text+copy(trim(LiLi),1,2)+'日',
    ['　'],
    [''+copy(LiLi,15,50)],
    procedure(const AResult: TModalResult; const AValues: array of string)
    begin
    { Cp:=0;
     Cp := AItem.Index;
     LiLi:='';
     AItem.Text := AItem.Text;
     LiLi:=AItem.Text;
      LiLi:='     '+copy(trim(LiLi),1,7)+'  '+trim(AValues[0]);
      LiLiDB:=trim(AValues[0]);
end)

このinputbox中で改行できますでしょうか？
またlistviewの項目は改行可能でしょうか？
以上宜しくお願い致します。

KONNOYA 2020-07-07 08:32:36 No: 148887

文字列の途中に sLineBreak を入れれば改行すると思います。
↓こんな感じで。

procedure TForm1.ListView1ItemClick( const Sender : TObject; const AItem : TListViewItem );

begin
  // ダイアログ表示
  TDialogService.InputQuery(
    'メモ' + sLineBreak + AItem.Text,
    [ 'Notes Content' ],
    [ 'Plans' ],
    procedure( const AResult : TModalResult; const AValues : Array of String )
    begin
      AItem.Text := AItem.Text + sLineBreak + AValues[ 0 ].Trim;
    end
  );
end;

Windows＆Androidで確認。

はくちゃん 2020-07-07 09:15:43 No: 148888

KONNOYA様、
早速にありがとうございます。
後ほどトライして、結果ご連絡致します。

はくちゃん 2020-07-08 13:28:46 No: 148894

文字列の途中に sLineBreakを入れて改行できることこちらでも実際に確認出来ました。　ありがとうございました。

改行に関してですが、ダイアログのinputbox にその日のメモを入力中に改行を実現させたいのです。書き終わったらOKボタン（mrOK）でListviewへそのまま反映の流れで。。

実際、Android スマホ上でキーインするときに現れるキーボードレイアウトの”改行”キーは”完了”になっています！
これを改行表示に機能付きで変更したいのですが、、無理でしょうか？
（別な方法があれば何でもかまいません）

引き続きよろしくお願いいたします。

はくちゃん 2020-07-12 22:58:58 No: 148927

inputboxにメモを書くのを諦めて、 form2を作成、そこにtmemoを貼り付けてそれにメモを入力する事としました。その際の改行はもちろん標準で可能です。
ただひとつ問題があます。
android ver6上でのtmemoに入力中のキーボードのバックキーの動作は長押しするとカーソルのある位置から右から左へ押している間文字を消し続けられます。が android ver10上では長押ししても一文字消すだけで止まってしまいます！！
消し続けられるようにするには、何か特別な設定を入れなければいけないのでしょうか？？バグでしょか？
どなたか教えてくださいm(__)m

はくちゃん 2020-07-13 18:52:54 No: 148929

最後のtmemoに関する質問は別投稿しましたので、これでクローズさせて頂きます。ありがとうございました。