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

Вниз

Памагите новичку %-)))   Найти похожие ветки 

← →
drpass   (2002-02-05 10:44) [3]

Создай вторую форму (назовем ее Form2). Потом открой Project->Options->Forms и перемести ее из списка Autocreate Forms в список Available Forms.
Теперь, чтобы сделать ее модальной (т.е. вывести и заблокировать основное окно), напиши следующее
Form2:=TForm2.Create(Form1);
Form2.ShowModal;
//чего-то читаем из нее
s:=Form2.Edit1.Text;
Form2.Free;

P.S. Для закрытия Form2 нужно использовать не Close, а ModalResult:=1.
P.P.S. Да, MBo прав - если тебе нужно только считать одну строчку, то проще использовать функцию InputBox из модуля Dialogs

---

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

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

Наверх

Память: 0.43 MB
Время: 0.003 c