[bananan]

сложилась еще одна проблемка(
У меня в проекте есть несколько форм. При закрытии формы и последующем отображении данные в поле Edit остаются. А надо, чтобы не оставались (Edit.caption='' не устраивает). Пробовал и Form.refresh и Form.Repaint не помогает.
Помогает вот что: Form.Close и Application.FormCreate(TForm,Form). Но в проекте форм несколько штук и обращаться к другим формам из других юнитов не удобно(не красиво вписывать в юзес все юниты).
Пробовал вот еще что:
For i:=0 to Application.Components.Count-1 do
begin
if (Application.Components[i] is TForm) then
if ((Application.Components[i] as TFrom).name <>'Form1') then
begin
(Application.Components[i] as TForm).close;
Application.CreateForm(TForm,(Application.Componen ts[i] as TForm)); // ругается
end;
end;

[Phedor]

Убери объявления форм (кроме главной) из dpr.

Где нужно вызывать:
if not Assigned(frmEditor) then
frmEditor := TfrmEditor.Create(Self);
if frmEditor.ShowModal=mrOk then
...
else ...

[ART]

Красиво, не красиво... Главное эффективно!

Лучше не придумаешь:

Код:

procedure TFormN.FormShow(Sender: TObject);
begin
 EditN.text  :=  '';
end;

end.

[bananan]

Сообщение от ART

Красиво, не красиво... Главное эффективно!

Лучше не придумаешь:

Код:

procedure TFormN.FormShow(Sender: TObject);
begin
 EditN.text  :=  '';
end;

end.

по многим причинам, которые я толком сейчас изложить не могу EditN.text:=''; нельзя использовать (((