Как сделать свой многоуровневый аккордеон?

Лучше чтоб готовое решение было... посоветуете какой использовать... ?

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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.

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

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

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

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

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

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

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

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

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

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