تغییر scroll پنل در زمان runtime

در صورت ایجاد ابجکت ها در زمان اجرا در داخل اسکرول باکس پرش به وجود می اید میتوان با گذاشتن یک پنل و یک اسکرول بار روی فرم و نوشتن کد زیر برای اسکرول این کار را شبیه سازی نمایید . همچنین یک متغیر ایکس سراسری تعریف و در زمان ایجاد فرم برابر با صفر گذاشته شود . 

procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;

  var ScrollPos: Integer);

begin

  if ScrollPos>x then

    Panel1.ScrollBy(0, -ScrollPos);

  if ScrollPos<x then

    Panel1.ScrollBy(0, ScrollPos);

  panel1.repaint;

  x:=ScrollPos;

end;

upload file multipart in delphi

روی فرم دو تا کامپوننت زیر را گذاشته و کد زیر را برای ان بنویسید

 RESTClient1 و RESTRequest1

 try

    RESTClient1.BaseURL:='http://test.ir:3000/customer/sendFileToCustomer';

    RESTRequest1.AddFile('file','d:/test.png',ctMULTIPART_FORM_DATA);

    RESTRequest1.AddBody('', ctMULTIPART_FORM_DATA);

    RESTRequest1.AddParameter('code','');

    RESTRequest1.AddParameter('code2','');

    RESTRequest1.Params[0].Value:='1137';

    RESTRequest1.Params[1].Value:='403';

    RESTRequest1.Execute;

  finally

  end;