Fórum Ajuda com Hint Herdado #431680
30/12/2012
0
Esse modelo, utilizo com o repository com herança.
Quando tenho uma janela de cadastro aberta e passo o mouse por cima dos botões, é apresentado no statusbar a descrição do botão. Até aí, beleza.
O problema é quando tenho duas telas de cadastro abertas, ambas herdando as funcionalidades desse modelo, na janema que possui o foco (SHowModal) que passo o mouse no botão, a descrição é apresentada no statusbar das duas janelas, na que possui o foco e na que não possui o foco.
Como foço para o hint aparecer somente na que possui o foco?
Agradeço desde já qualquer ajuda...
Vagner Almeida
Curtir tópico
+ 0Posts
30/12/2012
Joel Rodrigues
Gostei + 0
30/12/2012
Vagner Almeida
procedure Tfrm_cadmodelo.ApplicationEventsHint(Sender: TObject);
begin
StatusBar.Panels[0].Text := Application.Hint;
end;
Gostei + 0
30/12/2012
Vagner Almeida
Gostei + 0
30/12/2012
Vagner Almeida
Gostei + 0
02/01/2013
Joel Rodrigues
procedure Tfrm_cadmodelo.ApplicationEventsHint(Sender: TObject);
begin
if Screen.ActiveForm = Self then
StatusBar.Panels[0].Text := Application.Hint;
end;
Isso vai verificar se o form que está ativo é o que está verificando o evento e só nesse caso vai mostrar a mensagem na StatusBar.
Vê no que dá.
Gostei + 0
02/01/2013
Vagner Almeida
Gostei + 0
02/01/2013
Joel Rodrigues
Gostei + 0
03/01/2013
Vagner Almeida
Perfeito. Obrigado
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)