Re: Прозорец без обозначение в таск-бара / Компютри и Интернет / Delphi

unit Unit1;

interface

uses
Windows, Forms, StdCtrls, Classes, Controls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
procedure ShowMainForm;
procedure HideMainForm;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ShowMainForm;
begin
ShowWindow(Application.Handle, SW_RESTORE); //това скрива апликацията от таскбар
// ShowWindow(Application.MainForm.Handle, SW_RESTORE); //това скрива и главната форма, затова е и коментнато.
end;

procedure TForm1.HideMainForm;
begin
ShowWindow(Application.Handle, SW_HIDE); //респективно обратното...
// ShowWindow(Application.MainForm.Handle, SW_HIDE);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if Tag = 0 then
Begin
HideMainForm;
Tag := 1;
End
else
Begin
ShowMainForm;
Tag := 0;
End;
end;

end.

Мерси Котарак!

Точно това ми трябваше.

Има само един малък проблем, дължащ се на Делфито, който все още не мога да разреша. При стартиране на приложението, за да скрия иконата от таскбара използвам следния код в OnShow на главната форма:

procedure TForm1.FormShow(Sender: TObject);
begin
ShowWindow(Application.Handle, SW_HIDE);
end;

Всичко работи нормално, но понякога се получава едно гадно премигване в таскбара, а именно иконата се появява за кратко и веднага изчезва след изпълнението на хендлъра. Това става за част от секундата на моя PII/350 MHz
и на по-бързи компютри сигурно изобщо не се забелязва. Едно решение е следния код на главната програма:

program Project1;

uses
Forms, Windows,
Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}

begin
Application.Initialize;
Application.ShowMainForm:=false;
Application.CreateForm(TForm1, Form1);
ShowWindow(Application.MainForm.Handle, SW_RESTORE);
Application.Run;
end.

Проблема тука е, че Делфито "не знае", че формата му е показана. Формата се появява без премигване, но контролите наследници на TWinControl (които могат да приемат фокуса) не се показват. Това все пак върши идеална работа за splash screens - TLabel, TImage и др. си се показват нормално във формата, но на мен ми трябва за друга цел, като например прозоерца Display Properties от Control Panel, който си няма иконка в таскбара.

Както и да е, това не ми е фатално, само споделям дребните странични ефекти от директното викане на API функции в Делфи...

Мерси още веднъж!

Mixy