Как такое сделали с окном

[Shouldercannon]

Есть главное окно программы. В этом окне есть кнопка. При нажатии на кнопку появляется новое окно, скорее всего

.Show;

так как можно спокойно перейти к главному. Это окно не имеет кнопки на панели задач. Если при этом открытом окне щёлкнуть где-нибудь (не в самом окне), то оно закрывается. Подобное можно увидеть в QIP, окно со смайлами. Как такое сделали?

[Roof]

Не знам как сделали в qip. Если правильно тебя понял, то предлагаю такое решение:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Show;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Form2.Showing then Form2.Hide;
end;

end.

Form2 тоже не имеет кнопки в панели задач.

[Shouldercannon]

Близко, но не то. Привязка идёт к Form1 procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
А может так и дедалось, на всех компонентах имеющихся на форме стоит событие MouseDown
Хотя замечено, если открыть окно и щёлкать по рабочему столу, то реакции никакой, если переключиться на другое приложение через панель задач (щёлкнув по кнопке), то окно исчезает, так же оно исчезает при клике по CAption программы. В QIP хитрее, там при клике по рабочему столу окно исчезает.

[Roof]

Так, однако все хитро. Видимо, невнимательно прочитал твою задачу. В DRKB видел решение - как выполнить процесс, пока приложение "бездельничает". Вот ссылка на решение, но на другом сайте: http://articles.org.ru/cn/showdetail.php?cid=7253

Возникла мысль применить это решение к твоей задаче. Рабочее вроде. Но нет уверенности, что это не извращение.

Unit1:

nit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private

    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Show;
end;

end.

Unit2:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm2 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure IdleEventHandler(Sender: TObject; var Done: Boolean);

  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

procedure TForm2.FormCreate(Sender: TObject);
begin
  Application.OnIdle := IdleEventHandler;
end;

procedure TForm2.IdleEventHandler(Sender: TObject; var Done: Boolean);
begin
  if Form2.Active = false then
    Form2.Hide;
  Done := true;
end;

{$R *.dfm}

end.

[W0LF]

1. А вы не думали, что в qip может это реализовано просто на панеле?
2. А что способов в интернете как скрыть форму с панели задач уже нет?

[Roof]

2. А что способов в интернете как скрыть форму с панели задач уже нет?

2 W0LF - вопрос, по-моему, вовсе не в этом.
2 Shouldercannon - что-то я перестарался, выняся в Unit2 процедуру и в Unit1 эта процедура прекрасно работает.

[Shouldercannon]

Как ни странно, но задача выполнена . Спасибо за помощь.

[Roof]

надо бы услышать мнение более опытных по такому решению для этой задачи. На здоровье )))
Прикрепляю исходник

[raxp]

никто не мешает на форме, которая должна скрыться - обрабатывать if GetFocus<>0 then и вуа-ля

[Пепел Феникса]

если не ошибаюсь то событие OnExit формы(или сообщение WM_KILLFOCUS ловить)
врятли там панелька, сча проверим

---Добавлено---
проверил, смайлы это отдельная форма, так что все выше написал, вполне подходит