Mam małą formatkę, która nie posiada paska tytułu. Pojawia się przy kliknięciu na znajdującą się w Trayu ikonkę programu. Chciałbym ją teraz zamknąć, ale przez kliknięcie myszą innego okna czy np. pulpitu, tzn. żeby zamykała się na takiej samej zasadzie jak PopupMenu. Jak to zrobić?
Na zakladce Additional jest taki komponet ApplicationEvents1 i w jego procedurze OnDeactivate wpisz close; :-)
procedure TForm1.ApplicationEvents1Deactivate(Sender: TObject);
begin
close;
end;
powinno dzialac--pozdrawiam PEDROS {hello}
Delphi6
Co tu dużo pisać nie ma ramki
to można zrobic inaczej
W Delphi kliknąć na główną formę
i w zdarzeniu ONCLICK
wpisać
Application.terminate;
Pierwszym razem wszystko jest OK, ale gdy drugi raz wywołam formę, to pokazuje się ona nieaktywna (szary pasek tytułu) i wtedy muszę kliknąć na formę i dopiero teraz przy kliknięciu na pulpit, forma się zamyka. Tak nie powinno być. Jak to zmienić?
To wez w procedurze ktora ma pokazywac forme wpisz
form1.Active := true;
albo
form1.Activate;
ktores powinno dzialac--pozdrawiam PEDROS {hello}
Delphi6
Dzięki wsszystkim. Pedros pierwszym postem trafił w to co było mi potrzebne, ale drugim nie, bo ani Active ani Activ nie działają. Zadziałało SetForegrounWindow(Handle). Jeszcze raz THANX. {brawo}