Ir para conteúdo
Fórum Script Brasil

tiagoquinzao

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Tudo que tiagoquinzao postou

  1. Seguindo a idéia do nosso colega Silva, voce pode colocar o codigo dentro do timer procedure TForm1.Timer1Timer(Sender: TObject); var I: Integer; fAlertaMsn: TForm; BarraIniciar: HWND; {Barra Iniciar} tmAltura: Integer; tmRect: TRect; xTop : Integer; xIniTop : Integer; begin //localiza o Handle da janela iniciar BarraIniciar := FindWindow('Shell_TrayWnd', nil); //Pega o "retângulo" que envolve a barra e sua altura GetWindowRect(BarraIniciar, tmRect); tmAltura := tmRect.Bottom - tmRect.Top; fAlertaMsn := TForm1.Create(Self); with fAlertaMsn do begin Left := Screen.Width - ClientWidth; if tmRect.Top = -2 then tmAltura := 30; //Pega o top final xTop := Screen.Height - ClientHeight - tmAltura; //Pega o top inicial xIniTop := Screen.Height + ClientHeight + tmAltura; Top := xIniTop; for I := xIniTop downto xTop do begin Top := Top - 1; Show; Update; Application.ProcessMessages; Sleep(1); end; Sleep(3000); Close; FreeAndNil(fAlertaMsn); end; end; Neste sentido, voce deve complementar o codigo fazendo a pesquisa em sua tabela e mostrando o recado Na propriedade interval do timer coloque 60000 = a 1 minuto. abraço E aonde eu passo as informações nesse procedimento, no caso as informações que desejo que apareça na janelinha?
×
×
  • Criar Novo...