Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
dimka11
0 / 0 / 0
Регистрация: 22.10.2014
Сообщений: 23
#1

Очистка всех edit-ов одной кнопкой - Delphi

26.02.2016, 18:09. Просмотров 270. Ответов 3
Метки нет (Все метки)

Delphi
1
2
3
4
5
6
7
8
9
10
procedure Clean; 
var Sender: TEdit; 
begin 
(Sender as TEdit).Clear; 
end;
 {$R *.dfm} 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
Clean; 
end;
Как правильно реализовать?

Добавлено через 1 минуту
Требуется очистка всех edit одной кнопкой.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.02.2016, 18:09
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Очистка всех edit-ов одной кнопкой (Delphi):

Очистка всех memo и Edit'ov - Delphi
Есть форма. На ней есть около 20 элементов с полями для вывода данных. Как сделать так, что бы по нажатию кнопки Обсалютно все элементы...

Компонент: Edit с кнопкой - Delphi
Есть ли в делфи edit с кнопкой(...). Ну или можно както кнопку к edit прикрепить

Очистка Edit - Delphi
Как сделать чтобы, при возвращении с Form2 на Form1, Editы очищались?

Очистка Edit-ов - Delphi
Здравствуйте! Я пытаюсь сделать очистку Edit-oв. Но при нажатии на кнопку вижу такое сообщение " is not a valid floating point value...

Очистка поля Edit. - Delphi
Вот этот код тока нужно прописать не в самом эдите на событие ОнКлик, а в настройки в MainMenu его чтоб пользователь сам мог выбор сделать...

Очистка данных в Edit - Delphi
Всем привет, в моей программе на 1 форме надо ввести логин и пароль, когда их вводишь тебя переносит на 2 форму где есть кнопка выход...

3
Arcor
4799 / 1800 / 159
Регистрация: 20.11.2009
Сообщений: 5,697
Записей в блоге: 1
26.02.2016, 18:14 #2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure CleanAllEdits(F: TForm);
var i: Integer;
begin
  for i := 0 to F.ComponentCount - 1 do       // пройтись по всей форме
    if F.Components[i] is TEdit then          // найти на ней все эдиты
      TEdit(F.Components[i] as TEdit).Clear;  // найденный эдит очистить
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  CleanAllEdits(Form1) // вызвать очистку эдитов, которые находятся на форме,
                       // в этом случае, все эдиты на главной форме
end;
0
Puporev
Модератор
52431 / 40278 / 13611
Регистрация: 18.05.2008
Сообщений: 93,123
26.02.2016, 18:15 #3
Delphi
1
2
3
4
5
6
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to ComponentCount-1 do
if (Components[i] is TEdit)then (Components[i] as TEdit).Clear;
end;
0
dimka11
0 / 0 / 0
Регистрация: 22.10.2014
Сообщений: 23
27.02.2016, 11:32  [ТС] #4
Спасибо!
А как вообще написать свою процедуру с использованием стандартных объектов? Например
Delphi
1
DateTimePicker1.Date :=  Table1.FieldByName('date').Value
в отдельной процедуре?
0
27.02.2016, 11:32
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.02.2016, 11:32
Привет! Вот еще темы с ответами:

то, что я вводил в edit соответствовало имени случайного файла(аудиозаписи) которого я вызываю кнопкой - Delphi
Нужно чтобы, то, что я вводил в edit соответствовало имени случайного файла которого я вызываю кнопкой.

Выполнение двух процедур одной кнопкой - Delphi
Есть код нажатия кнопки,выполняется функция. procedure TForm2.SpeedButton1Click(Sender: TObject); var StrPage2,mess:string; ...

Общее значение и вызов одной кнопкой несколько процедур - Delphi
Добрый день, есть программа для выводы двоичного числа. Программа решает и сверяет ответ с пользователям unit nchdch; interface ...

Ввод данных одной кнопкой в несколько эдитов (Квадратное уравнение) - Delphi
Здравствуйте, не подскажете как реализовать следующее. Есть калькулятор для решения квадратных уравнений, в нём 3 поля Edit для ввода...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru