Popup okno v Delphi

Ako si mozem vytvorit jednoduche vyskakovacie okno nad listou? Ako aplikacie oznamuju nieco, napr. AV novy update databazy. Predpokladajme ze moja aplikacie je schovana v tray.

tak nam prezrad ako si schoval svoju aplikaciu do tray ?

Trieda TTrayIcon by mala obsahovať vlastnosť PopUpMenu. Takže na formulár si daj komponent TPopupMenu z palety Standard. Na formulár to umiestní iba ikonu, na ktorú teraz klikni pravým tlačidlom a vyber prvú možnosť - Menu designer.... Tu si vytvor vlastné menu podľa potrieb. Potom už len niekde v kóde priraď toto menu vlastnosti PopUpMenu:

Nemyslel som popupmenu ale vyskakovacie okno. Ako napr. FF ked dokonci download tak sa vysunie info o dokonceni stahovania, alebo AV ked dokonci update tak vyhodi info nad listu.

nieco take co vyskoci samo pri istej udalosti

Aha, zle som pochopil. Ja to riešim vytvorením nového Formu, na ktorý naukladám, čo potrebujem - ten je samozrejme zbavený záhlavia, je zmenená farba a prípadne sa môže použiť transparentnosť. Ďalej získam súradnice obrazovky:



a potom form umiestním za celú výšku a šírku obrazovky. Nakoniec už len po vykonaní určitej udalosti pomocou timera mením Form.Top premennú daného formu. Počká sa určitý čas a opäť sa schová.
Ak potrebuješ konkrétny príklad, tak napíš.

// Poznámka: existuje aj Screen.Width a Screen.Height vlastnosť. Ale tie vyššie spomenuté vlastnosti (WorkArea...), vracajú šírku a výšku bez zarátania hlavného panelu. Tým sa zabráni, aby kus okna vykukovalo spod obrazovky, respektíve, aby nebolo príliš nízko.

takto som to skusal, ale so Screen.width Screen.Height , neviem ako ten formular dat nad vsetky okna. (aby bolo vidiet ze sa vobec nieco vysunulo).Skusal som nastavit na ten druhy form fsStayOnTop ale nic.

Edit: ved mozes dat aj priklad ak ti to nerobi problem

1.) File | New | Form
Týmto vytvor nový formulár. Nahádž naň, čo potrebuješ. Nastav vlastnosť BorderStyle na bsNone. Pridaj tu aj jeden timer (budem sa naňho odvolávať cez názov tmShow), ktorého interval nech je 1 ms.

2.) do udalosti OnTimer timeru tmShow daj toto:

3.) a do OnCreate tohto formu toto:

Týmto sa popup form umiestni do pravého dolného rohu.

4.) v tvojom hlavnom unite pridaj do uses unit s novým formom - napr unit2.

5.) Teraz už iba stačí kdekoľvek v tvojom projekte zapnúť timer tmShow (vypne sa sám, o to sa netreba starať)

pre vyvolanie a pre zatvorenie popup formu - čiže pre každé zvlášť.

Vdaka, presne takto som to chcel . Len problem je vtom, ze ak mam hlavny Form1 schovany (v tray) tak ani to vysuvacie okno nevidno. A prave toto je zaklad

skus tomu form2 nastavit parenta desktop

Alebo skús dať ako prvý riadok v OnTimer timera tmShow tento riadok:


// neviem, či to pomôže, lebo mne to funguje správne, aj ak je hlavný form skrytý, ale skús to

netreba ziadny timmer, staci pri vytvarani popup okna nastavit parenta desktop

Parent už je nastavený na desktop. Ak vytvoril form podľa hore uvedeného postupu, vlastník nie je pôvodný formulár, keďže sa od neho vytváral nezávisle (preto musel pridať do uses názov novovytvoerného unitu.
Skúška: Nasledujúca správa

zobrazila nulu, čo je, pokiaľ viem, handle desktopu.

Zle som sa vyjadril. Pri Hide je to v poriadku. Pri minimalizovani zmizne aj Form2.
A dalsia vec. Ak mam focus na neakom cudzom okne ci uz co je na tej pozicii alebo maximalizovane tak ten form2 nevidno. Co stym?

fsStayOnTop by malo stacit no ale pre istotu si prestuduj toto http://delphi.about.com/od/formsdialogs/l/aa073101b.htm

V coldak-ovom linku máš riešenie. Pridaj do unitu druhého formu túto procedúru:

+ do deklarácie TForm2 pridaj toto:

PopUp okno sa nebude minimalizovať spoločne s vlastníkom a bude viditeľný nad ostatnými oknami.

Vcera som to skusal ibaze som to daval do private jak je na tej prvej strane a nevedel som to spustit. Vdaka