ActiveControl
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
Curtidas 0
Respostas
Qmd
16/02/2004
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
GOSTEI 0