Вызвать дочернюю форму в Delphi?

Question

[animr]

Добрый день!
Люди подскажите пожалуйста, как ВЫЗВАТЬ дочернюю форму в Delphi. Форма создана, ее нужно просто вызвать.
Следующий метод мне совсем не подходит:

procedure TfrMain.CreateChildForm
(const childName : string);
var Child: TfrChild;
begin
Child := TfrChild.Create(Application);
Child.Caption := childName;

потому что этот метод при каждом щелчке новую форму создает а потом ее вызывает, а мне нужно вызвать Мою готовую форму.

Comments

[ldv]

Если форма уже создана, то Show или ShowModal

[animr]

ldv: Ни Show, Ни ShowModal не помогают.

[ldv]

animr: что значит не помогают? покажите код

[animr]

ldv: Вот

procedure TfMainForm.N2Click(Sender: TObject);
begin
fTMC.ShowModal;
end;

[ldv]

animr: и что происходит во время выполнения? Ошибка, ничего - подробнее. Содержимое dfm файла или скрин свойств формы покажите

[animr]

ldv: Выходит следующая ошибка:

[ldv]

animr: ну значит форма не создана

[ldv]

animr: скорее всего. Где инициализируется fTMC ?

[animr]

А если его в Auto-Creats Forms кидать то он при загрузки главной формы сразу создается....

[ldv]

animr: проверьте, создается ли форма. В исходнике проекта.

[animr]

animr: Если в Auto-Creats Forms кидать то в Окне проекта... а если нет то видимо нигде... )))

[ldv]

animr: покажите содержимое имяпроекта.pas

[ldv]

animr: Project -> View Source

[animr]

[ldv]

animr: Available forms не создаются, видно же

[animr]

ldv: так я знаю... мне не нужно чтоб она автоматически создавалась...

[animr]

не создавалась...

[ldv]

animr: тогда я не понимаю чего вы хотите. Как "вызвать Мою готовую форму." - если она не готова? )

[animr]

вообщем, мне нужно чтоб Форма TfMC не показывалась автоматически при создании главной формы

[ldv]

animr: так поставьте ей Visible : false в свойтвах

[animr]

есть дочерная форма TfTMC. Находиться в Available forms. Нужно мне чтоб Форма TfTMC Появилась при нажатии на кнопку. У меня появляется ошибка

[ldv]

animr:
"вообщем, мне нужно чтоб Форма TfMC не показывалась автоматически при создании главной формы"
"так поставьте ей Visible : false в свойтвах"

[animr]

ldv: Visible : false Окне видимо пофиг, стоит там Visible : false или нет )))

[ldv]

animr: я к тому, что форма должна быть в autocreated или создавайте ее описанным в вопросе методом

[animr]

ldv: так я его закинул в автокреатед, ему все равно пофиг )))

[ldv]

animr: текущие есходники прокта и вызова формы покажите

[animr]

ldv: при использовании Visible : false появляется след ошибка :

[ldv]

animr: если вы хотите сделать именно MDI child, то используйте метод в вопросе. Или поменяйте стиль формы

[animr]

program Ceramic;

uses
Forms,
Main in 'Main.pas' {fMainForm},
CHILDWIN in 'CHILDWIN.PAS' {MDIChild},
about in 'about.pas' {AboutBox},
dmConteiner in 'dmConteiner.pas' {DataModule1: TDataModule},
uProducts in 'uProducts.pas' {fTMC};

{$R *.RES}

begin
Application.Initialize;
Application.CreateForm(TfMainForm, fMainForm);
Application.CreateForm(TAboutBox, AboutBox);
Application.CreateForm(TDataModule1, DataModule1);
Application.CreateForm(TfTMC, fTMC);
Application.Run;
end.

//----------------------------------------------------------------------------------

unit MAIN;

interface

uses Winapi.Windows, System.SysUtils, System.Classes, Vcl.Graphics, Vcl.Forms,
Vcl.Controls, Vcl.Menus, Vcl.StdCtrls, Vcl.Dialogs, Vcl.Buttons, Winapi.Messages,
Vcl.ExtCtrls, Vcl.ComCtrls, Vcl.StdActns, Vcl.ActnList, Vcl.ToolWin,
Vcl.ImgList;

type
TfMainForm = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
Excell1: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
Web1: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
N12: TMenuItem;
N16: TMenuItem;
N17: TMenuItem;
N18: TMenuItem;
N19: TMenuItem;
N20: TMenuItem;
N21: TMenuItem;
onlinefps1: TMenuItem;
procedure N8Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure Excell1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
private
{ Private declarations }
procedure CreateMDIChild(const Name: string);
public
{ Public declarations }
end;

var
fMainForm: TfMainForm;

implementation

{$R *.dfm}

uses CHILDWIN, About, uProducts;

procedure First; stdcall; external 'libtesti.dll';
procedure Double; stdcall; external 'libtesti.dll';

procedure TfMainForm.CreateMDIChild(const Name: string);
begin

end;

procedure TfMainForm.Excell1Click(Sender: TObject);
begin
First;
end;

procedure TfMainForm.N2Click(Sender: TObject);
begin
fTMC.ShowModal;
end;

procedure TfMainForm.N4Click(Sender: TObject);
begin
ShowMessage('О программе!');
end;

