Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #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 (замечу, что мне встречались визуальные компоненты, которые не хотели заполняться до полного создания формы)

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


Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 10:55.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025