Цитата:
|
Сообщение от NumLock
Код:
TForm2.Create(Application,self);
constructor TForm3.Create(Aowner: Tcomponent;Tablic: TObject);
или TForm2 = class(TForm3); ? |
Извеняюсь в попыхах не ту функцию вставил
Код:
procedure TTabl_Vozv.DeleteStroka;
var SS:TForm3;
begin
SS:=TForm3.Create(Application,self);
SS.caption:=('Удалить строку');
SS.ShowModal;
if Flag then
Dec(K);
B.Free;
end;
Вообще смысл такой:
Создаеться объект. В одной из его процедур создаёться другое окно, в нём вводяться какие то данные, потом окно закрываеться и данные должны быть внесенны в объекте вызвавшем это окошко. При передаче сейчас как есть self'a данные не передаються в форму. Что делать???? Для проверки в моей программе нажать кнопку 2 для загрузки массива из фаила данными, а потом 1 кнопку.