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

Вниз

Как свернуть окно программы, если оно родило модальное окно.   Найти похожие ветки 

 
Реактор ©   (2004-07-21 00:08) [0]

Основное окно программы рожает модальное окно (show modal), после чего могу свернуть модальное окно, но не могу свернуть главное окно программы. Как бы сделать так, что бы они оба сворачивались.


 
Gero ©   (2004-07-21 00:18) [1]


> Основное окно программы рожает модальное окно

Я бы хотел это увидеть ;)


 
Реактор ©   (2004-07-21 00:28) [2]

Создаешь две формы. В одной пишешь Showmodal(Form2); и все, Form1 уже не сворачивается.


 
Eugene1501   (2004-07-21 00:46) [3]

Сворачивать модальные окна - плохой тон.


 
Тестировщица   (2004-07-21 01:26) [4]

unit Unit1;
//...........
var
 Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.ShowModal;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
if Form2.Visible=true then
    SendMessage(Form2.Handle,WM_SYSCOMMAND,SC_RESTORE,0);
end;
//.............

unit Unit2;
//...........
type
 TForm2 = class(TForm)
 private
   { Private declarations }
 public
   { Public declarations }
   procedure WMSYSCOMMAND(var msg:TMessage);message WM_SYSCOMMAND;
 end;

var
 Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.WMSYSCOMMAND(var msg:TMessage);
 begin
   if (Msg.wParam=SC_MINIMIZE) then
    begin
       SendMessage(Form1.Handle,WM_SYSCOMMAND,SC_MINIMIZE,0);
       Exit;
    end;
   inherited;
 end;

end.

Можно сделать примерно так. Но зачем сворачивать модальные окна???


 
Германн ©   (2004-07-21 03:35) [5]

2 Тестировщица   (21.07.04 01:26) [4]
А какой глубокий смысл в строке - if Form2.Visible=true then? Чем она лучше строки if Form2.Visible then...


 
Реактор ©   (2004-07-21 08:53) [6]

Ох. Спасибо большое. Я с ТР на BD недавно пересел.
А что такое inherited;?


 
CHES ©   (2004-07-21 10:18) [7]

to Реактор
inherited вызывает метод класса-предка


 
Тестировщица_   (2004-07-21 11:23) [8]

Германн ©   (21.07.04 03:35) [5] В данном случае - никакого. Просто дурная привычка 8)


 
Реактор   (2004-07-22 10:49) [9]

Не работает. Модальное как сворачивалочь, так и сворачивается, а предок хрен свернешь.


 
Тестировщица_   (2004-07-22 19:21) [10]

У меня работает. Но, возможно, не так как ты ожидаешь. При сворачивании модального окна сворачивается и главное окно (т.е. они оба сворачиваютя - как и написано в вопросе).


 
Реактор   (2004-07-23 13:13) [11]

Извините. все работает. Я переписал с ошибкой.


 
Акакий   (2004-07-23 13:39) [12]

Удалено модератором



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

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

Наверх




Память: 0.49 MB
Время: 0.023 c
14-1090071933
sucer
2004-07-17 17:45
2004.08.08
Живучисть HDD при переноски


1-1090397987
Igor_thief
2004-07-21 12:19
2004.08.08
Как получить высоту выпавшего PopupMenu?


9-1078418351
Unknown user
2004-03-04 19:39
2004.08.08
Оцените возможности следующей версии моего OpenGL движка.


3-1089889217
Valer
2004-07-15 15:00
2004.08.08
Access, изменение содержимого запроса.


1-1090426125
AlexR
2004-07-21 20:08
2004.08.08
Как отследить потерю фокуса