Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > как при закрытии вкладок браузера был запрос назак

Автор: s2004 1.1.2011, 23:27

Здравствуйте!
С Новым Годом!
Меня интересует вот при закрытие вкладок iexplorera при закрытие главного окна задаётся вопрос закрыть вкладки или нет, если закрывать неглавную, дочерние вкладки, то запроса такого не будет. у меня браузер на основе dll иехплорера поставил код в onclosequery

Код



procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if MessageDlg('Really close this window?', mtConfirmation,
    [mbOk, mbCancel], 0) = mrCancel then
    CanClose := False;
end;

при этом запрос на разрешения закрытия вкладки был не только главной, но и всех дочерних, а мне надо было только, как у родительской, как сделать?

Автор: s2004 9.1.2011, 11:35

вопрос сложный что ли? народ активней ....

Автор: Akella 9.1.2011, 16:40

Цитата(s2004 @ 9.1.2011, 11:35

)

вопрос сложный что ли? народ активней ....

чооооо????

Добавлено через 50 секунд
Народ, давайте, давайте. Активнее!!!! Человек же ждёт. А вы...

Автор: MetalFan 14.1.2011, 14:12

щас наколдуем)

Автор: s2004 14.1.2011, 21:30

Код


procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
  IamTheMain: Boolean;
begin
  IamTheMain := (Sender = Form1);
  CanClose := (not IamTheMain) or (MessageDlg('Really close this window?', mtConfirmation, [mbOk, mbCancel], 0) <> mrCancel);
  if (CanClose and IamTheMain) then

вопрос решён спасибо arj99 forum.sources.ru