Fórum ActiveControl #214653
16/02/2004
0
Preciso de uma função que quando o ActiveControl do form for alterado, ele pegue seu hint e jogue em um caption qualquer.
Eu consegui fazer usando TTimer. Mas acho que é mto inviável.
Se alguem tiver uma solução eu agradeceria.
t+
Eu consegui fazer usando TTimer. Mas acho que é mto inviável.
Se alguem tiver uma solução eu agradeceria.
t+
Crash
Curtir tópico
+ 0
Responder
Posts
17/02/2004
Qmd
procedure TForm1.ActiveControlChanged(Sender: TObject);
begin
if not Application.Terminated then
Label1.Caption := Screen.ActiveControl.Hint;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.OnActiveControlChange := ActiveControlChanged;
end;
T++
QmD
qmd@onda.com.br
http://usercontrol.sourceforge.net
icq 15630894
Canal #Delphi irc.brasnet.org
begin
if not Application.Terminated then
Label1.Caption := Screen.ActiveControl.Hint;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.OnActiveControlChange := ActiveControlChanged;
end;
T++
QmD
qmd@onda.com.br
http://usercontrol.sourceforge.net
icq 15630894
Canal #Delphi irc.brasnet.org
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)