Цитата:
Сообщение от nixon232
в таком случае, пожалуй, что целесообразнее подгружать из ini по надобности?, чем хранить в форме?
|
Так может тогда эти переменные объявить в глобальном var модуля модальной формы и тогда код будет примерно таким:
Код:
unit uMyModalForm;
..
type
TMyModalForm = class(TForm)
...
end;
var
modalform_value_int: Integer;
modalfoem_value_str: string;
...
implementation
procedure TMyModalForm.ButtonYesClick(Sender: TObject);
begin
modalform_value_int := ....// например ComboboxN.ItemIndex;
modalform_value_str := ...// например EditM.Text;
...
end;
end;
А в другом модуле просто обращаетесь к переменным:
Код:
unit uMain;
...
procedure TFormMain.SomeButtonClick(Sender: TObject);
begin
with TMyModalForm.Create do
try
if ShowModal = mrYes then
begin
....
ShowMessage(uMyModalForm.modalform_value_str);
....
end;
finally
Free;
end;
end;