MDI Lukning

Hvis du bare skal have lukket programmet (hvilket er det jeg forstår det som) så kan du bruge application.terminate.....

// Jonat.

hmmm. mener du istedet for cafree ??

Hvis jeg har forstået dig ret (håber jeg at jeg har :)) så vil du gerne have lukket dit application, det kan du gøre ved at skrive application.terminate istedet ja....

// Jonat.

har lige prøvet men det virker ikke vil du ahve en demo af programmet så du kan se fejlen ??

have*

ja... prøv at kontakte mig enten via. msn på : jonatan.h.christiansen ( snabel a ) Sol.dk, ellers send som mail.

Hvis du har msn vil jeg helst at du kontakter mig der :)

// Jonat.

Blot et gæt - har du husket at sætte FormStyle ("fsMDIForm" for din "forældre form" og "fsMDIChild" for din TForm2) ?

ja

problemet er bare at form2 minimer når jeg trykker luk (X)

Hvad med MDIChildren[i].close? Hvor i er en variable?


--------------Jeg bruger denne, som i hvert fald virker---------------

unit uMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uChild, Menus;

type
  TfrMain = class(TForm)
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    NewChild1: TMenuItem;
    N1: TMenuItem;
    CloseAll1: TMenuItem;
    Window1: TMenuItem;
    Casade1: TMenuItem;
    Tile1: TMenuItem;
    ArrangeAll1: TMenuItem;
    N2: TMenuItem;
    procedure NewChild1Click(Sender: TObject);
    procedure CloseAll1Click(Sender: TObject);
    procedure Casade1Click(Sender: TObject);
    procedure ArrangeAll1Click(Sender: TObject);
    procedure Tile1Click(Sender: TObject);
  private

  procedure CreateChildForm(const childName : string);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frMain: TfrMain;

implementation

{$R *.dfm}


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


procedure TfrMain.NewChild1Click(Sender: TObject);
begin
CreateChildForm('Child '+IntToStr(MDIChildCount+1));
end;

procedure TfrMain.CloseAll1Click(Sender: TObject);
var i: integer;
begin
for i:= 0 to MdiChildCount - 1 do
  MDIChildren[i].Close;

end;

procedure TfrMain.Casade1Click(Sender: TObject);
begin
Cascade;
end;

procedure TfrMain.ArrangeAll1Click(Sender: TObject);
begin
ArrangeIcons;
end;

procedure TfrMain.Tile1Click(Sender: TObject);
begin
Tile;
end;

end.

--------------------- Slut --------------------------------

har lige kigget lidt på det script men ... det er ikke lige det .. jeg mangler .....


mit problem er at form2 ikke gidder lukke men minimer istedet ... der mangler et script der skal få den slettet fra memery ellers minimer den ....... (det er standart)

YES ! problem løst .... bare mig der er lidt noob og overså et end. midt i scriptet ........

but thx 4 the help all ...