Очистить Кнопка В Делфи

Кнопка Clear (Очистить) - распространенный элемент в графическом пользовательском интерфейсе. Очистить кнопка в Delphi может использоваться для удаления данных, записанных в различных элементах управления.

Для создания кнопки Clear в Delphi, можно использовать стандартный компонент TButton, а затем установить текст кнопки в "Clear" и определить обработчик событий при нажатии кнопки:

procedure TForm1.ButtonClearClick(Sender: TObject);begin  // код для очистки элементов управленияend;

В качестве примера, можно создать приложение с несколькими элементами управления и кнопкой Clear:

procedure TForm1.ButtonClearClick(Sender: TObject);begin  Edit1.Text := '';  Memo1.Lines.Clear;  CheckBox1.Checked := False;end;

В этом примере при нажатии кнопки Clear будет очищено поле ввода Edit1, текстовое поле Memo1 и сброшен флажок CheckBox1.

Также можно добавить функциональность для очистки всех элементов управления в форме, используя цикл для перебора всех компонентов формы:

procedure TForm1.ButtonClearAllClick(Sender: TObject);var  I: Integer;begin  for I := 0 to ComponentCount - 1 do  begin    if Components[I] is TCustomEdit then      TCustomEdit(Components[I]).Text := ''    else if Components[I] is TCustomMemo then      TCustomMemo(Components[I]).Lines.Clear    else if Components[I] is TCustomCheckBox then      TCustomCheckBox(Components[I]).Checked := False;  end;end;

В этом примере будет очищено все текстовые поля и сброшены флажки чекбоксов на форме.