Код на С++ "Простая БД"

[Dima-91]

Пишу код по простой базе данных(пример задачи), помогите с кодом разобраться. Как добавить "about.h", есть ли его аналог?
cpp

TForm1 *Form1;
AnsiString aFileName;
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
	aFileName = "";
	SpeedButton1->OnClick = imOpenClick;
	SpeedButton2->OnClick = imSaveClick;
}

bool __fastcall TForm1::SaveText()
{
	if (aFileName == "")
	{
	 SaveDialog1->Options<<ofPathMustExist<<ofOverwritePrompt;
		if (SaveDialog1->Execute())
		{
		 aFileName = SaveDialog1->FileName;
		}
	 else
	  return false;
	}
  RichEdit1->Lines->SaveToFile(aFileName);
  return true;
}

void __fastcall TForm1::imOpenClick (TObject *Sender)
{
  int r;
  if (RichEdit1->Modified)
  {
   r = MessageDlg ("Текс был изменен.\n"
				   "Соханить изменения?",
		mtWarning,TMsgDlgButtons()<<mbYes<<mbNo<<mbCancel,0);
		if (r == mrCancel)
		{
			if ( (r == mrYes) && ( ! SaveText()))
			{
			 return;
			}
		}
   }
   OpenDialog1->FileName = "*.text";
   OpenDialog1->Options<<ofPathMustExist<<ofFileMustExist;

   if (OpenDialog1->Execute())
   {
		RichEdit1->Lines->LoadFromFile(OpenDialog1->FileName);
		RichEdit1->Modified = false;
		Form1->Caption = "MEdit - " + OpenDialog1->FileName;
		aFileName = OpenDialog1->FileName;
   }
}


void __fastcall TForm1::imSaveClick (TObject *Sender)
{
	if (SaveText() )
	{
	 RichEdit1->Modified = false;
	 Form1->Caption = "MEdit - " + aFileName;
	}
}


void __fastcall TForm1::imExitClick(TObject *Sender)
{
	Form1->Close();
}


void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
   int  r;
   if (RichEdit1->Modified)
   {
		r = MessageDlg("Текст был изменен.\n"
		"Сохранить изменения?", mtWarning,
		 TMsgDlgButtons()<<mbYes<<mbNo<<mbCancel,0);
		switch (r)
		{
		case mrYes:
			if (!SaveText())
			{
			 CanClose = false;
			 break;
			}
		case mrCancel: CanClose = false;
		}
   }
}


void __fastcall TForm1::imToolBarClick (TObject *Sender)
{
	ToolBar1->Visible = ! ToolBar1->Visible;
	imToolBar->Checked = ! imToolBar->Checked;//E2451 Undefined symbol 'imToolBar'
}


void __fastcall TForm1::imAboutClick(TObject *Sender)
{
	TAboutForm *AboutForm;//E2451 Undefined symbol 'TAboutForm'
	AboutForm = new TAboutForm (this);//E2303 Type name expected
	AboutForm->ShowModal();
	delete AboutForm;//E2158 Operand of 'delete' must be non-const pointer  
}


void __fastcall TAboutForm::Button1Click(TObject *Sender)
{
	ModalResult = mrOk;
}

h

#ifndef meditH
#define meditH


#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.Buttons.hpp>
#include <Vcl.ComCtrls.hpp>
#include <Vcl.Dialogs.hpp>
#include <Vcl.Menus.hpp>
#include <Vcl.ToolWin.hpp>


class TForm1 : public TForm
{
__published:	// IDE-managed Components
	TSaveDialog *SaveDialog1;
	TOpenDialog *OpenDialog1;
	TToolBar *ToolBar1;
	TMainMenu *MainMenu1;
	TRichEdit *RichEdit1;
	TSpeedButton *SpeedButton1;
	TSpeedButton *SpeedButton2;
	void __fastcall FormCloseQuery(TObject *Sender, bool &CanClose);

private:	// User declarations
public:		// User declarations
	bool __fastcall TForm1::SaveText();
	__fastcall TForm1(TComponent* Owner);
	void __fastcall TForm1::imOpenClick (TObject *Sender);
	void __fastcall TForm1::imSaveClick (TObject *Sender);
	void __fastcall TForm1::imExitClick (TObject *Sender);
	void __fastcall TForm1::imToolBarClick(TObject *Sender);
	void __fastcall TForm1::imAboutClick(TObject *Sender);
	void __fastcall TAboutForm::Button1Click(TObject *Sender);//E2090 Qualifier 'TAboutForm' is not a class or namespace name
};


extern PACKAGE TForm1 *Form1;

Создал вторую форму AboutForm
Как ее добавить в первый проект?

class TAboutForm : public TForm
{
__published:	// IDE-managed Components
	TButton *Button1;
	TLabel *Label1;
	TImage *Image1;
	TBevel *Bevel1;
	TLabel *Label2;
private:	// User declarations
public:		// User declarations
	__fastcall TAboutForm(TComponent* Owner);
};

[Krasiosoft]

Сообщение от Dima-91

Создал вторую форму AboutForm
Как ее добавить в первый проект?

Если Вы форму создавали в самом проекте, тогда будет достаточно подключить ее .h файл:

#include "AboutForm.h"

И использовать:

Form2->Show();

или

Form2->ShowModal();

[Dima-91]

Вроде помогло, только 1 ошибка осталась в cpp

void __fastcall TAboutForm::Button1Click(TObject *Sender)//E2316 '_fastcall TAboutForm::Button1Click(TObject *)'
{
	ModalResult = mrOk;
}

[Krasiosoft]

Добавьте в "AboutForm.h" функцию Button1Click:

class TAboutForm : public TForm
{
...
        void __fastcall Button1Click(TObject *Sender);
...
};

[Dima-91]

Ошибка при компиляции.
Error reading Button1.OnClick: Invalid property value.

Пробовал изменить функцию

void __fastcall TAboutForm::Button1Click(TObject *Sender)
{
	AboutForm->Close();  //было ModalResult = mrOk;
}

Забыл еще что за комментировал строку, что бы не было ошибок.

void __fastcall TForm1::imToolBarClick (TObject *Sender)
{
	ToolBar1->Visible = ! ToolBar1->Visible;
	//imToolBar->Checked = ! imToolBar->Checked;//E2451 Undefined symbol 'imToolBar'
}

[Krasiosoft]

Полностью удалите функцию Button1Click с .срр и .h и пересоберите проект. Дальше просто дважды нажмите на кнопку в редакторе форм (или же можно выделить кнопку и перейти во вкладку события кнопки, там 2 раза левой кнопкой мыши по полю, которая напротив OnClick), и функция должна корректно работать.

Сообщение от Dima-91

//imToolBar->Checked = ! imToolBar->Checked;//E2451 Undefined symbol 'imToolBar'

Что такое imToolBar, и где он объявлен?

[Dima-91]

Спасибо осталось узнать как в ToolBar1 сделать дополнительные надписи в менеджере проектов, если я не ошибаюсь.
файл/параметр/справка

[Krasiosoft]

ToolBar это не совсем то, а добавлять кнопки в него можно нажав правой кнопкой мыши по нему в редакторе форм и там "New Button" или "New Separator".

Вам наверно нужен TMainMenu.

[Dima-91]

Кнопки есть. Возможно лучше использовать ComboBox только как стрелочки убрать... Или ListBox со списком в низ.

[Krasiosoft]

А что Вы хотите сделать?

Если панель меню с выпадающими списками (Файл, Правка, Сервис, Справка и т.п.), то делайте это с помощью TMainMenu.