Удалить текст в Edit при нажатии на кнопку

@VOVA-74 · Регистрация: 16.02.2013

Студворк — интернет-сервис помощи студентам

Здравствуйте форумчани! Решил создать для себя трудную задачу. Суть в следующем. На форме создал ЭДИТ1 и кнопку БАТТОН. Ввожу в ЭДИТ1 текст. Понятно его можно удалить с помощью кнопки БЭКСПЭЙС на клаве. Но я решил усложнить для себя задачу. Создал на форме кнопку БАТТОН1. С помощью этой кнопки хочу удалять текст, который введен в ЭДИТ1. Написал код. Компиляция успешно проходит, но цифры не удаляются. Попробовал через коды клавиш.
Представляю данный код. Почему-то не идет. Понятно мы задаем код клавиши и прописываем ей событие. При нажатии на которую событие выполняется. Представляю код. Если не трудно подскажите мою ошибку. Заранее благодарен.

C++
1
2
3
4
5
6
7
void __fastcall TForm2::Button1KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
if(Key==VK_BACK)
{ Form1->Edit1->Text = ""; }
 else {  Form1->Edit1->Text= ""; return;}
}

@nick42 · 25.06.2013, 09:23

У вас эдит на форме1, а нажатие вы анализируете для формы2, причем, это не "нажатие" клавиши в классическом понимании, - ведь Key - это код клавиши, которую нажали, когда фокус был на клавише. Вы как-то определитесь со своими параметрами.

@VOVA-74 · 25.06.2013, 10:09 **[ТС]**

Здравствуйте nick42. В запарке попутал. Да все реализуется на одной форме.

C++
1
2
3
4
5
6
7
8
void __fastcall TForm1::Button1KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
if(Key==VK_BACK)
{ Form1->Edit1->Text = "Delete"; }
 else {  Form1->Edit1->Text= "1"; return;}
 
}

Добавлено через 39 минут
Я попробовал через через ЭНТЕР (В СОБЫТИЯХ). Получается циферки удаляются в ЭДИТ. Но все таки хотелось попробовать задать БАТТОНУ функции кнопки БЭКСПАЙС. Буду пробовать.

Код:

C++
1
2
3
4
5
6
7
void __fastcall TForm1::Button1Enter(TObject *Sender)
{
float f;
if(f==1)
{ Form1->Edit1->Text = "0"; }
 else {  Form1->Edit1->Text= ""; return;}
}

@nick42 · 25.06.2013, 10:43

Вот это неправильно...

Сообщение от VOVA-74

float f;
if(f==1)

Первой строкой вы выделили в адресном пространстве место под переменную типа float (8 байт), но НИЧЕГО туда не записали; а во второй строке уже анализируете ее содержимое.

@VOVA-74 · 25.06.2013, 10:57 **[ТС]**

Да с Вами согласен nick42. Спасибо за замечания исправил. Все таки можно кнопки БАТТОН передать функции БАКСПЭЙС или ЭНТЕР. Есть ли решения?

@nick42 · 25.06.2013, 11:11

Да завсегда! Например: по нажатию на кнопку можно вызывать функцию, где вы обрабатываете нажатие этих клавиш: Enter, BackSpace, указав в параметрах для переменной &Key код соотв. клавиши. Или просто скопировать тот код в функцию-обработчик нажатия клавиши с небольшой корректировкой (без анализа клавиш).

@Vzlomu · 25.06.2013, 11:19

Да вы же просто удаляете текст в EDit1 пропишите для этого в обработчике события кнопки следующий код EDIT1->Clear();

@VOVA-74 · 25.06.2013, 12:46 **[ТС]**

Извините. Т.е все делать надо через On Key Down или через Button1Click

Добавлено через 1 минуту
Прописывал это я знаю. Все получается.

Добавлено через 11 минут
К примеру на форме разместил Мемо1 и кнопку БАТТОН. Необходимо чтобы с помощью кнопки БАТТОН курсор в Мемо1 перемещался вверх или вниз. С помощью кнопки ЭНТЕР он перемещается вниз. Представил код для ЭНТЕР. Посмотрите. Просто уже не знаю с какого бока залазить. Заранее благодарен.