procedure TfMainForm.N8Click(Sender: TObject);
begin
Close;
end;

end.

//---------------------------------------------------------------------------

unit uProducts;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.DBGrids, Vcl.ExtCtrls,
Vcl.ComCtrls, Vcl.Buttons;
type
TfTMC = class(TForm)
TreeView1: TTreeView;
DBGrid1: TDBGrid;
Panel1: TPanel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
procedure FormActivate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fTMC: TfTMC;
implementation
{$R *.dfm}
procedure TfTMC.FormActivate(Sender: TObject);
begin
fTMC.Visible := False;
end;

procedure TfTMC.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
end.

[ldv]

animr: если вы хотите сделать именно MDI child, то используйте метод в вопросе. Или поменяйте стиль формы

[ldv]

animr: fTMC.Visible := False; уберите

[animr]

ldv: Если я его уберу ... он безпрепятственно открывает при запуске и модальное окно... а мне нужно чтоб оно не появлялось пока я его не вызову ))) Сможем решить эту проблему ?

[ldv]

animr: я написал что нужно делать. Событие OnActivate вызывается при установке фокуса на форму, т.е. не то что вам нужно

[animr]

ldv: Убрал я его fTMC.Visible := False; ... что должно случиться?

[ldv]

animr:
читайте внимательнее )
"если вы хотите сделать именно MDI child, то используйте метод в вопросе. Или поменяйте стиль формы"

[animr]

ldv: Друг мой, этот метод:

procedure TfrMain.CreateChildForm
(const childName : string);
var Child: TfrChild;
begin
Child := TfrChild.Create(Application);
Child.Caption := childName;

Этот метод при каждом щелчке открывает мне аналогичные окна, 10 щелчков, 10 одинаковых окон, а мне нужно чтоб оно Один раз мне Это окно открыло и все и если он открыть чтоб вторую третью копии его не открывал... )))

[ldv]

animr: как я сказал, можете сменить стиль формы и использовать autocreated. Или оставить MDI Child и завести глобальную переменную, где считать кол-во открытых окон и ограничивать их количество

[animr]

неужели все программы с Модальными окнами пишутся так через опу (прощу прощения) нет более официального крутого метода так сказать )))

[ldv]

animr: вы так и не ответили какое окно вам нужно. MDI Child или обычное

[animr]

Обычное я сам могу сделать мне нужен CHIIILD ))

[ldv]

animr: MDI Child не может быть модальным

[animr]

ldv: Может сперва объяснишь в чем разница между модальным и MDI Child тогда? ))

[ldv]

animr: модальное окно блокирует все остальные окна
https://ru.wikipedia.org/wiki/%D0%9C%D0%BE%D0%B4%D...

www.sources.ru/delphi/delphi_mdi_development.shtml

[animr]

ldv: Не не не... этого мне не надо.... мне он нужен MDI Child )))

[animr]

animr: Но мне такая картина тоже не устраивает... чтоб несколько окон выходило...
Мне нужно чтоб одно окно открылась и все

[ldv]

animr:
тогда OnClick по кнопке

begin

   if fTMC = nil then  
      fTMC := TfTMC.Create(Application);

end;


procedure TfTMC.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
fTMC := nil;
end;

как-то так, но не проверял

[ldv]

animr: св-во visible формы вернуть в true

[ldv]

animr: и убрать из autocreate

[animr]

ldv: Тут умные люди говорят что этот стиль уже не моден ? ))) мы с тобой совсем не модные получается ))) Но воспользуюсь твоим методом... СПАСИБО ОГРОМНОЕ!!!

Answer 1

[Mercury13]

Как ни странно, создать форму один раз. А затем…
Показать — Show.
Спрятать — Hide.
Сделать модальный запрос (остальные формы временно неуправляемы, из функции не выходим, пока окно не закроется) — ShowModal.

Comments

[animr]

Тааак тут поинтереснее.... ))) а можно чуть кусочек кода как это сделать ?

[Mercury13]

В каком тебе варианте: модальном или немодальном?

[animr]

в модальном ....

[ldv]

Mercury13: только учтите, что стиль у формы MDI Child )

[animr]

Так... ))) Стиль мне и нужен MDI Child

[Mercury13]

Модальное с MDI Child несовместимо.

Модальное окно используется, когда есть некий диалог и его надо во что бы то ни стало пройти, чтобы программа работала дальше. Например, запрос: «Сохранить: да/нет?»

MDI Child — это дочернее окно многодокументного интерфейса. Сейчас он не в моде и используется только когда документы — это различные виды на один «мегадокумент» или «проект». Порядком переделанный многодокументный интерфейс был во вкладках Opera Presto.

[animr]

Ясно... Спасибо. Советуете никогда его не использовать ? ну только если я свой ВОРД не захочу написать? )))))))))))))))))))))))))))))

[Mercury13]

Ну да, не рекомендую. Если нужно сделать программно-модальное окно (т.е. блокирующее всю программу), берёшь самую обычную форму и ей ShowModal. «Окно-модальности» в Windows нет, и её придётся реализовать самому по наитию; скорее всего, вклеить некий компонент в окно, которое хотим «замодалить».

[Mercury13]

animr: А почему ворд? Ну, редактор уровней, например. Куски «мегадокумента» — это разные уровни одного «мира».