Показать сообщение отдельно
  #2  
Старый 20.08.2015, 06:36
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Вот пример "как можно кликать сквозь форму", действует в пределах окошек сборки



Добавлено немного позже:

А если нужен подобный эффект и для всех оконцев в системе, то в этой экземпле достаточно добавить к unit2 следующее
Код:
...
protected
procedure CreateParams(var Params: TCreateParams); override;
...

procedure TForm2.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  if Assigned(Application.MainForm) then
   begin
    Params.WndParent:= GetDesktopWindow;
    Params.Style:= WS_CHILD;
   end;
end;
здесь всё понятно без объяснений, как очевидный факт
Вложения
Тип файла: zip Gareth.zip (99.6 Кбайт, 16 просмотров)
Ответить с цитированием