Buscar por:

Manipulando tapplication

Código

{A classe TApplication proporciona muitas manipulações úteis do aplicativo como um todo. Por exemplo, caso você queira que quando um aplicativo for minimizado apareça a hora atual no título da barra de tarefas, e quando ele for restaurado não apareça, use o seguinte código no evento OnLoad do formulário, por exemplo: } Application.OnMinimize := ShowDate; 

Application.OnRestore := NShowDate; 

procedure ShowDate; 

begin 

TForm1.Timer1Timer(Sender); 

Timer1.Enabled := True; 

end; 

procedure NShowDate; 

begin 

Timer1.Enabled := False; 

Application.Title := 'Título do Aplicativo'; 

end;

{Este exemplo considera que o aplicativo possua um relógio que atualiza de tempos em tempos (a cada 250 milésimos de segundo por exemplo). Este é desabilitado quando o formulário é restaurado.}