Luk problem!!!

Hvad er det lige du mener? Hvilket vindue skal lukkes? Kunne du ikke eventuelt komme med noget eksempelkode? At du har efterlignet den fil, betyder vel ikke at du har hugget alt koden!

Nej, nej, nej

Det er en Artikel, som du kan læse her fra: http://www.udvikleren.dk/vis_artikel.php4?id=10

Artiklen lære en hvordan man laver en simpel teksteditor i delphi, efter man har læse artiklen og har prøvet at lave editoren, kommer den til at se sådan ud: http://www.udvikleren.dk/artikler/delphitekstsource.zip

Prøv at downloade editoren og kig på .exe filen.

Spørgsmål 1:

Editoren kan åbne mange vinduer men hvorfor kan man ikke lukke hver enkelte af dem???

Spørgsmål 2:

Hvis nu jeg hade en knap på min toolbar, som kunne lukke en vindue adgangen, hvordan skulle koden i knappen se ud????.

Håber at i kan hjælpe mig.

TMDI(ActiveMDIChild).close ?

eller

child.close i TMDI ?

Det må da være den `?

Virker ik'

De bliver bar minimeret.

Prøv lige at indsætte denne i Childformens onclose event:

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

Husk at tilføje

procedure FormClose(Sender: TObject; var Action: TCloseAction);

i FORMens definition lige efter at

Memo feltet blive defineret !

Virker stadig ik'.

Kan du ikke downloade denne her: http://www.udvikleren.dk/artikler/delphitekstsource.zip

Også lave luk funktionen.

Og send den på min e-mail: madka@hjem.as

Send det hele ikke kun exe filen.

Jamen Jeg har downloadet eksemplet. Problemet er bare at min delphi 4 påstår der er en fejl i form definitionsfilerne, og jeg kan derfor ikke køre compile et nyt program.

Men ovenstående idé fik jeg ved at se Delphis eget forslag til hvordan det gøres.

File | new -> Projects

Hvilket er et bedre program...... syntes jeg !!

ok

benson's svare er rigtig nok...

Du skal ind i unit2 i kodeeksemplet og tilføje benson's kode til MDI formens OnClose event

Og for at lukke den aktive MDI form via en knap så lav dette

procedure TForm1.ToolButton8Click(Sender: TObject);
begin
  if Form1.ActiveMDIChild <> nil then
    Form1.ActiveMDIChild.Close
  else
    ShowMEssage('Fjols - det er jo ikke flere vinduer at lukke');
end;

Virker stadig ikke

Jeg har lavet et tidligere program på næsten samme måde... Måske det kan være til hjælp:

Først kommer din main form:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, ComCtrls, ToolWin;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    ToolBar1: TToolBar;
    StatusBar1: TStatusBar;
    OpenDialog1: TOpenDialog;
    Fil1: TMenuItem;
    bn1: TMenuItem;
    Ny1: TMenuItem;
    N1: TMenuItem;
    Luk1: TMenuItem;
    Rediger1: TMenuItem;
    Vindue1: TMenuItem;
    Hjlp1: TMenuItem;
    Minimeralle1: TMenuItem;
    Maksimeralle1: TMenuItem;
    Normaliseralle1: TMenuItem;
    Lukalle1: TMenuItem;
    N2: TMenuItem;
    Overlappet1: TMenuItem;
    Sidevedside1: TMenuItem;
    Arrangerikoner1: TMenuItem;
    SaveDialog1: TSaveDialog;
    procedure Luk1Click(Sender: TObject);
    procedure bn1Click(Sender: TObject);
    procedure Ny1Click(Sender: TObject);
    procedure Minimeralle1Click(Sender: TObject);
    procedure Normaliseralle1Click(Sender: TObject);
    procedure Maksimeralle1Click(Sender: TObject);
    procedure Lukalle1Click(Sender: TObject);
    procedure Overlappet1Click(Sender: TObject);
    procedure Sidevedside1Click(Sender: TObject);
    procedure Arrangerikoner1Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.DFM}

procedure TForm1.Luk1Click(Sender: TObject);
begin
  Close;
end;

procedure TForm1.bn1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    Form2 := TForm2.Create(Self);
    Form2.Caption := OpenDialog1.FileName;
    Form2.RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
  end;
end;

procedure TForm1.Ny1Click(Sender: TObject);
begin
  Form2 := TForm2.Create(Self);
  Form2.Caption := 'Unavngivet dokument';
  Form2.RichEdit1.Lines.Clear;
end;

procedure TForm1.Minimeralle1Click(Sender: TObject);
var
  I: Integer;
begin
  for i := Form1.MDIChildCount-1 downto 0 do
    Form1.MDIChildren[I].WindowState := wsMinimized;
end;

procedure TForm1.Normaliseralle1Click(Sender: TObject);
var
  I: Integer;
begin
  for i := Form1.MDIChildCount-1 downto 0 do
    Form1.MDIChildren[I].WindowState := wsNormal;
end;

procedure TForm1.Maksimeralle1Click(Sender: TObject);
var
  I: Integer;
begin
  for i := Form1.MDIChildCount-1 downto 0 do
    Form1.MDIChildren[I].WindowState := wsMaximized;
end;

procedure TForm1.Lukalle1Click(Sender: TObject);
var
  I: Integer;
begin
  for i := Form1.MDIChildCount-1 downto 0 do
    Form1.MDIChildren[I].Close;
end;

procedure TForm1.Overlappet1Click(Sender: TObject);
begin
  Cascade;
end;

procedure TForm1.Sidevedside1Click(Sender: TObject);
begin
  Tile;
end;

procedure TForm1.Arrangerikoner1Click(Sender: TObject);
begin
  ArrangeIcons;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if MessageDlg('Gem fil?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
    if Form2.Caption = 'Unavngivet dokument' then
      SaveDialog1.FileName := ''
    else
      SaveDialog1.FileName := Form2.Caption;
    if SaveDialog1.Execute then
      Form2.RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);
  end;
end;

end.


Her efter Child'et!


unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls;

type
  TForm2 = class(TForm)
    RichEdit1: TRichEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.DFM}

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

end.

Måske det kunne være til en hjælp!

//hermandsen

Husk lige at fjerne Form2 under Auto-create forms! ;)

Jeg kan ikke få det til at virke!

Prøv at gå ind på: http://www.udvikleren.dk/vis_artikel.php4?id=10

lav den simple editor med luk. Jeg vil give 15 point ekstre.

jeg downloaded det eksempel du have og tilføjede koden i mit tidligere svar og det virkede..

Hvad er det der ikke virker hos dig?

Giv mig en email, så skal jeg sende koden til dig

madka@hjem.as du er meget velkommen til sende mig det.

1000 gang TAK, doc404

Det virker perfekt!