Como por o resultado da Query no StatusBar?

Question

Ol� para todos!Eu gostaria de saber se � poss�vel colocar o resultado da pesquisa de uma Query no StatusBar?Eu queria que fosse mostra + ou - assim:102 Itens encontrados    E UM OUTRO MOSTRASSE:Voc� e...

Kanedasam · Answer

Crie uma vari�vel em Public tipo String

[color=blue:9b5c7191be]ex: VarPos[/color:9b5c7191be]

Converta o conte�do da vari�vel que contem o valor da Query para String
jogando para a vari�vel VarPos

[color=blue:9b5c7191be]VarPos := ex:IntToString(VarQuery);[/color:9b5c7191be]

No Formul�rio coloque TRUE na propriedade ShowHint

Insira o seguinte c�digo:

[color=blue:9b5c7191be] procedure TMainForm.ShowHint (Sender: TObject);
begin
//objeto principal (TMainForm).
StatusBar1.Panels.Items[0].Text := Application.hint;
// Atribui o valor do hint da aplica��o
end;[/color:9b5c7191be]
No evento FormShow insira o seguinte :

[color=blue:9b5c7191be]StatusBar1.Panels.Items[0].Text := �Voc� esta na posi��o : � + VarPos; [/color:9b5c7191be]

Anonymous · Answer

Coloque no evento AfterScroll da tua query o seguinte:

procedure TForm1.Query1AfterScroll(DataSet: TDataSet);
begin
StatusBar1.Panels.Items[0].Text := �Itens encontrados : �+
IntToStr(Query1.RecordCount);
StatusBar1.Panels.Items[1].Text := �Voce est� na posi��o : �+
IntToStr(Query1.RecNo);

end;

F�rum Como por o resultado da Query no StatusBar? #148226