Hint - no statusbar

Top  Previous  Next

 private

    procedure ShowHint(Sender : TObject);  // procedure a ser declarada

 public

 

 end;  

 

 {SR *.DF}

 

 procedure TFmenupri.ShowHint(Sender : TObject);

 begin

  Status1.Panels.Items[0].Text := Application.Hint;

 end;

 

 procedure TFmenupri.FormCreate(Sender : TObject);

 begin

  Application.OnHint := ShowHint; 

 end