RichEdit

@Garic_ · Регистрация: 03.11.2009

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

\\Надо получить в одной строке два значения (№счёт и через пробел значение переменой х)
При нажатии Button2

C++
1
2
3
int i++;
int x = 100;
RichEdit1->Lines->Add(i.x);//Add(i.x) не знаю как правильно.

@gorin · 18.11.2009, 21:53

Пацаны як можна настроъты PopupMenu и кнопку SpeedButton, так чтоби при нажатии кнопки Правой кнопкой мыши выскакивало PopupMenu?

@gorin · 19.11.2009, 19:02

Сообщение от gorin

Пацаны як можна настроъты PopupMenu и кнопку SpeedButton, так чтоби при нажатии кнопки Правой кнопкой мыши выскакивало PopupMenu?

Прива всем, кто знает как так можно настроить?

Добавлено через 1 час 18 минут
Пацаны уже я доделал остался последний штрих!!!!!!!!!

Добавлено через 2 минуты
Подскажите как можно зделать так чтобы моя прога подписовалась за принцепом как у блокнота "Беземенный - Текстовый редактор"!!!!

@gorin · 20.11.2009, 16:41

Прива всем, Пацаны подскажите последнюю деталь, и я выложу это прогу на форум этот!!!!!!!!!!!!!!!!

sh4d°_°ff · 20.11.2009, 17:19

что за деталь?

@gorin · 20.11.2009, 17:22

sh4d°_°ff, Мне нужна чтобы форма подписовалась кака типа у Блокнота "Беземенный-Блокнот"!!!!

sh4d°_°ff · 20.11.2009, 18:37

On Form Create
Form1->Caption="Беземенный-Блокнот";
когда создаешь новый документ тоже самое, а вообще у тебя уже был весь этот код

@gorin · 20.11.2009, 18:41

sh4d°_°ff, Ты открой C:\Program Files\Borland\CBuilder6\Examples\Apps\Ri chEdit там на подобе блокнота зделано и там такой код

C++
1
2
3
4
5
__fastcall TMainForm::TMainForm(TComponent *Owner)
  : TForm(Owner)
{
  SetFileName(Reconst_SUntitled);
}

sh4d°_°ff · 20.11.2009, 18:46

думаю это имя файла задается по умолчанию для сохранения, я не знаю как у тебя сделано, наверное по другому, ты спрашивал как задать заголовок формы - я ответил

@gorin · 20.11.2009, 19:33

sh4d°_°ff, Давай я тебе свой проєкт полностю кину!!!!!!

Добавлено через 4 минуты
sh4d°_°ff, http://p23a.at.ua/OOP/00121.rar

Добавлено через 29 минут
sh4d°_°ff, Ну как?

sh4d°_°ff · 20.11.2009, 19:38

что как?
что тебе непонятно?
я ведь уже ответил на поставленный вопрос. Зачем проект кидал?

@gorin · 20.11.2009, 19:40

sh4d°_°ff, А куда этот код вставлять?

Добавлено через 12 секунд
В форму?

sh4d°_°ff · 20.11.2009, 19:52

я же написал, чтобы при запуске был "новый документ", вставляешь в обработчик события FormCreate формы, а также в тот момент когда у тебя пользователь создает новый документ.

@Maestro · 20.11.2009, 20:59

Сообщение от gorin

SetFileName(Reconst_SUntitled);

Значение SUntitled берётся из reconst.pas

Сообщение от sh4d°_°ff

думаю это имя файла задается по умолчанию для сохранения, я не знаю как у тебя сделано, наверное по другому, ты спрашивал как задать заголовок формы - я ответил

Это в файле reconst.pas

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
unit ReConst;
 
interface
 
uses Windows;
 
const
  ENGLISH = (SUBLANG_ENGLISH_US shl 10) or LANG_ENGLISH;
  GERMAN  = (SUBLANG_GERMAN shl 10) or LANG_GERMAN;
  FRENCH  = (SUBLANG_FRENCH shl 10) or LANG_FRENCH;
 
