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

Вниз

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

 
Макс   (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
Разницы никакой, конфликт не возникнет ни в том, ни в другом случае. И исключительная ситуация не возникнет!


 
HolACost! ©   (2003-08-30 18:00) [4]

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



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

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

Наверх




Память: 0.47 MB
Время: 0.021 c
1-33673
race1
2003-08-29 16:23
2003.09.11
enhlistview


3-33449
Silla
2003-08-20 13:16
2003.09.11
Grid от QuantumGrid


14-33765
Igor__
2003-08-23 11:01
2003.09.11
Квантизация цветов


3-33487
off
2003-08-20 09:45
2003.09.11
Система упала и отжалась. Чем лечить?


6-33702
odyssey
2003-07-10 09:56
2003.09.11
TWebBrowser