Текущий архив: 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.45 MB
Время: 0.007 c