resourcestring
  [COLOR="Green"][B]SUntitled = 'Untitled';[/B][/COLOR]
  SPercent_s = '%s - %s';
  SSaveChanges = 'Save Changes?';
  SConfirmation = 'Confirmation';
  SNumberbetween = 'The number must be between 1 and 1638.';
  SLcid = '1033'; { US = 1033; DE = 1031; FR = 1036 }
 
implementation
 
end.

Добавлено через 7 минут
gorin, В Form1 есть событие onCreate, туда вставляешь

C++
1
2
3
4
void __fastcall TForm1::FormCreate(TObject *Sender)
{
   Form1->Caption="Безымянный-Блокнот"; // сюда
}

И в функцию нового документа

C++
1
2
3
4
5
6
7
void __fastcall TForm1::FileNewClick(TObject *Sender)
{
  Proverka();   //Створення нового документа
  RichEdit1->Lines->Clear();
  RichEdit1->Modified = False;
  Form1->Caption="Безымянный-Блокнот"; // сюда
}

@gorin · 21.11.2009, 11:53

Пацаны у меня чегото не работает кнопка "Сохранить"
ВОт крод кнопки сохранит:

C++
1
2
3
4
5
6
7
8
9
10
void __fastcall TForm1::FileSaveClick(TObject *Sender)
{
  if(Caption == DefaultFileName){
    FileSaveClick(Sender);
  }
  else{
    RichEdit1->Lines->SaveToFile(Text);
    RichEdit1->Modified = false;
  }
}

А вот кнопки "Сохранить как...":

C++
1
2
3
4
5
6
7
8
9
void __fastcall TForm1::FileSaveAsClick(TObject *Sender)
{
  SaveFileDialog->FileName = Text;
  if (SaveFileDialog->Execute() ){
    Text= SaveFileDialog->FileName;
    Caption = ExtractFileName(Text);
    FileSaveClick(Sender);
  }
}

Диалогический объект "Сохранить" - SaveFileDialog
У меня кнопка "Сохранить как..." только работает!!!!!
Подскажите почему кнопка "Сохранить не работает"

Добавлено через 8 минут
Еще это я вставил код:

C++
1
2
3
4
5
6
const AnsiString DefaultFileName = AnsiString("Untitled");
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 
}

Добавлено через 28 минут
Пацаны вы мне тупо подскажите код чистый кнопки "Сохранить" и "Сохранить как..."!!!!!!!
Чистый код этих 2 кнопок!!!!!

sh4d°_°ff · 22.11.2009, 11:53

RichEdit

@gorin · 22.11.2009, 17:05

