Bună ziua, în acest articol aș vrea să vă spun cum am implementat o fereastră pop-up într-un singur proiect. Da, știu că sunt suficiente componente care fac fereastra pop-up, precum și pentru a restabili frumusețea ei, dar nu am avut la frumusețe, o fereastră normală, care va informa utilizatorul despre ceva directe. Poate că este o metodă pe care nu am făcut-o corect, dar într-un fel mi-am dat seama. Am folosit mai întâi TTimer. bine, iar restul doar pe cronometrul am rotit fereastra, desigur, în loc de timer-ul ar putea folosi o buclă sau altceva, dar pentru un motiv sau altul mi-a plăcut. Pe formularul meu
Și, desigur, este necesar să se adapteze o dată mai mult sau mai puțin frumoasă formularul nostru care arăta ca o fereastră frumoasă, puteți continua cu siguranță designul său de a veni cu, desena și decora, dar în același timp făcându-l ușor transparent și ușor de a schimba stilul formei noastre, În plus, vom scrie ceva pe Tabelul nostru, de exemplu, "Hello World" =).
Să punem proprietatea formularului AlphBlend în True. și setați AlphaValue la 180. În proprietatea Caption a etichetei elimina, și setați proprietatea BorderStyle la bsToolWindow. să stabilească mărimea potrivită formei noastre la dreapta și apoi pe evenimentul OnShow avem nevoie pentru a scrie stabilirea inițială a aspectului ferestrei, în teorie, toate ferestrele de tip pop-up apar lângă Trey. Dar avem nevoie pentru a face fereastra noastră apare inițial sub bara de activități, și din cauza barei de activități, iar apoi va trebui să apară fereastra noastră - float, astfel încât la evenimentul OnShow scrie următorul cod
Așadar, avem o fereastră care apare sub bara de activități și doar în partea dreaptă a ecranului și va apărea astfel. Acum trebuie să facem mișcarea ferestrei, adică efectul apariției acesteia. Pentru aceasta, setați proprietatea TTimer-Interval la 1 și scrieți următorul cod la evenimentul OnTimer
Articole similare
Trimiteți-le prietenilor: