|
#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)
|