прозрачность формы.

[blackstersl]

Привет всемю Как сделать так чтоб форма была прозрачной а компоненты на ней оставались такими как есть. Спасибо.

[Земляника]

Насколько мне известно Делфи, такое невозможно

[Stilet]

Насколько мне известно Делфи, такое невозможно

Ну прям уж так нет, но можно извернуться по другому выделяя компоненты в другие подчиненные формы.

[blackstersl]

BaronTreep ошибку выдаёт на

...longint; stdcall; external 'USER32.DLL';

.

[BaronTreep]

function SetLayeredWindowAttributes(hwnd: longint; crey: byte; bAlpha: byte; dwFlags: longint): longint; stdcall; external 'USER32.DLL';

Этого можно не делать.

но можно извернуться по другому выделяя компоненты в другие подчиненные формы.

В принципе, с помощью регионов можно было бы реализовать, я сталкивался с формами произвольной формы, но с произвольной прозрачностью - нет! Как бы это сделать, по аналогии с регионами?

[Noor]

Поиском пользовались ????? Гугл рулит !!!

Создадим новый модуль (В последствии его будем подключать к нашим формам).
Создим два типа: TChildForm (дочернее окно), TParentForm (родительское окно).

TChildForm = class(TForm)
  private
  protected
    ParentForm: TParentForm;
    procedure CreateParams(var Params: TCreateParams); override;
    procedure WMActivate(var Message: TWMActivate); message WM_ACTIVATE;
    procedure CMTextChanged(var Message: TMessage); message CM_TEXTCHANGED;
  public
    constructor Create(AOwner: TComponent); override;
  end;

  TParentForm = class(TForm)
  private
  protected
    FChildForm:TChildForm;
    procedure WMWindowPosChanged(var MSG: TWMWindowPosChanged); message WM_WINDOWPOSCHANGED;
  public
    function GetRect:TRect;
  published
    property ChildForm:TChildForm read FChildForm write FChildForm;
  end;

Если Вы заметили то в каждом класе в нутри будет хранится дочерняя/родительская форма.
Теперь по порядку с обработчиками дочирной формы:
Кто создаст тот и родитель

constructor TChildForm.Create(AOwner: TComponent);
begin
  if AOwner<>nil then ParentForm:=TParentForm(AOwner);
  inherited;
end;

Ну и самое главное перекрыть CreateParams, так как нам нужно чтобы дочирняя форма всегда была над родительской.

procedure TChildForm.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  with Params do
  begin
    if ParentForm <> nil then WndParent := ParentForm.handle; 
    // вот после этой строки мы и будет она висеть сверху
    // но если форма главная то этот код делать не обязательно

    // SetWindowLong(ParentForm.Handle, GWL_STYLE, Style);
    // тут можна передать стиль дочерней формы в 
    Style := WS_POPUP; // делаем форму без бордюра меню и тд.
  end;
end;

Ну и дополнтеные, не столь важные обработчики.
Отслежывание изминения заголовка

procedure TChildForm.CMTextChanged(var Message: TMessage);
begin
  if ParentForm <> nil then
    ParentForm.Caption := Caption;
end;

поддержка авкивности бордюра, когда активна дочерняя форма

procedure TChildForm.WMActivate(var Message: TWMActivate);
begin
  if ParentForm <> nil then
    SendMessage(ParentForm.Handle, WM_NCACTIVATE, 1, 0);
end;

Теперь обработчики главной формы:
Обработка ресайза или перемещения формы

procedure TParentForm.WMWindowPosChanged(var MSG: TWMWindowPosChanged);
begin
   inherited;
   if FChildForm <> nil then FChildForm.BoundsRect := GetRect;
end;

Получение позиции для дочерней формы

function TParentForm.GetRect: TRect;
var
  iBorder,iFrame,iCaption:integer;
