![]() |
|
|
#1
|
|||
|
|||
|
Здравствуйте.
Подскажите пожалуйста. Хочу сделать форму, что бы можно было кликать и проводить всяческие манипуляции с мышкой сквозь форму. Сама форма будет немного прозрачной, в fsstayontop. При наведении на форму, форма будет становится еще более прозрачной. Не могу нигде найти, как можно кликать сквозь форму? ![]() Надо чтобы программа всегда была на видном месте, но и чтобы не мешала. |
|
#2
|
||||
|
||||
|
Вот пример "как можно кликать сквозь форму", действует в пределах окошек сборки
Добавлено немного позже: А если нужен подобный эффект и для всех оконцев в системе, то в этой экземпле достаточно добавить к 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;Последний раз редактировалось Alegun, 20.08.2015 в 19:00. |
| Этот пользователь сказал Спасибо Alegun за это полезное сообщение: | ||
Gareth (20.08.2015)
| ||