Dialog form - updating label control

Comments

• Mick.pl

  March 2011 edited 5:20AM

  Try this:
  

  procedure BitBtn1OnClick(Sender: TfrxComponent);
  var MyForm   :TForm;                                                                        
      MyLabel  :TLabel;
      i :int;                     
  begin
      MyForm := TForm.Create(  Report);
      MyForm.Caption  := 'Progres bar ...';                                                  
      MyForm.Width    := Int(10 * fr1cm);
      MyForm.Height   := Int( 4 * fr1cm);
      MyForm.Position := poScreenCenter;                                                         
      MyLabel         := TLabel.Create( MyForm);
      MyLabel.Parent  := MyForm;                                                                
      MyLabel.Left    := 10;
      MyLabel.Top     := 10;
      MyLabel.Width   := 100;
      MyLabel.Height  := 20;                                                        
      MyForm.Visible  := true;
  
      for i:=1 to 10 do begin
        MyLabel.Caption := 'this is step no: ' + IntToStr(i);
        ShowMessage('Next step ...');                                                                            
      end;              
      MyForm.Visible  := false;
  
  end;
  

  
  Mick
• rakey

  March 2011 edited 5:20AM

  Hi Mick
  
  Thanks for the suggestion.
  
  However when I remove the ShowMessage('Next step ...') line (I don't want this as the user would have to click through each message), the label's caption still does not update (which is exactly what I was experiencing without creating a new form).
  
  What I noticed was I can change the myform.caption and this refreshes - however this is not ideal.
  
• Anu de Deus Hampshire, UK

  March 2011 edited 5:20AM

  just delete the showmessage and put this instead:
  MyLabel.update;
• rakey

  March 2011 edited 5:20AM

  Anu de Deus wrote: »

  just delete the showmessage and put this instead:
  MyLabel.update;

  
  There is no update method - Getting an error - Unidentified identifier: 'Update'
• gpi

  March 2011 edited 5:20AM

  Add ProcessMessages function in FS:

  procedure TForm1.FormCreate(Sender: TObject);
  begin
       frxReport1.AddFunction('function ProcessMessages');
       frxReport1.ShowReport();
  end;
  
  function TForm1.frxReport1UserFunction(const MethodName: string;
    var Params: Variant): Variant;
  begin
       if MethodName = 'PROCESSMESSAGES' then Application.ProcessMessages;
  
  end;
  

  and replace ShowMessage('Next step ...'); with ProcessMessages in report's script
• rakey

  March 2011 edited 5:20AM

  gpi wrote: »

  Add ProcessMessages function in FS:

  procedure TForm1.FormCreate(Sender: TObject);
  begin
       frxReport1.AddFunction('function ProcessMessages');
       frxReport1.ShowReport();
  end;
  
  function TForm1.frxReport1UserFunction(const MethodName: string;
    var Params: Variant): Variant;
  begin
       if MethodName = 'PROCESSMESSAGES' then Application.ProcessMessages;
  
  end;
  

  and replace ShowMessage('Next step ...'); with ProcessMessages in report's script

  
  Thanks! I simply added application.processmessages after the label.caption := line and the label now updates.
  Appears as if you need application.processmessages to update label captions but not form caption.