Simulando os alertas no Delphi

Simulando os alertas no DelphiSáb Fev 04, 2012 11:52 am

Em nosso form principal coloque um Button e nele digite o algoritimo da Listagem 1. Nossa tela de exibição ficará semelhante ao mostrado na Figura 1.

Simulando os alertas no Delphi Imagem_1-1153828474

Simulando os alertas no Delphi Imagem_1-1153828474

Modifique as propriedades do FormAlerta de acordo com os parâmetros abaixo.

Propriedade - Valor

BorderStyle

- bsToolWindow

Caption

- Alerta do Sistema

FormStyle

- fsStayOnTop

Color

- $0080FFFF

Algoritimo para exibição do Alerta

Código:


procedure TForm1.Button1Click(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 := TfAlertaMsn.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(10);
    end;
    Sleep(3000);
    Close;
    FreeAndNil(fAlertaMsn);
  end;
end;