begin
  iBorder := GetSystemMetrics(SM_CXBORDER);
  iFrame := GetSystemMetrics(SM_CYDLGFRAME);
  iCaption := GetSystemMetrics(SM_CYCAPTION);
  
  result.Left := BoundsRect.Left + iBorder + iFrame;
  result.Right := BoundsRect.Right - iBorder - iFrame;
  result.Bottom := BoundsRect.Bottom - iBorder - iFrame;
  result.Top := BoundsRect.Top + iBorder + iFrame + iCaption;

// то что сверху и снизу бедут делать идентычну работу 
// я просто зделал по меньше вызовов процедуры GetSystemMetrics
{  result.Left:=BoundsRect.Left + GetSystemMetrics(SM_CXBORDER)
                               + GetSystemMetrics(SM_CYDLGFRAME);
  result.Right:=BoundsRect.Right - GetSystemMetrics(SM_CYBORDER)
                                 - GetSystemMetrics(SM_CYDLGFRAME);
  result.Bottom:=BoundsRect.Bottom - GetSystemMetrics(SM_CXBORDER)
                                   - GetSystemMetrics(SM_CYDLGFRAME);
  result.Top:=BoundsRect.Top + GetSystemMetrics(SM_CYBORDER)
                             + GetSystemMetrics(SM_CYDLGFRAME)
                             + GetSystemMetrics(SM_CYCAPTION);        }
end;

продолжение следует ....

[Noor]

Продолжение

Теперь если вы создадите две формы. подключите этот модуль. В одной форме поменяете родительский клас на TParentForm а в дочерней на TChildForm и запустите на выполнения то не должно ничего показывать того что это две формы. При этом вы можете поменять параметры AlphaBlend.
Но когда вам захочется закрыть форму то тут они будут разноглавствовать.
Ну что ж… перекрываем в главной обработчик CloseQuery

function CloseQuery: Boolean; override; 
…
function TParentForm.CloseQuery: Boolean;
var
  CAction: TCloseAction;
begin
  result := true;
  FCloseFlag := true; // ставим флаг, что главная занимается закритием дочерней формы
  if FChildForm <> nil then 
  with FChildForm do
  begin
    result := CloseQuery; // вызываем у дочерней обработчик CloseQuery (вдруг пользователь чтото сохранить хочет)
    if result then
    begin
      CAction := caNone;
      DoClose(CAction); // вызываем обработчик Close (но нам побарабону что он там вернет ведь решает главная )
      free;                        // Уничтожаем
    end;
  end;
  FCloseFlag := not result;
end;

Теперь при закрытии главной формы будет закрыватся и дочерняя, при этом будут вызваны все пользовательские обработчики.
Но что будет если закрытие поступит из дочерней?
И эта проблема решается
В поле public созадем процедуру close которая заменит оригинальную

procedure TChildForm.close;
begin
  if ParentForm <> nil then
    if not ParentForm.CloseFlag then ParentForm.Close;
    // проверяем. Может главная уже делает закритие дочерней
    // если нет то закрываем главную, а не дочернюю
end;

вот и все.

Еще тут посмотри
Исодник + оригинал статейки+картинка того что дожно получиться !

[BaronTreep]

++ Заплюсовал ;-) ++

[OCTAGRAM]

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

function SetLayeredWindowAttributes(hwnd: longint; crey: byte; bAlpha: byte; dwFlags: longint): longint; stdcall; external 'USER32.DLL';

Этого можно не делать.



В принципе, с помощью регионов можно было бы реализовать, я сталкивался с формами произвольной формы, но с произвольной прозрачностью - нет! Как бы это сделать, по аналогии с регионами?

Ну это вряд ли. Помощник Microsoft Office — это Layered Window.

У Layered Windows есть разные режимы работы. Можно просто сделать окно прозрачным. Можно установить ключевой цвет, на месте которого будет дырка. А можно сделать полноценное Layered Window, на котором можно рисовать 32–битным цветом. Не спрашивайте меня, что это значит Но это можно. Большинство компонентов наверняка будут по привычке отрисовываться плотными, так что нужно активировать полноценную Layered Window'зность и перехватывать событие erase, отрисовывая полупрозрачный фон.