Como faço para aparecer um texto na StatusBar
Tenho uma StatusBar com três panels e uma dbgrid com três colunas (Código, Cidade, Cep).
Como é que eu faço para que no panel[1] apareça escrito o código selecionado, no panel[2] o nome da cidade, e no panel[3] o cep?
Como é que eu faço para que no panel[1] apareça escrito o código selecionado, no panel[2] o nome da cidade, e no panel[3] o cep?
Adriano Dantas
Curtidas 0
Respostas
Vanius
21/11/2003
Boa tarde, Fera.
vc pode fazer o seguinte:
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
StatusBar1.Panels[1].Text := IntToStr(Query1.FieldByName(´Codigo´).Value);
StatusBar1.Panels[2].Text := Query1.FieldByName(´Cidade´).Value;
StatusBar1.Panels[3].Text := Query1.FieldByName(´Cep´).Value;
end;
Se houver duvidas, manda e-mail.
Abraços,
Vanius Girodo
vaniusg@terra.com.br
ICQ 2794012
vc pode fazer o seguinte:
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
StatusBar1.Panels[1].Text := IntToStr(Query1.FieldByName(´Codigo´).Value);
StatusBar1.Panels[2].Text := Query1.FieldByName(´Cidade´).Value;
StatusBar1.Panels[3].Text := Query1.FieldByName(´Cep´).Value;
end;
Se houver duvidas, manda e-mail.
Abraços,
Vanius Girodo
vaniusg@terra.com.br
ICQ 2794012
GOSTEI 0
Adriano Dantas
21/11/2003
Valeu mano, como estava usando um data module tive de fazer algumas alterações, mas deu certo!
GOSTEI 0