Delphi: Pokaż okno bez aktywacji

Question

Staram się pokazać drugi formularz nad głównym formularzem bez utraty ostrości.

Próbowałem ShowWindow(second.handle, SW_SHOWNOACTIVATE), ale mainform traci ostrość. Jeśli ustawię Visible := false w drugim oknie, wywołanie ShowWindow nie aktywuje drugiego formularza, ale okna są puste, gdy pokazano ...

Czy ktoś ma dobry przepis na to?

AKTUALIZACJA: Co próbuję zrobić, pokazuje okno powiadomień na danym wydarzeniu. Ważne jest, aby główna forma nie traciła ostrości w dowolnym momencie.

Answer 1

Coś jest nie tak z Twoim kodem.

testowałem ten kod, to działa:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    ShowWindow(Form2.Handle, SW_SHOWNOACTIVATE); 
    Form2.Visible := True; 
end; 

Uważać, aby korzystać Visible, nie Show! W przeciwnym razie zastąpi on SW_SHOWNOACTIVATE.

Answer 2

Możesz pokazać okno (nie modalne) i zresetować fokus do głównego okna. nie pokazuje inną formę na górze

procedure TMainForm.ButtonClick(Sender: TObject); 
begin 
    OtherForm.Show; 
    SetFocus; 
end; 

Testowane na 2006

tego produktu. Ale bardzo intuicyjne jest mieć okno na górze, które nie ma ostrości.

Answer 3

Używałem tego w ubiegłym

SetWindowPos(WindowHandle, HWND_TOP, 0, 0, 0, 0, SWP_NOACTIVATE or SWP_NOSIZE or SWP_NOMOVE); 

I nie zostały przetestowane z ostatnimi wersjami Delphi mimo ...

Answer 4

Jeśli to możliwe, należy rozważyć przy użyciu jakieś podpowiedzi okno, aby wyświetlić informacje o powiadomieniu. Wskazówka narzędzia nie kradnie fokusu od głównego okna, gdy jest ono wyświetlane lub gdy użytkownik kliknie. Standardowy formularz domyślnie będzie miał ramkę, a jeśli użytkownik kliknie na tę granicę, główny formularz straci ostrość.

Oto podstawowy kod do wykonania tej czynności. Końcówka znika po wywołaniu wolnej; jednak lepiej byłoby ustawić timer niż korzystać ze snu.

with THintWindow.Create(nil) do 
    try 
    ActivateHint(MyRect, 'My Notification'); 
    Sleep(DisplayTime); 
    finally 
    Free; 
    end 

Answer 5

Tutaj jesteś:

// you have set your 2nd form as non resizable, without border nor title etc... 
    Form2.Enabled := False; // prevent the 2nd form to grab focus even when clicked 
    SetWindowPos(Form2.Handle, HWND_TOP, 0, 0, 0, 0, SWP_SHOWWINDOW or SWP_NOACTIVATE or SWP_NOSIZE or SWP_NOMOVE); 
    // be sure to hide it automatically when done as it is disabled... 

Answer 6

Zrobiłem to w przeszłości, ale nie mam kodu, ponieważ był propietary w ostatnim miejscu pracy (przepraszam).

Jeśli dobrze pamiętam, co zrobiłem, było:

1. od klienta klasy A wywołania procedury (lub funkcja), który nie należy do żadnej klasy (tradycyjną metodą Pascal).
2. Z tej metody wywołaj metodę w klasie B, która nie dziedziczy po TForm
3. Z metody w B, utwórz instancję okienka popup P, ale bez rodzica lub właściciela; i wywołaj metodę w instancji.
4. Z metody wywołanej w instancji, pokaż się.

kod (od kroku 3) mógłby wyglądać następująco:

var p: TPopupForm; 
begin 
    p := TPopupForm.Create(nil); 
    p.ShowWindow; 
    p.Release; 
end; 

Przepraszam, jeśli ten nie działa, nie mam zbyt Delphi.

Answer 7

kod Daniels działa aż ...

ShowWindow(Form2.Handle, SW_SHOWNOACTIVATE); 
Form2.Visible := True; 

Dopóki druga forma jest tworzone dynamicznie. Następnie twój drugi formularz znajduje się w pozycji 0,0 z domyślną szerokością i wysokością.

Przez krótką chwilę, gdy zostanie wykonany ShowWindow, zobaczysz drugi formularz na ekranie, znikający po wykonaniu następnego wiersza.

Używam kodu dla przezroczystego formularza nakładki, który jest tworzony dynamicznie. Poniższy kod jest kombinacją podanych odpowiedzi i umieszcza drugi formularz bez aktywacji nad formularzem nadrzędnym.