(Resolvido) Mostrar Mesagem de alerta no JvDesktopAlert

[robinhocne]

Galera preciso de uma ajuda...

Estou fazendo para que o sistema mostre no JvDesktopAlert1 do Componente JEDI, um alerta, mas é o seguinte..

por exemplo tenho programado 3 ou mais alertas no mesmo horario e data...então ai eu quero que mostra em cada JvDesktopAlert...separado..

como eu faco para mostrar o alerta em cada JvDesktopAlert, quando eu tiver outros alertas no mesmo horario ?

with QryComp do
         begin
           close;
           sql.Clear;
           sql.Add('Select * From Compromissos where Data =:Dat and hora =:Hor');
           ParamByName('Dat').AsDate   := TxtDt.Date;
           ParamByName('Hor').AsTime   := StrToTime(Edit1.Text);
           open;
         end;

        while not QryComp.Eof do
          begin

             if QryComp.FieldByName('Avisar').AsString = 'S' then
               begin

                      with JvDesktopAlert1 do
                        begin
                          HeaderText := 'Compromisso';
                          MessageText := QryComp.FieldByName('Descricao').AsString; //'Exemplo de mensagem pop-up com JvDesktopAlert';
                          Execute;
                        end;


            QryComp.Next;        
          end;

Editado Julho 16, 2009 por robinhocne

[Jhonas]

como eu faco para mostrar o alerta em cada JvDesktopAlert, quando eu tiver outros alertas no mesmo horario ?

Voce deve criar o componente dinamicamente

exemplo:

JvDesktopAlert := TJvDesktopAlert.Create(nil);
with JvDesktopAlert  do
begin
   ...
end;

e depois deve destruí-lo

JvDesktopAlert .Free;
JvDesktopAlert := nil;

Veja este outro exemplo:

http://www.activedelphi.com.br/forum/viewt...fb264fa3e2019b6

abraço

[robinhocne]

como eu faco para mostrar o alerta em cada JvDesktopAlert, quando eu tiver outros alertas no mesmo horario ?

Voce deve criar o componente dinamicamente

exemplo:

JvDesktopAlert := TJvDesktopAlert.Create(nil);
with JvDesktopAlert  do
begin
   ...
end;

e depois deve destruí-lo

JvDesktopAlert .Free;
JvDesktopAlert := nil;

Veja este outro exemplo:

http://www.activedelphi.com.br/forum/viewt...fb264fa3e2019b6

abraço

Ok, tudo certo...muito obrigado!