Ẩn biểu mẫu chính trong ứng dụng Delphi 2009

Question

Mã sau hoạt động tốt trong Delphi 7. Tuy nhiên, trong Delphi 2009 biểu mẫu vẫn ẩn nhưng nút trên thanh tác vụ hiện đang xuất hiện.

ShowWindow(Handle, SW_HIDE); 
SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW); 
ShowWindow(Handle, SW_SHOW); 

Mã trên được gọi trong phương pháp FormCreate.

Answer 1

Hóa ra lý do chúng tôi thấy cửa sổ Ứng dụng trên thanh tác vụ là một cài đặt đơn giản tương tự câu trả lời của stukelly nhưng không hoàn toàn.

Để có được hình thức chính để xuất hiện trên thanh tác vụ và ẩn ứng dụng đơn bạn áp dụng:

Application.MainFormOnTaskbar := True; 
Application.ShowMainForm := False; 

Không có mã đằng sau những hình thức tạo ra hoặc yêu cầu bất cứ điều gì.

Answer 2

Bạn cần đặt các thuộc tính ShowMainForm và MainFormOnTaskBar thành False trước khi biểu mẫu được tạo.

Mở nguồn dự án của bạn và thiết lập MainFormOnTaskBar và ShowMainForm False, trước khi form được tạo ra.

Application.Initialize; 
Application.MainFormOnTaskbar := false; 
Application.ShowMainForm := false; 
Application.CreateForm(TForm1, Form1); 

Sau đó vào mẫu chính của bạn thêm đoạn mã sau vào FormActivate và FormShow sự kiện.

procedure TForm1.FormActivate(Sender: TObject); 
begin 
// hide taskbar button 
ShowWindow(Application.Handle, SW_HIDE); 
end; 
procedure TForm1.FormShow(Sender: TObject); 
begin 
// hide taskbar button 
ShowWindow(Application.Handle, SW_HIDE); 
end; 

Tôi đã thử nghiệm với Dephi 2007 và 2009. Thông tin bổ sung có sẵn here.