Zamknięcie formy gdy BorderStyle = bsNone

0

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ć?

0

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

0

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;

0

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ć?

0

To wez w procedurze ktora ma pokazywac forme wpisz

form1.Active := true;
albo
form1.Activate;

ktores powinno dzialac--pozdrawiam PEDROS {hello}
Delphi6

0

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}

1 użytkowników online, w tym zalogowanych: 0, gości: 1