Перегрузка ShowModal

← →
Piter © (2004-02-04 00:42) [0]

Есть специальная форма для ввода данных, пользователь в этой форме набивает некоторые данные, которые должны быть возвращены формой в виде некой записи (record).
Как реализовать возврат данных?

Я думаю создать свой класс от TForm, перекрыть метод ShowModal, чтобы он возвращал нужную мне запись.

Насколько такой подход рационален и есть ли другие варианты?

← →
Юрий Зотов © (2004-02-04 00:49) [1]

type
TMyData = record
...
end;

TForm2 = class(TForm
...
public
MyData: TMyData;
...
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
with TForm2.Create(nil) do
try
if ShowModal = mrOK then
with MyData do
begin
... // Получили Ваши данные
end
finally
Free
end
end;

И ничего не надо перекрывать.

← →
Piter © (2004-02-04 01:02) [2]

Юрий, спасибо! Блин, мне в голову стукнуло, что после возврата ShowModal формы уже не будет существовать... вот тормоз я

Больше того. Если эта "форма ввода данных" используется в программе регулярно, то вообще стоит ее поставить в Автосоздание, тогда она будет существовать до завершения программы и ее данные будут доступны в любой момент, а не только сразу после ShowModal.

Перегрузка ShowModal Найти похожие ветки