"Мигающее" модальное окно.

← →
AlexanderMS © (2006-07-09 17:43) [0]

Скажите, пожалуйста, а можно ли создать такой же эффект, как почти во всех Windows-приложениях: рамка модального окна "мигает" при попытке щёлкнуть вне этого окна. А при попытке деактивировать
модальное окно программ на Delphi просто слышен характерный звук (beep), но рамка не мигает. Кто-нибудь пробовал так сделать?

← →
Юрий Зотов © (2006-07-09 20:17) [1]

procedure TForm1.FormClick(Sender: TObject);
begin
with TForm2.Create(Self) do
try
SetWindowLong(Handle, GWL_HWNDPARENT, Self.Handle);
ShowModal
finally
Free
end
end;

← →
@BraIN © (2006-07-09 20:44) [2]

О! Все руки не доходили спросить, а тут такой презент :) Спасибо, Юрий!

Действительно, полезная тонкость.

"Мигающее" модальное окно. Найти похожие ветки