Неизвестный компонент

[newerow1989]

Здравствуйте!
Не подскажите ли, как называется компонент (или свойство формы), выделенной красной рамкой?
Безымянный.png
Он обладает свойством прозрачности (Form1.AlphaBlend) и свойством (Form1.??????????) таким, что при нажатии мышкой на него он не реагирует!
Этот компонент используется в программе GPRS Explorer

Например, установить курсор на текст, а поверх установленное полупрозрачное окно не мешало работать!

[Stilet]

А по моему это не компонент а именно форма. На Делфиворлд, пока его не прикрыли был вроде пример такого окна.

[newerow1989]

Про форму я и догадывался! Вот и хочу узнать как изобрести "неприкосновенность" формы (что за свойство у него?)

[Pavia]

Перебираешь все окна в системе и передаешь клик ниже лежащему окну.

[Stilet]

Перебираешь все окна в системе

Зачем? Передавать в GetNextWindow() хендл своей формы с параметром GW_HWNDNEXT должно хватить, чтоб узнать что под ней лежит. Ну и далее сам клик

[newerow1989]

Pavia, не то! Мне нужно сделать полупрозрачное окно так, чтобы кликая на него оно не реагировало!

Объясняю подробнее на примере 2-го рисунка с надписью "Образец": обычно щелчком мыши по окну, форма становится активной, т.е. получает фокус. А мне нужно сделать так, чтобы активной она не была, сразу печатать в окне "Unit1.pas", т.е. "не задевая" окно "Образец"!

Вот и спрашиваю какое свойство у этой формы надо изменить?

Чтобы еще по понятнее было: Запустите Delphi, установите Form1.AlphaBlend:=true, Form1.AlphaBlendValue:=1 (больше 1 - нельзя!), Form1.WindowState:=wsMaximized и запустите! Какой эффект получится? А потом закройте получившуюся программу! А?

Пример Stilet не помог!

[come-on]

Посмотрите какие стили выставлены в этом окне. WS_EX_TOOLWINDOW должен быть, может еще что.

[come-on]

вот тут еще посмотрите
http://rsdn.ru/forum/dotnet.gui/2643742.1

[min@y™]

Лучше 1 раз увидеть...

1555576.jpg

Я понятно объясняю?

Видеоскриншот.
Исходник. 284099 - неизвестный компонент.zip

Что-нибудь ещё, сер?

[Filka]

Сообщение от newerow1989

Мне нужно сделать полупрозрачное окно так, чтобы кликая на него оно не реагировало!

Объясняю подробнее на примере 2-го рисунка с надписью "Образец": обычно щелчком мыши по окну, форма становится активной, т.е. получает фокус. А мне нужно сделать так, чтобы активной она не была, сразу печатать в окне "Unit1.pas", т.е. "не задевая" окно "Образец"!

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;

// ...

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  with Params do
    ExStyle := ExStyle or WS_EX_TRANSPARENT; // <--
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  AlphaBlend := True; // <--
  //
  AlphaBlendValue := 10;
  Color := clGreen;
  BorderStyle := bsNone;
  FormStyle := fsStayOnTop;
  WindowState := wsMaximized;
end;