активное окно

← →
Макс (2003-08-30 16:11) [0]

допустим есть проект в делфи в котором два окна.
я нажимаю на кнопку на форме 1 появл. форма 2.
Как сделать так чтобы пока я не закрыл форму 2 я не смог
переключится на форму 1 (т.е.сделать ее активной)?

← →
AndreySoft © (2003-08-30 16:21) [1]

Да очень просто!

Вот код к первой форме:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons; type TForm1 = class(TForm) BitBtn1: TBitBtn; Label1: TLabel; procedure BitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses Unit2; {$R *.dfm} procedure TForm1.BitBtn1Click(Sender: TObject); begin Form1.Hide; Form2.Show; end; end.

А вот код ко второй форме:
unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm2 = class(TForm) procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } public { Public declarations } end; var Form2: TForm2; implementation uses Unit1; {$R *.dfm} procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction); begin Form2.Hide; Form1.Show; end; end.

← →
horse © (2003-08-30 17:06) [2]

AndreySoft © (30.08.03 16:21) [1] - бред, как и ветка про проверку число-строка.
>Макс Form2.ShowModal

← →
AndreySoft © (2003-08-30 17:24) [3]

>>horse © (30.08.03 17:06) [2]
Ну знаешь! Это уже дело вкуса! Хошь Show, хошь ShowModal
Разницы никакой, конфликт не возникнет ни в том, ни в другом случае. И исключительная ситуация не возникнет!

Это не дело вкуса - это логичность и локаничность - у вас тупизм как у осла! Господа Мастера уже я думаю смеются над вами уже какой день - я от коликов мучаюсь 3 дня, как ваши посты вижу!!!!

активное окно Найти похожие ветки