Fórum Como faço para aparecer um texto na StatusBar #196432

21/11/2003

0

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?


Adriano Dantas

Adriano Dantas

Responder

Posts

21/11/2003

Vanius

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


Responder

Gostei + 0

21/11/2003

Adriano Dantas

Valeu mano, como estava usando um data module tive de fazer algumas alterações, mas deu certo!


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar