Images Cara menambahkan VertScroll pada GridLayout / FlowLayout Delphi FMX

Coding Delphi nya

procedure TForm1.FormResize(Sender: TObject);
var
ctrl : TControl;
begin
  if FlowLayout1.controlsCount > 0 then
  begin
    ctrl := FlowLayout1.controls [FlowLayout1.controlsCount - 1];
    FlowLayout1.height := ctrl.position.y + ctrl.height ; //+ ... // allow for margins and padding if needed.
  end;
end;

Struktur Komponen yang digunakan

Jangan lupa set properties FlowLayout / Gridlayout pada Align : Top

contoh codenya disini : Download

Images RESTClient Json ke Listview Code Manual

Berikut cara menggunakan RESTClient tanpa menggunakan TogelDesignMode.

contoh coding memanggil json webservice dari restclient

RESTClient1.BaseURL := 'http://localhost/esurat/surat_masuk.php?act=tampil'; RestRequest1.ExecuteAsync();

untuk mengisi data json yg sudh di ambil restclient ke listview sebagai berikut:

procedure TForm1.Button2Click(Sender: TObject);
Var
        i : integer;
        item : TListViewItem;
        txt : TListItemText;
        img : TListItemImage;
begin
  for i := 1 to  FDMemTable1.RecordCount do
  begin
      item := ListView1.Items.Add;
      with item do
      begin
           txt := TListItemText(Objects.FindDrawable('Text1'));
           txt.Text := FDMemTable1.FieldByName('PENGIRIM').AsString;;
           txt.Font.Size := 11;
           txt.Font.Style := [TFontStyle.fsBold]; 

           txt := TListItemText(Objects.FindDrawable('Text2'));
           txt.Text := FDMemTable1.FieldByName('TANGGAL_SURAT').AsString;;
           txt.Font.Size := 11;
           txt.Font.Style := [TFontStyle.fsBold];
      end;
      FDMemtable1.Next;
  end;
end;