Текущий архив: 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.025 c
