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

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

Код:

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;

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

Код:

unit KodEditor

...

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

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

Код:

frmKodPrint.KodToPrint:= ListBox1.Items;

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

Код:

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

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

Код:

 read GetKod 

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

[Alegun]

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

[Freeman]

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

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

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

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

Код:

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

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

Вот пример