![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | 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 должно быть.
|