C++
1
2
3
4
5
6
7
8
9
10
11
void __fastcall TForm1::Button1KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
float f,i;
if(Key==VK_RETURN)
  for(float i=1; i<=Memo1->Lines->Count;i++)
{ Memo1->Lines->Strings[i] = "Enter"; }
 
 else {for(float i=1; i<=Memo1->Lines->Count;i++)
 Memo1->Lines->Strings[i] = "0"; return;}
}

Добавлено через 1 час 10 минут
nick42 Вы меня ради бога извините я честно не понял Ваши слова. Может я еще не дорос до Вашего уровня. Можно по простому. Код который я представил он может являться основой. Я просто не пойму с чего начать? Если не трудно. Заранее благодарен.

@nick42 · 25.06.2013, 12:52

Да я, вроде, стараюсь "не умничать"... . Я правильно понял задачу: нужно, чтобы при нажатии на одну клавишу курсор на мэмо перемещался на одну строку вверх, а при нажатии на другую клавишу (Button2) - на одну строку вниз?

@VOVA-74 · 25.06.2013, 13:34 **[ТС]**

Да в Мемо1 этот курсор находится, т.е присвоить БАТТОНУ1 (расположенному на форме) значения кнопки ЭНТЕР, а другому БАТТОНУ2 (расположенному на форме) значения значения кнопки БАКСПЭЙС. Уже бьюсь не понятно сколько. Пошел по коду кнопок, думаю не верно. Код который я Вам прислал ранее думаю он может являться за основу. Знаю что ошибка расположена в этой строке: Memo1->Lines->Strings[i] = " " не могу подобрать код для реализации этих кнопок.Может есть другой способ перемещения курсора на Мемо1? Если не трудно подскажите. Не разу с такой задачей не встречался. Хотя трудно,но интересно.

Код который высылал Вам ранее

C++
1
2
3
4
5
6
7
8
9
10
11
void __fastcall TForm1::Button1KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
float f,i;
if(Key==VK_RETURN)
  for(float i=1; i<=Memo1->Lines->Count;i++)
{ Memo1->Lines->Strings[i] = " ЕNTER"; }- 
 
 else {for(float i=1; i<=Memo1->Lines->Count;i++)
 Memo1->Lines->Strings[i] = "0"; return;}
}

Добавлено через 17 минут
Т.Е ВВЕСТИ НАДО НЕСКОЛЬКО ЧИСЕЛ В МЕМО1 В РЯД (одно под другим). В строку у меня числа вводятся.

@nick42 · 25.06.2013, 14:39

Мне сдается, у вас еще не все ладно с азами BCB.
Давайте условимся клавишами называть то, что на клавиатуре, а то, что на мышке и на форме (формах) - пусть будут кнопки. Вот вы используете Button1KeyDown(), но эта функция вызывается, когда фокус находится на кнопке Button1 и в этот момент на клавиатуре нажимается клавиша. Для обработки события, когда кнопку "нажали" (мышкой или пробелом), служит другой Event: Button1Click(). Далее: если вы будете добавлять в мэмо числа таким образом:

C++
1
  Memo1->Lines->Add("строка-число");

, то после добавления очередного числа будет переход на след. строку мэмо. Если присваивать конкретной строке какой-то текст в формате:

C++
1
  Memo1->Lines->Strings[index]="Мой текст";

, то переход к следующей строке можно организовать добавлением "Мой текст" + "\r\n";

@VOVA-74 · 28.06.2013, 16:18 **[ТС]**

Приветствую nick42. Сделал получается. Еще можно производить перенос курсора с помощью метода Append и SelStart.

