Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.11.2008, 13:06   #1
Dr.Badnezz
Ученик
Форумчанин
 
Регистрация: 19.09.2008
Сообщений: 119
По умолчанию Текстовой редактор (MDI)

Procedure TForm1.FileOpen;
var
ChildCaption: string;
begin
With op do
begin
FilterIndex := 0;
if Execute then
begin
ChildCaption:=ExtractFileName(FileN ame);
CreateNewChild(ChildCaption);
Child.ActiveMDIChild;
end;
end;
end;
___
Как сделать, чтобы при открытии создавалось новое окно (MDIChild) и в компоненте TRichEdit был текст из op.filename (TOpenDialog)?
Dr.Badnezz вне форума Ответить с цитированием
Старый 30.11.2008, 18:51   #2
Deight
Бредовый
Форумчанин
 
Аватар для Deight
 
Регистрация: 15.11.2008
Сообщений: 285
По умолчанию

Посмотри это, будут вопросы пиши.
Вложения
Тип файла: zip Child.zip (204.8 Кб, 48 просмотров)
Чем точнее и проще задан вопрос, тем проще на него получить точный ответ.
Deight вне форума Ответить с цитированием
Старый 30.11.2008, 19:13   #3
Dr.Badnezz
Ученик
Форумчанин
 
Регистрация: 19.09.2008
Сообщений: 119
По умолчанию

Спасибо, пока вопросов нет))
Dr.Badnezz вне форума Ответить с цитированием
Старый 04.12.2008, 16:44   #4
Dr.Badnezz
Ученик
Форумчанин
 
Регистрация: 19.09.2008
Сообщений: 119
По умолчанию

Написал процедуру для сохранения файлов:
Цитата:
Procedure FileSave(SaveAs: boolean);
var
Forms: TChild;
begin
if SaveAs = true then begin
with sfile do begin
if activemdichild = nil then exit else begin
if execute then begin
TChild(ActiveMdiChild).editor.Lines .SaveToFile(filename);
TChild(ActiveMdiChild).editor.Modif ied := false;
TChild(ActiveMdiChild).Caption := ExtractFileName(filename);
docname := filename;
end;
end; //nil
end; //with
end;

if SaveAs = false then begin
if FileExists(docname) = true then
begin
child.editor.Lines.SaveToFile(docna me);
end else
begin
with sfile do begin
if activemdichild = nil then exit else begin
if execute then begin
forms := TChild(ActiveMdiChild);
Forms.editor.Lines.SaveToFile(filen ame);
forms.editor.Modified := false;
forms.Caption := ExtractFileName(filename);
docname := filename;
end;
end; //nil
end; //with
end;
end;
end;
SaveFile(false) - сохранение через Файл -> Сохранить
Тут у меня проблема. Дело в том, что в переменной docname храниться путь к файлу. docname определена в TChild. Но при сохранении сохраняется не текст активного, а текст первого.((( Возможно проблема в docname. Подскажите решение проблемы.
Dr.Badnezz вне форума Ответить с цитированием
Старый 04.12.2008, 17:43   #5
Dr.Badnezz
Ученик
Форумчанин
 
Регистрация: 19.09.2008
Сообщений: 119
По умолчанию

Решил проблему, добавив TRichEdit, в котором хранится путь.
Dr.Badnezz вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проверить кол-во символов в текстовой переменной Gawwws Microsoft Office Excel 4 23.10.2008 17:41
текстовой редактор asvik Общие вопросы Delphi 2 09.04.2008 16:03
Текстовой файл Stanislav Общие вопросы Delphi 3 26.12.2007 14:31
Многооконный текстовый редактор(MDI) Tany Помощь студентам 1 03.08.2007 13:56
Многооконный текстовый редактор (MDI) Tany Помощь студентам 1 05.07.2007 19:17