Fórum Active Control #262329

procedure TfrPrincipal.MudouControle(Sender: TObject);
begin
Var AHint : String ;
begin
     AHint := ´´;
     if Screen.ActiveControl <> nil then
        if Screen.ActiveControl.ShowHint then
           AHint := GetLongHint(Screen.ActiveControl.Hint) ;

     StatusBar1.Panels[1].Text := AHint ;
end;

procedure TfrPrincipal.FormCreate(Sender: TObject);
begin
  Screen.OnActiveControlChange := MudouControle ;
.....
end;