procedure TForm1.Button1Click(Sender: TObject);
begin
MessageBox(Form1.Handle,
PChar('Вы хотите сохранить изменения?'),
PChar('Моя программа'), 3);
end;Form1.Handle можно заменить Application.Handle. Тогда пользователь не сможет пользоваться ни одним окном вашего приложения, пока не ответит.
email: delphi4all@narod.ru
