Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.02.06;
Скачать: CL | DM;

Вниз

Послать сообщение mdichild-форме на восстановление.   Найти похожие ветки 

 
Крутыш ©   (2004-01-24 23:13) [0]

Добрый вечер!!!

Как послать mdichild – форме сообщение на восстановление формы,
если оно свёрнуто.
Пробовал код
for j:=0 to Screen.FormCount - 1 do
begin
if (Screen.Forms[j] is TForm3) then
begin
if (Screen.Forms[j] as TForm3).Caption="Приходная накладная: Новый документ" then
begin
(Screen.Forms[j] as TForm3).BringToFront;
end;
end;
Но это если только форма не свёрнута, а находится на заднем плане.

А вот когда свёрнута не могу решить. Помогите!!!

С уважением!!!


 
BorH ©   (2004-01-24 23:55) [1]

Чёрт, запамятовал, кажется опция WindowState у TForm


 
BorH ©   (2004-01-25 00:03) [2]

Ну а на API кажется так:
var
YourWindow:hwnd;
begin
YourWindow:=FindWindowEx(Form1.Handle,0,"TForm3","Приходная накладная: Новый документ"); {Ищешь MDI окошко}
SendMessage(YourWindow,WM_MDIMAXIMIZE,0,0);
end;


 
Johnmen ©   (2004-01-25 01:23) [3]

WM_MDIRESTORE
WM_MDIMAXIMIZE


 
Крутыш ©   (2004-01-25 08:54) [4]

Этот код почему то не выполняеся для MDIChild-форм.
Для главной выполняется, а для дочерних окон не хочет.

YourWindow:=FindWindowEx(Form3.Handle,0,"TForm3","Приходная накладная: Новый документ");
SendMessage(YourWindow,WM_Close,0,0);


 
Крутыш ©   (2004-01-25 09:58) [5]

Всем спасибо!!! Проблема разрешилась!!!
С уважением!!!



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

Текущий архив: 2004.02.06;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.018 c
6-16554
Delphi5.01
2003-11-30 22:08
2004.02.06
блокируется Интернет при использовании компонента IdHttp


14-16741
Skif
2004-01-12 17:46
2004.02.06
RxLib


8-16518
Дмитрий
2003-10-04 00:48
2004.02.06
Проигрывание файлов формата Ogg Vorbis (*.ogg)


14-16654
konstantinov
2004-01-11 03:31
2004.02.06
Кто нибудь что нибудь знает о Норбекове


14-16731
Nikolai_S
2004-01-16 10:07
2004.02.06
Создание автоматического обновления (патча)