Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 10.11.2010, 14:39
Аватар для Paskal
Paskal Paskal вне форума
Новичок
 
Регистрация: 28.09.2010
Сообщения: 93
Репутация: 12
Вопрос Смех и грех

Всем привет !
Делаю программу mdi ()
Начал плеваться! После того как не смог присвоить дочернему окну в свойство Caption название.
Код:
Form2.Caption:='Название окна';
И вот этот код не работает .(исключение не показывает но название окна не ставится)
Кто подскажет как дочернему окну присвоить имя?
Ответить с цитированием
  #2  
Старый 10.11.2010, 15:30
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

c:\Program Files\Borland\Delphi6\Demos\Doc\TextEdit\textedit.dpr
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #3  
Старый 10.11.2010, 17:00
Аватар для Paskal
Paskal Paskal вне форума
Новичок
 
Регистрация: 28.09.2010
Сообщения: 93
Репутация: 12
Печаль

Цитата:
Сообщение от NumLock
c:\Program Files\Borland\Delphi6\Demos\Doc\TextEdit\textedit.dpr
Все хорошо но мне нужно программно а не при конструировании.
Ответить с цитированием
  #4  
Старый 10.11.2010, 17:05
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

см.:

Код:
unit MDIEdit;

procedure TEditForm.Open(const AFileName: string);
begin
  PathName := AFileName;
  Caption := ExtractFileName(AFileName);
  with Editor do
  begin
    Lines.LoadFromFile(PathName);
    SelStart := 0;
    Modified := False;
  end;
end;

procedure TEditForm.Saveas1Click(Sender: TObject);
begin
  SaveFileDialog.FileName := PathName;
  if SaveFileDialog.Execute then
  begin
    PathName := SaveFileDialog.FileName;
    Caption := ExtractFileName(PathName);
    Save1Click(Sender);
  end;
end;
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #5  
Старый 10.11.2010, 17:50
Аватар для Paskal
Paskal Paskal вне форума
Новичок
 
Регистрация: 28.09.2010
Сообщения: 93
Репутация: 12
По умолчанию Вот нашел как

Код:
Form1.MDIChildren[0].Caption:='Название окна';

0 это индекс окна
Ответить с цитированием
  #6  
Старый 11.11.2010, 09:29
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

значит у тебя Form2 <> MDIChildren[0] в таких ошибках лучше разобраться, чтобы не допускать их в будущем. имхо, вообще лучше удалить строку (красным) в модуле дочерней формы:
Код:
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm2 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

end.
ведь для множества дочерних форм она не имеет смысла. естественно удалив форму из списка autocreate.
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
Ответ


Delphi Sources

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

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 19:16.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025