Delphi: Hiển thị cửa sổ mà không cần kích hoạt

Question

Tôi đấu tranh để hiển thị biểu mẫu thứ hai phía trên biểu mẫu chính mà không làm mất tập trung.

Tôi đã thử ShowWindow(second.handle, SW_SHOWNOACTIVATE), nhưng biểu mẫu chính mất tiêu điểm. Nếu tôi đặt Visible := false trên cửa sổ thứ hai, cuộc gọi tới ShowWindow không kích hoạt biểu mẫu thứ hai, nhưng cửa sổ bị trống khi hiển thị ...

Có ai có công thức nấu ăn ngon không?

CẬP NHẬT: Những gì tôi đang cố gắng làm, đang hiển thị cửa sổ thông báo tại một sự kiện cụ thể. Điều quan trọng là hình thức chính không mất tập trung bất cứ lúc nào.

Answer 1

Có điều gì đó sai với mã của bạn.

Tôi thử mã này, nó hoạt động:

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

Hãy cẩn thận để sử dụng Visible, không Show! Nếu không, nó sẽ ghi đè lên SW_SHOWNOACTIVATE.

Answer 2

Bạn có thể hiển thị cửa sổ (không phương thức) và đặt lại tiêu điểm thành cửa sổ chính.

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

Thử nghiệm trên 2006.

này không hiển thị các hình thức khác trên đầu trang. Nhưng nó là rất trực quan để có một cửa sổ trên đầu trang mà không có sự tập trung.

Answer 3

Tôi đã sử dụng này trong quá khứ

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

tôi đã không kiểm tra này với các phiên bản gần đây của Delphi dù ...

Answer 4

Nếu có thể, bạn nên cân nhắc sử dụng một số loại mẹo công cụ cửa sổ để hiển thị thông tin thông báo. Một mẹo công cụ sẽ không lấy cắp tiêu điểm từ cửa sổ chính của bạn khi nó được hiển thị hoặc khi người dùng nhấp vào nó. Biểu mẫu thông thường sẽ có đường viền theo mặc định và nếu người dùng nhấp vào đường viền đó, biểu mẫu chính của bạn sẽ mất tập trung.

Dưới đây là một số mã cơ bản để thực hiện việc này. Đầu biến mất khi được gọi tự do; tuy nhiên bạn nên tắt hẹn giờ hơn là sử dụng giấc ngủ.

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

Answer 5

Ở đây bạn là:

// 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

Tôi đã làm điều này trong quá khứ, nhưng tôi không có mã vì nó là propietary trong công việc cuối cùng (xin lỗi).

Nếu tôi nhớ tốt, những gì tôi đã làm là:

1. Từ khách hàng hạng A gọi một thủ tục (hoặc chức năng) mà không thuộc về bất kỳ lớp (một phương pháp Pascal truyền thống).
2. Từ phương thức đó, hãy gọi một số phương thức trong lớp B không kế thừa từ TForm
3. Từ phương thức trong B, tạo cá thể của biểu mẫu bật lên P, nhưng không có cha mẹ hoặc chủ sở hữu; và gọi một phương thức trong cá thể.
4. Từ phương thức được gọi trong cá thể, tự hiển thị.

Mã (bước 3) có thể đi một cái gì đó như thế này:

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

Tôi xin lỗi nếu điều này không làm việc, tôi không có Delphi quá.

Answer 7

Daniels mã số hoạt động cho đến khi ...

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

Cho đến hình thức thứ hai của bạn được tạo động. Sau đó, biểu mẫu thứ hai của bạn được đặt ở vị trí 0,0 với chiều rộng và chiều cao mặc định.

Trong giây lát khi ShowWindow được thực hiện, bạn sẽ thấy biểu mẫu thứ hai trên màn hình, biến mất khi dòng tiếp theo được thực thi.

Tôi đang sử dụng mã cho biểu mẫu lớp phủ trong suốt được tạo theo phương pháp nhuộm. Mã sau đây là sự kết hợp của các câu trả lời cho trước và đặt biểu mẫu thứ hai mà không cần kích hoạt trên biểu mẫu gốc.

SetWindowPos(Form2.Handle, HWND_TOP, Left, Top, Width, Height, SWP_NOACTIVATE); 
Form2.Visible := True;