[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;