Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как задать кнопку Next 
:(
    Опции темы
stat007
Дата 17.9.2009, 14:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 521
Регистрация: 9.10.2008

Репутация: нет
Всего: -4
Подскажите плиз, как сделать следующее:
На форме есть 2 элемента: Edit1 и кнопка Button1 , нужно что бы при нажатии на кнопку отображалась следующее слово в Edit1.

Т.е. допустим, запустили программу, в Edit1 отображается слово "Один", далее при нажатии на кнопку, в Edit1 отображается слово "Два", Нажали ещё раз "Три", и так далее.........
PM MAIL   Вверх
vikaz
Дата 17.9.2009, 14:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 869
Регистрация: 15.2.2006

Репутация: 10
Всего: 12
Объявляем глобально!

Код

int i = 0;


Событие кнопки Button
Код

i++;
switch (i)
 {
  case 1: Edit1->Text = "Раз"; break;
  case 2: Edit1->Text = "Два"; break;
  ...
  ...
 }




Это сообщение отредактировал(а) vikaz - 17.9.2009, 16:51


--------------------
user posted image

Нет ничего настолько исправного, чтобы в нем не было ошибок. /Ф. Петрарка/ 
PM MAIL ICQ Skype   Вверх
stat007
Дата 17.9.2009, 15:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 521
Регистрация: 9.10.2008

Репутация: нет
Всего: -4
О.. отлично. СПАСИБО.....
PM MAIL   Вверх
Anikmar
Дата 17.9.2009, 18:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2513
Регистрация: 26.11.2006
Где: Санкт-Петербург

Репутация: 34
Всего: 59
Цитата(vikaz @  17.9.2009,  14:58 Найти цитируемый пост)
Объявляем глобально!

Лучше членом класса. И назвать подлиннее. i - слишком часто используется как переменная цикла, может перекрыть - и такую дурацкую ошибку можно целый час искать.
PM MAIL ICQ   Вверх
stat007
Дата 17.9.2009, 18:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 521
Регистрация: 9.10.2008

Репутация: нет
Всего: -4
Ещё возник один вопросик: Как сделать так, что бы при нажатии на другую кнопку в любой момент работы программы, она скидывала бы в Edit1 опять на самую первую позицию, т.е. на слово "один" ??
PM MAIL   Вверх
Веталька
Дата 17.9.2009, 18:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 338
Регистрация: 2.11.2008

Репутация: 2
Всего: 6
Код

i=1;


switch (i)
 {
  case 1: Edit1->Text = "Раз"; break;
  }


типо так


--------------------
Ради зачета студент идет на все, даже на лекции........................ 
PM MAIL ICQ   Вверх
stat007
Дата 17.9.2009, 19:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 521
Регистрация: 9.10.2008

Репутация: нет
Всего: -4
Веталька, Работает, но почемуто перескакивает с "раз" на "три"


раз 
три 
четыре
 и т.д.
PM MAIL   Вверх
Веталька
Дата 17.9.2009, 19:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 338
Регистрация: 2.11.2008

Репутация: 2
Всего: 6
сейчас сделаю

Добавлено @ 19:33
я от балды ето писалsmile

Добавлено @ 19:39
Вот, вытащи на форму едит и две кнопки, потом  очисть свой юнит(удали весь текст, непонятный тоже) и вставь етот код
Код

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int i = 0;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
i++;
switch (i)
 {
  case 1: Edit1->Text = "раз"; break;
  case 2: Edit1->Text = "два"; break;
  case 3: Edit1->Text = "три"; break;
  case 4: Edit1->Text = "три с половинкой"; break;
  case 5: Edit1->Text = "три с двумя третинками"; break;

 }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
i=1;


switch (i)
 {
  case 1: Edit1->Text = "Раз"; break;
  }
}
//---------------------------------------------------------------------------






Это сообщение отредактировал(а) Веталька - 17.9.2009, 19:40


--------------------
Ради зачета студент идет на все, даже на лекции........................ 
PM MAIL ICQ   Вверх
stat007
Дата 17.9.2009, 20:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 521
Регистрация: 9.10.2008

Репутация: нет
Всего: -4
Как удалить новую созданную форму??? Чёта не могу найти где..
PM MAIL   Вверх
Данкинг
Дата 17.9.2009, 20:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Цитата(stat007 @  17.9.2009,  21:07 Найти цитируемый пост)
Как удалить новую созданную форму??? Чёта не могу найти где.. 

В смысле - destroy?  smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Веталька
Дата 17.9.2009, 20:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 338
Регистрация: 2.11.2008

Репутация: 2
Всего: 6
дык, зачем удалять форму?

Добавлено через 11 секунд
просто юнит почитсть и все


--------------------
Ради зачета студент идет на все, даже на лекции........................ 
PM MAIL ICQ   Вверх
stat007
Дата 17.9.2009, 20:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 521
Регистрация: 9.10.2008

Репутация: нет
Всего: -4
А ну да, точно......)) спс.
PM MAIL   Вверх
Веталька
Дата 17.9.2009, 20:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 338
Регистрация: 2.11.2008

