Удаление на панели задач кнопки открытого окна

[newerow1989]

Здравствуйте!

Как удалить на панели задач кнопку открытого окна (см. рис.)?
Обращаю внимание, что создаваемое окно должно быть поверх остальных и некликабельной!

var Form: TForm;

procedure TForm1.Button1Click(Sender: TObject);
begin
   Form:=TForm.Create(Application);
   Form.BorderStyle:=bsNone;
   Form.FormStyle:=fsStayOnTop;
   Form.Color:=clWhite;
   Form.TransparentColor:=true;
   Form.TransparentColorValue:=Form.Color;
   Form.Left:=Screen.WorkAreaLeft+Screen.WorkAreaWidth-Form.Width;
   Form.Top:=Screen.WorkAreaTop+Screen.WorkAreaHeight-Form.Height;
   with TLabel.Create(Form) do
   begin
      Parent:=Form;
      Caption:='programmersforum.ru';
      Color:=clYellow;
      Font.Size:=16;
   end;
   SetWindowLong(Form.Handle, GWL_EXSTYLE,
      GetWindowLong(Form.Handle, GWL_EXSTYLE) or WS_EX_TRANSPARENT);
   SetWindowLong(Form.Handle, GWL_HWNDPARENT, 0);
   Form.Show;
end;

[NetSpace]

а в несворачиваемом окне надпись, про то что если хотите закрыть окно и продолжить работу, то надо перевести 3000 руб на номер +7(912)XXXXXXX?
----------
хм, попробую скомпилировать...
----------
кнопка открытого окна на панели задач у меня не создаётся, если программа имеет изначально невидимую форму или вообще без формы. типа в процессах висит, работает, а видимых компонентов нет...

[NetSpace]

под Delphi 5.
получилось. пришлось, правда, кое-что подправить и работает при таком раскладе:

 Form1.BorderStyle:=bsNone;
   Form1.FormStyle:=fsStayOnTop;
   Form1.Color:=clWhite;
   Form1.Left:=Screen.Width-Form1.Width;
   Form1.Top:=Screen.Height-Form1.Height;
   SetWindowLong(Form1.Handle, GWL_EXSTYLE,
      GetWindowLong(Form1.Handle, GWL_EXSTYLE) or WS_EX_TRANSPARENT);
   SetWindowLong(Form1.Handle, GWL_HWNDPARENT, 0);
   Form1.Show;

--------форма невидима, но кнопка видна (см.скриншот)

[newerow1989]

Шутим, значит...

Мне нужно кроме Form1 появилась другая Form (всего 2 формы должно быть)

кое-что подправить и работает при таком раскладе:

Ничего подправлять не надо. Просто скопировать и вставить

[NetSpace]

если не подправлять, тогда ругается на:
1) Form:=TForm.Create(Application);
2) Screen.WorkAreaLeft и вообще любой "Work"
3) TransparentColor
- компилятор их не знает и не хочет знать.

[newerow1989]

У меня в Delphi 6 все нормально шло

[NetSpace]

ну, не знаю. я могу ещё раз скомпилировать ваш код и дать ошибки, выходящие в виде списка, если вам это что-то даст для дальнейшей работы...

[newerow1989]

Давайте, скидывайте ошибки.

Вообще у меня две версии Delphi установлены: Delphi 6 и Delphi 10.3.
На обеих прекрасно запускается.

А этот код написан в Delphi 6. Перед публикацией любого программного кода я всегда прогоняю его на ошибки.

[NetSpace]

у меня для собственных нужд 5 и 7 версия. ни на одной без ошибок не компилируется.
[Error] Unit1.pas(27): Incompatible types: 'TForm1' and 'TForm'
[Error] Unit1.pas(31): Undeclared identifier: 'TransparentColor'
[Error] Unit1.pas(32): Undeclared identifier: 'TransparentColorValue'
[Error] Unit1.pas(33): Undeclared identifier: 'WorkAreaLeft'
[Error] Unit1.pas(33): Undeclared identifier: 'WorkAreaWidth'
[Error] Unit1.pas(34): Undeclared identifier: 'WorkAreaTop'
[Error] Unit1.pas(34): Undeclared identifier: 'WorkAreaHeight'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

[newerow1989]

1-я ошибка - какая-то подозрительная.
Надо иметь в виду, что Form и Form1 - это две разные формы!