[Помидоркин]

Глубокоуважаемые эксперты, научие правильно жить.
Как правильно описать свойство формы? (не уверен в верной формулировке вопроса).
Суть проблеммы: имеем - главная форма - FormKE и дополнительная - frmKodPrint.
В frmKodPrint нужно передать Strings, открыть модально, ну а дальше я сам (буду рисовать этот Strings на канве).
Вопрос в том, как это сделать ПРАВИЛЬНО.
делаю так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

unit KodPrint;   ....   type   TfrmKodPrint = class(TForm)     procedure FormCreate(Sender: TObject);   private     { Private declarations }     function GetKod (): TStrings;     procedure SetKod(const Value: TStrings);   public     { Public declarations }     property KodToPrint: TStrings read GetKod write SetKod;   end;   var   frmKodPrint: TfrmKodPrint;  // Kod: TStringList;   implementation   {$R *.dfm}   function TfrmKodPrint.GetKod(): TStrings; begin  Result:= KodToPrint; end;   procedure TfrmKodPrint.SetKod(const Value: TStrings); begin // end;     procedure TfrmKodPrint.FormCreate(Sender: TObject); begin  ComboBox1.Items:= KodToPrint; end;

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

Код:

1 2 3 4 5 6 7 8 9

unit KodEditor   ...   procedure TFormKE.btnPrintClick(Sender: TObject); begin  frmKodPrint.KodToPrint:= ListBox1.Items;  frmKodPrint.ShowModal; end;

т.е. смысл в том чтобы не создавать НЕНУЖНЫХ промежуточных звеньев типа ComboBox или TStringList, в главной форме присвоить свойству дополнительной формы значение.

Код:

1	frmKodPrint.KodToPrint:= ListBox1.Items;

а в дополнительной использовать (если возможно) значение свойства:

Код:

1 2 3

public   { Public declarations }   property KodToPrint: TStrings read GetKod write SetKod;

непосредственно, или (если невозможно) через, например, TStringList.
Знаю, сейчас написано не правильно. Даже

Код:

1	read GetKod

не подсвечивается.
и делфи (7) на орфографию не ругается, но при компиляции просто виснет.

[Alegun]

По-ходу вы и так живёте правильно Какой-то очередной велосипед, и без этого ведь прекрасно работает всё: у вас уже есть переменная Kod, обзовите её KodToPrint и всё будет согласно заявленной логике минус лишние пару-тройку процедур и функций, про uses только не забывайте

[Freeman]

Сообщение от Помидоркин

В frmKodPrint нужно передать Strings, открыть модально, ну а дальше я сам (буду рисовать этот Strings на канве).

Для модальных диалогов Borland советует заводить функцию Execute, инкапсулирующую в себя установку нужных входных значений, переданных извне, вызов ShowModal и получение выходных значений в случае mrOK.

Например, предположим, что задача диалога -- редактировать переданный StringList:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

type   TStringListEditor = class(TForm)     ...   public     function Execute(List: TStringList): Boolean;   end;   function TStringListEditor.Execute(List: TStringList): Boolean; begin   LeftListBox.Strings := List; // установка начальных значений   if ShowModal = mrOK then   begin     List.Assign(LeftListBox.Strings); // получение результата     Result := True;   end   else     Result := False; end;

[Помидоркин]

Сообщение от Alegun

...у вас уже есть переменная Kod, обзовите её KodToPrint и всё будет согласно заявленной логике...

была такая мысль, но при создании формы она ведь не создастся сама?
KodToPrint:= TStringList.Create

[Alegun]

Вообще-то, создастся. Не забыть только её грохнуть в OnDestroy

Добавлено позже:

Вот пример