![]() |
|
#1
|
||||
|
||||
![]() Всем привет !
Делаю программу mdi () Начал плеваться! После того как не смог присвоить дочернему окну в свойство Caption название. Код:
Form2.Caption:='Название окна'; Кто подскажет как дочернему окну присвоить имя? |
#2
|
||||
|
||||
![]() c:\Program Files\Borland\Delphi6\Demos\Doc\TextEdit\textedit.dpr
Пишу программы за еду. __________________ |
#3
|
||||
|
||||
![]() Цитата:
![]() |
#4
|
||||
|
||||
![]() см.:
Код:
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
|
||||
|
||||
![]() Код:
Form1.MDIChildren[0].Caption:='Название окна'; 0 это индекс окна |
#6
|
||||
|
||||
![]() значит у тебя 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. Пишу программы за еду. __________________ |