Boa noite a todos.
Consegui na internet um artigo mostrando uma maneira de fazer um popup
parecido com o do Msn usando Form.
Eu implementei algumas coisas pra mim, ficou legal... segue abaixo o código
do popup. Se algúem se interessar aí vai.
Obrigado a todos pelas informações passadas.
///**************************************************************************************************///
//criado dos forms, um com um botão e o outro do tamanho que vai ser a
"janelinha" do popup. No Botão segue o código abaixo.//
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(1);
end;
Sleep(2000);
for I := xTop to xIniTop do
begin
Top := Top + 1;
Show;
Update;
Application.ProcessMessages;
Sleep(1);
end;
Close;
FreeAndNil(fAlertaMsn);
end;
end;
///**************************************************************************************************///
Em 18/12/07, BandaLemuel <[EMAIL PROTECTED]> escreveu:
>
> O JEDI tem....
>
> De: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br> [mailto:
> delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>] Em
> nome de Walter Chagas Jr (Bol)
> Enviada em: domingo, 16 de dezembro de 2007 22:34
> Para: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>
> Assunto: Re: [delphi-br] Lembretes igual ao do MSN
>
> Ricardo,
>
> Existir existe, mas aquele recurso é da API do Messenger. Para você fazer
> algo, sem a necessidade de componente externo, você vai ter que
> implementar
> isto e não vai ser tarefa simples não. Vais ter que escrever o código que
> interfaceie seu projeto com a API. Em outras palavras, codificação
> massante..
>
> []s
>
> Walter Alves Chagas Junior
> Belo Horizonte - MG - Brazil
> [EMAIL PROTECTED] <wchagasj%40yahoo.com.br> <mailto:
> wchagasj%40yahoo.com.br>
> http://www.geocities.com/SiliconValley/Bay/1058
> MSN: [EMAIL PROTECTED] <whitesockets%40hotmail.com> <mailto:
> whitesockets%40hotmail.com>
> SKYPE: WalterChagasJr
>
> ----- Original Message -----
> From: Ricardo Ravelli
> To: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br> <mailto:
> delphi-br%40yahoogrupos.com.br>
> Sent: Sunday, December 16, 2007 12:34 PM
> Subject: Re: [delphi-br] Lembretes igual ao do MSN
>
> Bom dia!
> Obrigado pelo links dos componentes, mas não existe alguma maneira de
> fazer
> isso sem o uso de componentes externos? Eu queria alguma maneira
> utilizando
> o que já existe no delphi.
>
> Se alguém puder me ajudar, agradeço desde já.
>
> **utilizo Delphi 7**
>
> Obrigado.
>
> Ricardo Ravelli.
>
> Em 15/12/07, Jefferson - Fórum <[EMAIL PROTECTED]<t_object%40yahoo.com.br>
> <mailto:t_object%40yahoo.com.br> > escreveu:
> >
> > Amigão, é só pegar o arquivo no link abaixo e instalar o componente.
> > http://fileurls.com/odwxib
> > obs: o arquivo ficará disponível por apenas 3 dias.
> >
> > Boa sorte!
> >
> > Jefferson
> >
> >
> > ----- Original Message -----
> > From: Ricardo Ravelli
> > To: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br><mailto:
> delphi-br%40yahoogrupos.com.br>
> <delphi-br%40yahoogrupos.com.br>
> > Sent: Saturday, December 15, 2007 2:52 PM
> > Subject: [delphi-br] Lembretes igual ao do MSN
> >
> > Boa tarde a todos,
> >
> > Alguém sabe como faz aquelas caixinhas(igual aparece quando entra algúem
> > no
> > msn), ou aqueles "pequenos baloes" que aparece no lado do relógio do
> > windows(por exemplo, igual aquele que quando você acaba de instalar o
> > windows XP, aparece para você dar um "tour" pelo windows).
> > Se alguém puder me dizer também o nome correto do que foi citado acima.
> >
> > Agradeço desde já.
> >
> > Obrigado.
> >
> > Ricardo Ravelli.
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> __________ Informação do NOD32 IMON 2725 (20071216) __________
>
> Esta mensagem foi verificada pelo NOD32 sistema antivírus
> http://www.eset.com.br
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
