Показать сообщение отдельно
  #4  
Старый 08.12.2006, 16:55
Holy Holy вне форума
Новичок
 
Регистрация: 31.07.2006
Сообщения: 55
Репутация: 10
По умолчанию

Если речь идет о модальном отображении формы, то делай процедурку вроде этой:

Код:
unit Unit2;

interface

uses
  Classes, Forms;

type
  TForm2 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  function ShowForm2(AOwner: TComponent): Integer;

implementation

{$R *.dfm}

function ShowForm2(AOwner: TComponent): Integer;
var
  Form2: TForm2;
begin
  Form2 := TForm2.Create(AOwner);
  try
    Result := Form2.ShowModal;
  finally
    Form2.Free;
  end;
end;

end.

Не забудь убрать автосоздание этой формы в проекте.

На кнопку вешаешь
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
  if ShowForm2(Self) = mrOK then
    ShowMessage('Форму закрыли по кнопке ОК');
end;

Для заполнения формы используй события onCreate или onShow (замечу, что мне встречались визуальные компоненты, которые не хотели заполняться до полного создания формы)

Можешь читать данные из файла еще до создания формы.
Ответить с цитированием