Добавлено через 7 часов 13 минут
Здравствуйте nick42. Все переносится, но когда я перехожу на следующую строку и ввожу символ то этот символ прописывается и в первой и во второй строке, выхожу на третью строку символ прописывается и в первой и во второй и в третьей строке. Понимаю, что при переходе на другую строку должен прервать связь с предыдущей строкой чтобы он не повторялся. Сделал код посмотрите если не сложно. Заранее благодарен.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
void __fastcall TForm2::Button2Click(TObject *Sender)
{
float f;
 if ( f == 0)
        {
         for(float z=0; z<Form1->Memo1->Lines->Count;z++)
        Form1->Memo1->Lines->Strings[z]="A";
 
         }
        else
 
         for(float z=0; z<Form1->Memo1->Lines->Count;z++)
         Form1->Memo1->Lines->Strings[z]= Form1->Memo1->Lines->Strings[z]+ "A";
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::Button3Click(TObject *Sender)
{
 Form1->Memo1->Lines->Add(" ");
 
}
//---------------------------------------------------------------------------

@nick42 · 28.06.2013, 18:14

Сообщение от VOVA-74

Здравствуйте nick42. Все переносится, но когда я ...

Спасибо. Здравствую. Во-первых, мне кажется, обращаться на форуме со своей проблемой персонально к кому-либо - это слегка не совсем "comme il faut", даже с помощью ЛС... - захочу - отвечу, но не обязательно. Во-вторых: (касается обработчика кнопки 2) если есть возможность использовать целочисленную переменную, то так и делают, а не подключают арифметику с плавающей точкой (float). В третьих: предваряя свою переменную признаком типа (float f, int f, char f и т.д.) вы по сути создаете новую переменную с неясным (случайным) содержимым; когда затем пишете for (float f=0;...) - про прежнюю f на время можете забыть... - вы определили для цикла новую переменную.

@VOVA-74 · 28.06.2013, 18:59 **[ТС]**

Да я все понял исправлюсь. через f сделал :

C++
1
2
3
4
5
6
7
8
9
10
11
12
float f;
 
 if (f=0)
        {
          for(float f=0; f<Form1->Memo1->Lines->Count;f++)
          Form1->Memo1->Lines->Strings[f]="2";
 
         }
        else
 
         for(float f=0; f<Form1->Memo1->Lines->Count;f++)
         Form1->Memo1->Lines->Strings[f]= Form1->Memo1->Lines->Strings[f]+ "2" ;

@nick42 · 28.06.2013, 19:05

Сообщение от VOVA-74

Да я все понял

да не заметно... .

if (f=0)

- это вот присвоение, а не сопоставление; и по идее - компилятор должен был об этом скромно намекнуть. А количество строк в мэмо не может быть дробным числом; у вас по прежнему float...

Сообщение от VOVA-74

Memo1->Lines->Count

@VOVA-74 · 28.06.2013, 22:31 **[ТС]**

Понятно что необходимо выставить условия (if..)
пробовал и так программа показывает тоже самое, что я писал.

C++
1
2
3
4
5
6
7
8
9
10
11
void __fastcall TForm2::Button2Click(TObject *Sender)
{
float f;
 
 if (f=0)
        {
         }
        else
 
         for(int f=0; f<Form1->Memo1->Lines->Count;f++)
         Form1->Memo1->Lines->Strings[f]= Form1->Memo1->Lines->Strings[f]+ "2" ;

Добавлено через 3 часа 18 минут
Уважаемые форумчани подскажите где ошибка в коде. Просьба заключается в следующем:В МЕМО1 ввожу данные (буквы или цифры). С помощью кнопки БАТТОН1 задаю данные в МЕМО1.Первая строка идет нормально, но когда перехожу с помощью кнопки БАТТОН2 на вторую строку и начинаю вводить данные то этот символ прописывается и в первой и во второй строке, выхожу на третью строку символ прописывается и в первой и во второй и в третьей строке. Понимаю, что при переходе на другую строку должен прервать связь с предыдущей строкой чтобы он не повторялся. Сделал код посмотрите если не сложно. Заранее благодарен.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
void __fastcall TForm2::Button1Click(TObject *Sender)
{
float d,r;
d=5;
r=2;
if ( d >r||d <r)
 
{
for(float r=0; r<Form1->Memo1->Lines->Count;r++)
Form1->Memo1->Lines->Strings[r]="A";return;
 
}
else
 
{for(float r=0; r<Form1->Memo1->Lines->Count;r++)
Form1->Memo1->Lines->Strings[r]= Form1->Memo1->Lines->Strings[r]+ "A";return;
 
 
 
}
 
void __fastcall TForm2::Button2Click(TObject *Sender)
{
Form1->Memo1->Lines->Add(" ");}

@SatanaXIII · 03.07.2013, 15:23

С помощью очень крепкого матерного слова оно конечно заведется~~, но легче пристрелить.~~

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
void __fastcall TForm2::Button1Click(TObject *Sender)
{
float d,r;
d=5;
r=2;
if ( d >r||d <r)
 
{
for(float r=0; r<Form1->Memo1->Lines->Count;r++)
Form1->Memo1->Lines->Strings[r]="A";return;
 
}
else
 
{for(float r=1; r<Form1->Memo1->Lines->Count;r++)
Form1->Memo1->Lines->Strings[Form1->Memo1->Lines->Count]= Form1->Memo1->Lines->Strings[Form1->Memo1->Lines->Count-1]+ "A";return;
 
 
 
}
 
void __fastcall TForm2::Button2Click(TObject *Sender)
{
Form1->Memo1->Lines->Add(" ");
}

Что вы хотите сделать? Сформулируйте, пожалуйста, по четче.
Вы хотите по нажатию на одну кнопку менять в текущей строке текст, а при нажатии на вторую - переходить на следующую строку в Memo? Или как?

P.S. Ну и не могу все же пройти мимо:
После задания цикла for следует его тело, которое состоит только из одного оператора. Если нужно выполнить более одного оператора, то используют фигурные скобки, для задания границ тела цикла. В вашем случае (может конечно так задумано, но я что-то сомневаюсь):

C++
1
2
for(float r=0; r<Form1->Memo1->Lines->Count;r++)
Form1->Memo1->Lines->Strings[r]="A";return;

Цикл выполнится от нуля до количества строк в мемо раз. А тело цикла это присваивание r-той строке символа "А". return к циклу вообще никакого отношения не имеет.

Новые блоги и статьи Все статьи Все блоги /
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Киев стоит - украинская песня zorxor 28.01.2026 wfWdiRqdTxc О Господи, Вечный, Ты . . . Я помоги, Бесконечный. . . Я прошу Ты. . . Я погибаю, спаси. . . Я прошу Тебя Вечный. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	25.06.2013, 09:23
	У вас эдит на форме1, а нажатие вы анализируете для формы2, причем, это не "нажатие" клавиши в классическом понимании, - ведь Key - это код клавиши, которую нажали, когда фокус был на клавише. Вы как-то определитесь со своими параметрами. 0

@VOVA-74 7 / 7 / 4 Регистрация: 16.02.2013 Сообщений: 172
	25.06.2013, 10:57 [ТС]
	Да с Вами согласен nick42. Спасибо за замечания исправил. Все таки можно кнопки БАТТОН передать функции БАКСПЭЙС или ЭНТЕР. Есть ли решения? 0

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	25.06.2013, 11:11
	Да завсегда! Например: по нажатию на кнопку можно вызывать функцию, где вы обрабатываете нажатие этих клавиш: Enter, BackSpace, указав в параметрах для переменной &Key код соотв. клавиши. Или просто скопировать тот код в функцию-обработчик нажатия клавиши с небольшой корректировкой (без анализа клавиш). 0

@Vzlomu 0 / 0 / 1 Регистрация: 23.06.2013 Сообщений: 25
	25.06.2013, 11:19
	Да вы же просто удаляете текст в EDit1 пропишите для этого в обработчике события кнопки следующий код EDIT1->Clear(); 0

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	25.06.2013, 12:52
	Да я, вроде, стараюсь "не умничать"... . Я правильно понял задачу: нужно, чтобы при нажатии на одну клавишу курсор на мэмо перемещался на одну строку вверх, а при нажатии на другую клавишу (Button2) - на одну строку вниз? 0