Скачать: CL | DM;

Возвратить фокус приложению   Найти похожие ветки 

← →
zorik ©   (2006-05-19 11:56) [0]

У меня приложение делает экспорт в ексель. Как после экспорта сделать активным окно приложения?

---

← →
Elen ©   (2006-05-19 11:58) [1]

setforegroundwindow(form1.handle)
вернет на перед экрана твою форму

---

← →
zorik ©   (2006-05-19 12:03) [2]

> Elen ©   (19.05.06 11:58) [1]


Не то. После экспорта появляется сообщение "експорт успешный". Хочу чтоб оно стало активным или замигало синим как в програмах сканирования

---

← →
Elen ©   (2006-05-19 12:11) [3]

FlashWindow(handle) замигает тебе нужное окно.

>сообщение "експорт успешный".

Что за сообщение кто и как сообщает? Exсel  или твоя прога?

---

← →
Elen ©   (2006-05-19 12:12) [4]

Можеш ли отследить завершение экспорта?

---

← →
zorik ©   (2006-05-19 12:20) [5]

Из главной, назовем ее так, формы вызывается процедура экспорта. Процедура в отдельном модуле. Она (процедура) создает объект ексель, експортирует туда данные, но не закрывает его (ексель). Собственно он остается активным. При успешном експорте - сообщение "ок", иначе - сообщение о ошибке. Примерно так


procedure Form1.ButtonExportClick;
begin
 ExportData;
end;

pocedure ExportData;
begin
 try
   //тут делаем все что нужно
  MessageDlg("Ok");
 except
   raise Exception.Create("error");
 end;
end;

P.S.: Код писал прямо сдесь


---

← →
Elen ©   (2006-05-19 12:29) [6]

А ты сделай создание обьекта Excel невидимым. Кажется в этом обькте есть свойство невидимости (только не помню как называется).
попробуй <переменная_с Экселем>.applicationVisible:=false.
Эксель не должен показываться на экране. или примени это после импорта.
или тебе обязательно нужно видеть эксель на экране?

---

← →
zorik ©   (2006-05-19 12:32) [7]

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

---

← →
Elen ©   (2006-05-19 12:36) [8]

Месьва мудрое решеньеце

---

← →
Leonid Troyanovsky ©   (2006-05-19 18:23) [9]

> Elen ©   (19.05.06 12:36) [8]
> Месьва мудрое решеньеце


Можно даже короче:
-Мсье решил мудро.

--
Regards, LVT.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.024 c