![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Программирую на Delphi for .Net
Есть прогрммма с большим количеством TextBox. Необходимо, чтобы программа при выборе пользователем Файл=>Новый возвращала значения форм к первоначальным, бывшим при запуске. Попробовал Код:
//Выбо пункта меню "Новый" method MainForm.New1_Click(sender: System.Object; e: System.EventArgs); begin InitializeComponent(); end; Получилось с Application.Restart, но это долго по времени и форма сначала гаснет. Может быть есть более правилный метод? Надеюсь на совет. Заранее спасибо. Последний раз редактировалось Red_baron, 06.06.2010 в 00:24. |
#2
|
||||
|
||||
![]() Для Net не подскажу, но вот для VCL такой способ работает:
Код:
for j := 0 to Application.ComponentCount - 1 do if Application.Components[j].ClassParent = TForm then with TForm(Application.Components[j]) do for i := 0 to ComponentCount - 1 do if Components[i].ClassType = TEdit then TEdit(Components[i]).Text := '' Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. Последний раз редактировалось Страдалецъ, 06.06.2010 в 03:29. |
#3
|
|||
|
|||
![]() У Application для .Net нет свойства ComponentCount.
|
#4
|
|||
|
|||
![]() У MainForm должно быть.
|