![]() |
|
|
#14
|
||||
|
||||
|
Цитата:
Код:
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; |
| Этот пользователь сказал Спасибо dr. F.I.N. за это полезное сообщение: | ||
nixon232 (15.03.2018)
| ||