Topic: Add progress bar to Table Grid

Dear Dimitry and MVD users,

i have question if it's possible to add a progress bar in the table grid that is managed by a timer from the form that could be modified and resetable.
A sample or a script whould be a great help for me!

;)novice user

Re: Add progress bar to Table Grid

Hello.


Sorry for delay, I was on vacation.


example:

var
  ProgressBar: TProgressBar;


procedure Form1_Button2_OnClick (Sender: string; var Cancel: boolean);
begin
     ProgressBar.Position := 75;
end;

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
     ProgressBar.Position := 30;
end;

procedure Form1_OnShow (Sender: string; Action: string);
begin
     ProgressBar := TProgressBar.Create (Form1);
     ProgressBar.Parent := Form1.TableGrid1;
     ProgressBar.Left := 50;
     ProgressBar.Top := 50;

end;

procedure Form1_OnClose (Sender: string; Action: string);
begin
     ProgressBar.Free;
end;
Dmitry.

Re: Add progress bar to Table Grid

Hello Dimitry,

thank you very much for your help..i really appreciated!