Репутация: 2
Всего: 6
ээээ...какое спасибо? пиво гони!


--------------------
Ради зачета студент идет на все, даже на лекции........................ 
PM MAIL ICQ   Вверх
Newbie1x
Дата 18.9.2009, 00:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 66
Регистрация: 17.8.2009

Репутация: нет
Всего: нет
Веталька, 
Цитата

//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
i=1;
switch (i)
 {
  case 1: Edit1->Text = "Раз"; break;
  }
}
//-

Объясните пжл. смысл вашего кода, я может чего-то не понимаю, но в данном случае наверное лучше записать так?
Код

void __fastcall TForm1::Button2Click(TObject *Sender)
{
i=1;
Edit1->Text = "Раз";
}


Т.к. мне непонятна совершенно эта конструкция, где присваивается i единица и далее идет свитч с 1 вариантом, который всегда будет выполняться.

Это сообщение отредактировал(а) Newbie1x - 18.9.2009, 00:22
PM MAIL   Вверх
Sonic7272
Дата 18.9.2009, 05:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 42
Регистрация: 18.9.2009

Репутация: 3
Всего: 3
Как вариант:
Код

void __fastcall TForm1::Button2Click(TObject *Sender)
{
    static inum=0;
    String sInt[]={"ноль", "один", "два", "три", "четыре"};
    Edit1->Text = sInt[inum];
    if(++inum > 4) inum=0;
}


Это сообщение отредактировал(а) Sonic7272 - 18.9.2009, 05:36
PM MAIL   Вверх
Anikmar
Дата 18.9.2009, 10:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2513
Регистрация: 26.11.2006
Где: Санкт-Петербург

Репутация: 34
Всего: 59
Цитата(Newbie1x @  18.9.2009,  00:19 Найти цитируемый пост)
Объясните пжл. смысл вашего кода, я может чего-то не понимаю, но в данном случае наверное лучше записать так?

А для полной унификации я бы предложил даже так:
Код

i=1;
Button1Click(NULL);
PM MAIL ICQ   Вверх
Веталька
Дата 18.9.2009, 15:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 338
Регистрация: 2.11.2008

Репутация: 2
Всего: 6
Цитата

Объясните пжл. смысл вашего кода, я может чего-то не понимаю, но в данном случае наверное лучше записать так?Код

void __fastcall TForm1::Button2Click(TObject *Sender)
{
i=1;
Edit1->Text = "Раз";
}


согласенен на 100%, мне лень было чтото набирать, просто копировал то что было на форуме


--------------------
Ради зачета студент идет на все, даже на лекции........................ 
PM MAIL ICQ   Вверх
stat007
Дата 18.9.2009, 19:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 521
Регистрация: 9.10.2008

Репутация: нет
Всего: -4
Ещё такой вопросик, немного не по этой теме, но всё- же напишу тут:

Кароче такая ситуация, думаю все знают, что файл .exe не запускается, если на компе не установлен сам билдер.
Я вкурсе что там гдето в какомто меню нужно поставить и/или убрать галочки, что бы этой ситуации не было...
Подскажите где это делается????
PM MAIL   Вверх
Newbie1x
Дата 18.9.2009, 20:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 66
Регистрация: 17.8.2009

Репутация: нет
Всего: нет
stat007, 
1) В Project|Options|Packages снять галку с Build with runtime packages,
2) Project|Options|Linker снять галку с Use dynamic RTL.

Вес ехе-шника разумеется увеличится.
PM MAIL   Вверх
stat007
Дата 18.9.2009, 20:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 521
Регистрация: 9.10.2008

Репутация: нет
Всего: -4
Newbie1x, 
Второй пункт нашол... А вот первый: Build with runtime packages - ненашол...

Добавлено через 13 минут и 36 секунд
По крайней мере в С++Builder 6.0 я не нашол этого второго пункта.....
PM MAIL   Вверх
stat007
Дата 18.9.2009, 20:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 521
Регистрация: 9.10.2008

Репутация: нет
Всего: -4
А нет, всё-таки нашол..... спасибо! Сейчас проверю.)

Добавлено через 7 минут и 6 секунд
Newbie1x,  Незнаю... Скинул другу екзешник, он говорит что не запускается...((
PM MAIL   Вверх
Newbie1x
Дата 18.9.2009, 21:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 66
Регистрация: 17.8.2009

Репутация: нет
Всего: нет
stat007, 
Точно 2 пункта сделал? Что из себя программа представляет? возможно какие-то дополнительные библиотеки подключены?

Добавлено через 13 секунд
Ну и самое главное, что другу за ошибка вылазит?
PM MAIL   Вверх
Sonic7272
Дата 19.9.2009, 07:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 42
Регистрация: 18.9.2009

Репутация: 3
Всего: 3
Ну а когда проект будет полностью готов и отлажен, все там же, жми кнопку "Release" на вкладке "Compiler"
PM MAIL   Вверх
Страницы: (2) [Все] 1 2 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "С++ Builder"
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по С++ Builder обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Настоятельно рекомендуем заглянуть в DRKB (Delphi Russian Knowledge Base) - крупнейший в рунете сборник материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | C++ Builder | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1069 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.