Скачать: 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 вся ветка

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



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