sh4d°_°ff, Прива у меня не видет CanClose

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
26
27
28
29
30
31
32
void __fastcall TForm1::FileSaveClick(TObject *Sender)
{
int r;
  if ( RichEdit1->Modified)
  {
         r=MessageDlg("Текст изменен. Сохранить изменения?",
                                         mtWarning,
                                         TMsgDlgButtons() << mbYes << mbNo << mbCancel, 0);
 
         switch (r) {
 
                case mrYes:    // записать текст в файл
                                if ( OpenDialog1->FileName != "")
                                        // имя файла задано (редактируется загруженный файл)
                                        RichEdit1->Lines->SaveToFile(OpenDialog1->FileName);
                                else
                                {
                                  // имя файла не задано, отобразить SaveDialog
                                  if ( SaveDialog1->Execute() )
                                                // пользователь задал имя файла
                                                RichEdit1->Lines->SaveToFile(SaveDialog1->FileName);
                                  else
                                           // не задано имя файла,
                                           // продолжить работу с программой
                                           CanClose = false;
                                }
                                break;
           case mrCancel: // продолжить работу с программой
                                 CanClose = false;
                                 break;
         }
   }

@gorin · 23.11.2009, 18:19

Пацаны спасибо всем что помогли зделать проэкт!!!!!!!!!
Вот прямая ссылка на этот проект http://p23a.at.ua/OOP/TextRichEdit.rar !!!!!!!!!!!!

Привет, пацаны этот вопрос не потеме, Я создал секундомер он у меня работает но немножко не верно, помогите исправить ошибку!!!!

@gorin · 25.11.2009, 18:55

У меня секундомер 2 в одном
1 Секундомер обчный (он у меня работпает нормально) "Timer1"
А 2 Секундомер, и там нужно в Edit1 - минуты, а Edit2 - секунди нужно указывать, и должно отшитовать назад до самого нкля. Вот и з 2 и проблема не так как нужно работает "Timer2"

//======================================== ========== =====================
Timer2(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 TForm1::Timer2Timer(TObject *Sender)
{
Label10->Visible=!Label10->Visible;
if (!Label10->Visible)
        return;
     //------------
if(s>0)
s--;
else
{
s=60;
m--;
return;
Label9->Caption=IntToStr(m);
}
if(s<10)
Label11->Caption="0"+IntToStr(s);
else
Label11->Caption=IntToStr(s);
if ((s == 0) || (m == 0)){
        ShowMessage("Час закінчився!");
        exit(1); }
 
}

Кнопка "Старт" код:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
void __fastcall TForm1::Button3Click(TObject *Sender)
{
m=StrToInt(Edit1->Text);
s=StrToInt(Edit2->Text);
if((m>59)||(s>59)){
        ShowMessage("Невірно заданий час!");
        return;
        }
if(!Timer2->Enabled){
        Timer2->Enabled=true;
        Label10->Visible=true;
}
else
{
        Timer2->Enabled=true;
}
}

//======================================== ========== ==============
Timer1(1 Секундомер) код:

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
26
27
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if(ms<59)
ms++;
else
{
ms=0;
if(ss<59)
ss++;
else
{
ss=0;
mm++;
Label1->Caption=IntToStr(mm);
}
if(ss<=9)
Label2->Caption="0"+IntToStr(ss);
else
Label2->Caption=IntToStr(ss);
Label4->Visible=!Label4->Visible;
}
if(ms<=9)
Label3->Caption="0"+IntToStr(ms);
else
Label3->Caption=IntToStr(ms);
Label5->Visible=!Label5->Visible;
}

Кнопка "Старт" код:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if(!Timer1->Enabled)
{
Timer1->Enabled=true;
Button1->Caption="Стоп";
Button2->Enabled=false;
}
else
{
Timer1->Enabled=false;
Button1->Caption="Старт";
Button2->Enabled=true;
}
}

Кнопка "Скинуты" код:

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
26
void __fastcall TForm1::Button2Click(TObject *Sender)
{
mm=00;
ss=00;
ms=00;
Label1->Caption="00";
Label2->Caption="00";
Label3->Caption="00";
}
void __fastcall TForm1::Button3Click(TObject *Sender)
{
m=StrToInt(Edit1->Text);
s=StrToInt(Edit2->Text);
if((m>59)||(s>59)){
        ShowMessage("Невірно заданий час!");
        return;
        }
if(!Timer2->Enabled){
        Timer2->Enabled=true;
        Label10->Visible=true;
}
else
{
        Timer2->Enabled=true;
}
}

// Крнец пкрвого секундомера

Скриншот:

@gorin · 01.12.2009, 22:14

Привет все, пацаны помогите Разработать диаграму классов модели программы, Разработать алгоритм работы програмы ту что мы свами разрабатывали TextRichEdit!!!! Помогите плиз

@gorin · 03.12.2009, 16:30

Пацаны ну так што поможете?

Новые блоги и статьи Все статьи Все блоги /
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .
Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .

@gorin 209 / 16 / 4 Регистрация: 18.08.2009 Сообщений: 571
	18.11.2009, 21:53
	Пацаны як можна настроъты PopupMenu и кнопку SpeedButton, так чтоби при нажатии кнопки Правой кнопкой мыши выскакивало PopupMenu? 0

