Форум: "Основная";
Текущий архив: 2003.09.11;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Макс   (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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.283 c