VPF::После закрытия модального окна фокус на основное

Dnick123

Дата 1.8.2011, 15:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 1.8.2011

Репутация: нет
Всего: нет

Народ, проблема после выхода из модального окна, активируется основное, причем даже если оно свернуто, скрыто и минимизировано. Причем теперь основное окно нельзя свернуть. Подскажите плиз, может я както неправильно с ними работаю

Процесс скрытия основного окна:

Код


procedure TForm1.ControlWindow(var Msg: TMessage);
  begin
    if Msg.WParam = SC_MINIMIZE then
      begin
        CoolTrayIcon1.MinimizeToTray:=true;
        CoolTrayIcon1.IconVisible:=true;
        Application.Minimize;
        ShowWindow(Handle, SW_HIDE); // Ñêðûâàåì ïðîãðàììó
        ShowWindow(Application.Handle,SW_HIDE); // Ñêðûâàåì êíîïêó ñ TaskBar'à
      end
    else
      inherited;
  end;

Работа с модальным

Код


    Form3:=TForm3.Create(application);
    Form3.Caption:='Èìÿ ïîëüçîâàòåëÿ/ïàðîëü';
    if ss.savelogin then form3.edit1.text:=ss.login else form3.edit1.text:='';
    form3.CheckBox1.Checked:=ss.savelogin;
    Form3.ShowModal; // Ðåçóëüòàò âûáîðà
    needconnect:=form3buttonclick;
    if form3buttonclick then
    begin
      ss.savelogin:=form3.CheckBox1.Checked;
      ss.login:=form3.Edit1.Text;
      ss.password:=form3.Edit2.Text;
      pass11:=form3.Edit2.Text;
    end;
    Form3.Free;

После этого фокус перескакивает в основное(хотя его состояние остается hide)

Dnick123

Дата 2.8.2011, 13:48 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 1.8.2011

Репутация: нет
Всего: нет

Ок! Ну раз никто не в курсе. Проблему решил самым тупым методом. Повторно сворачиваю основную форму после работы с модальным окном!!

Это сообщение отредактировал(а) Dnick123 - 2.8.2011, 13:49

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »