Hinty

Mam aplikacje, która jest na tray-u.
Jak zrobić, aby z niej wyskakiwały co 30 min. jakieś komunikaty (tak jak jest w GG kiedy ktoś jest dostępny :))

Ściągnij MSNPopup (całkiem fajny komponent) i w timerze daj MSNPopup.Show; a interval := 180000; i teraz co pół godziny będziesz miał wiadomość koło tray'a...

Pozdrawiam...

Ja ostatnio robiłem coś podobnego. Też mam program w Trayu, który nad trayem wyświetla informację o nowych mailach w skrzynce:

procedure pokazdymek(tekst:string);
var
x,y:integer;
begin
x:=GetSystemMetrics(SM_CXSCREEN);
y:=GetSystemMetrics(SM_CYSCREEN);

 dymek.Color:=RGB(200,200,0);
 dymek.ActivateHint(rect(x-170,y-65,x,y-35),tekst);

 form1.timerdymek.Enabled:=true;

end;

//wstawiłem sobie timer ustawiony na 5 sekund i enebled na false. uaktywnia się on gdy pokaze się dymek. Po pięciu sekundach dymek zostaje zlikwidowany a timer z powrotem ustawiany jest na enabled:=false;

procedure TForm1.TimerdymekTimer(Sender: TObject);
begin
dymek.ActivateHint(rect(0,0,0,0),'');
timerdymek.Enabled:=false;
end;