Отправлено Книга Архангельского 17 июня 2003 г. 13:29 В ответ на: в плане примерчик характерный, где он необходим отправлено DASM 17 июня 2003 г. 12:17

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

void __fastcall TForm1::MSaveAsClick(TObject *Sender)
{
TFChild* TF = dynamic_cast(ActiveMDIChild);
if (!TF) return;
SaveDialog1->FileName = TF->Caption;
if (SaveDialog1->Execute())
{
if (SaveDialog1->FilterIndex == 5)
{
TF->RichEdit1->PlainText=false;
}
else
{
TF->RichEdit1->PlainText=true;
}
TF->RichEdit1->Lines->SaveToFile(SaveDialog1->FileName);
TF->Caption = SaveDialog1->FileName;
TF->open = true;
TF->RichEdit1->Modified = false;
}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::MFindClick(TObject *Sender)
{
TFChild* TF = dynamic_cast(ActiveMDIChild);
if (!TF) return;
/* начальное значение текста поиска - текст, выделенный в
RichEdit1 */
FindDialog1->FindText = TF->RichEdit1->SelText;
FindDialog1->Execute();
}

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

void __fastcall TForm1::MReplaceClick(TObject *Sender)
{
TFChild* TF = dynamic_cast(ActiveMDIChild);
if (!TF) return;
/* начальное значение текста поиска - текст, выделенный в
RichEdit1 */
ReplaceDialog1->FindText = TF->RichEdit1->SelText;
ReplaceDialog1->Execute();
}

• Только это не тот dynamic_cast, о котором речь идет... — Oldring   (17.06.2003 13:39, пустое)
  • а это ? — Другая книга   (17.06.2003 13:51, пустое, ссылка)
    • Это - то, но здесь не объясниется, зачем... Нужно - можете использовать :) — Oldring   (17.06.2003 14:03, пустое)
      • Спасибо !!!! — Ура!   (17.06.2003 14:27, пустое)