@gorin 209 / 16 / 4 Регистрация: 18.08.2009 Сообщений: 571
	20.11.2009, 16:41
	Прива всем, Пацаны подскажите последнюю деталь, и я выложу это прогу на форум этот!!!!!!!!!!!!!!!! 0

sh4d°_°ff говнокодер 1273 / 297 / 35 Регистрация: 31.10.2009 Сообщений: 1,432
	20.11.2009, 17:19
	что за деталь? 0

@gorin 209 / 16 / 4 Регистрация: 18.08.2009 Сообщений: 571
	20.11.2009, 17:22
	sh4d°_°ff, Мне нужна чтобы форма подписовалась кака типа у Блокнота "Беземенный-Блокнот"!!!! 0

sh4d°_°ff говнокодер 1273 / 297 / 35 Регистрация: 31.10.2009 Сообщений: 1,432
	20.11.2009, 18:37
	On Form Create Form1->Caption="Беземенный-Блокнот"; когда создаешь новый документ тоже самое, а вообще у тебя уже был весь этот код 0

sh4d°_°ff говнокодер 1273 / 297 / 35 Регистрация: 31.10.2009 Сообщений: 1,432
	20.11.2009, 18:46
	думаю это имя файла задается по умолчанию для сохранения, я не знаю как у тебя сделано, наверное по другому, ты спрашивал как задать заголовок формы - я ответил 0

@gorin 209 / 16 / 4 Регистрация: 18.08.2009 Сообщений: 571
	20.11.2009, 19:33
	sh4d°_°ff, Давай я тебе свой проєкт полностю кину!!!!!! Добавлено через 4 минуты sh4d°_°ff, http://p23a.at.ua/OOP/00121.rar Добавлено через 29 минут sh4d°_°ff, Ну как? 0

sh4d°_°ff говнокодер 1273 / 297 / 35 Регистрация: 31.10.2009 Сообщений: 1,432
	20.11.2009, 19:38
	что как? что тебе непонятно? я ведь уже ответил на поставленный вопрос. Зачем проект кидал? 0

@gorin 209 / 16 / 4 Регистрация: 18.08.2009 Сообщений: 571
	20.11.2009, 19:40
	sh4d°_°ff, А куда этот код вставлять? Добавлено через 12 секунд В форму? 0

sh4d°_°ff говнокодер 1273 / 297 / 35 Регистрация: 31.10.2009 Сообщений: 1,432
	20.11.2009, 19:52
	я же написал, чтобы при запуске был "новый документ", вставляешь в обработчик события FormCreate формы, а также в тот момент когда у тебя пользователь создает новый документ. 0

sh4d°_°ff говнокодер 1273 / 297 / 35 Регистрация: 31.10.2009 Сообщений: 1,432
	22.11.2009, 11:53
	RichEdit 0

@gorin 209 / 16 / 4 Регистрация: 18.08.2009 Сообщений: 571
	23.11.2009, 18:19
	Пацаны спасибо всем что помогли зделать проэкт!!!!!!!!! Вот прямая ссылка на этот проект http://p23a.at.ua/OOP/TextRichEdit.rar !!!!!!!!!!!! Привет, пацаны этот вопрос не потеме, Я создал секундомер он у меня работает но немножко не верно, помогите исправить ошибку!!!! 0

@gorin 209 / 16 / 4 Регистрация: 18.08.2009 Сообщений: 571
	01.12.2009, 22:14
	Привет все, пацаны помогите Разработать диаграму классов модели программы, Разработать алгоритм работы програмы ту что мы свами разрабатывали TextRichEdit!!!! Помогите плиз 0

@gorin 209 / 16 / 4 Регистрация: 18.08.2009 Сообщений: 571
	03.12.2009, 16:30
	Пацаны ну так што поможете? 0