delphi - TekstEditor med MDI - Udvikleren.dk - Programmering, webdesign og grafik

Tags: delphi

<< < 1 2 > >>

Bruger #4468 @ 14.01.04 08:42

Hej.
Jeg har lavet en tekst editor som kan have flere vinduer åbne men jeg vil gerne lave så man kan skifte mellem de åbne vinduer ved at trykke på f.eks. "view" i en TMainMenu. Nogen der kan hjælpe mig/forklare mig hvordan jeg gør det?
Jeg har også et andet problem.. Jeg kan ikke lukke et af de åbne vinduer med en "close" kommando hvilket er meget irriterende for så virker X'et(krydset) i højre top hjørne ikke og jeg kan ikke lukke vinduerene uden at trykke på en knap som bruger "destroy".
Hvordan kan jeg gøre så et åbent vindue kan lukkes ved at trykke på X'et?
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

11 svar postet i denne tråd vises herunder
2 indlæg har modtaget i alt 2 karma

Sorter efter stemmer Sorter efter dato

Bruger #123 @ 15.01.04 09:54

278

Hmm har kigget på det men kunne ikke finde nogen kode eller grund til at den viste de åbne vinduer den gjorde det altså så man kunne skifte mellem dem..
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Det er jo så fordi det simpelthen er indbygget i Windows at sådan skal MDI applikationer opføre sig.
--
Thomas Due
Software developer
udvikleren.dk - ASP redaktør
tdue@mail.dk

Bruger #4575 @ 21.01.04 12:18

218

Hehe det må du sq undskylde men kan ikke huske hvad et var jeg ændrede for at få det til at virke... Kig i det projekt der ermed delphi... Deri er det.
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Ok. Thanks anyways...

/Mads

Legede lidt med, og fandt noget, som jeg tror du kan bruge:

Kode

procedure TForm1.Button1Click(Sender: TObject);
begin
  IActiveForm := IActiveForm + 1;

  If IActiveForm > Form1.MDIChildCount - 1 Then
    IActiveForm := Form1.MDIChildCount - 1;

  TForm3(MDIChildren[IActiveForm]).BringToFront;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  IActiveForm := IActiveForm - 1;

  If IActiveForm < 0 Then
    IActiveForm := 0;

  TForm3(MDIChildren[IActiveForm]).BringToFront;
end;

Håber det hjælper

/Mads

Bruger #123 @ 14.01.04 09:08

278

Prøv at kigge på det project der følger med Delphi. I Delphi 6 professional klikker du på: File->New->Other

I det vindue som bliver åbnet vælger du fanebladet "Projects". Der er et ikon som hedder "MDI application". Den giver grundstenen til et MDI projekt hvor du kan lukke vinduerne og skifte imellem dem med ctrl+f6/shift+ctrl+f6 (Det er standard for en MDI applikation).
--
Thomas Due
Software developer
udvikleren.dk - ASP redaktør
tdue@mail.dk

[Redigeret d. 14/01-04 09:09:14 af Thomas Due]

Bruger #4468 @ 14.01.04 18:22

221

Hmm har kigget på det men kunne ikke finde nogen kode eller grund til at den viste de åbne vinduer

den gjorde det

altså så man kunne skifte mellem dem..
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Bruger #4468 @ 14.01.04 22:58

221

Har løst problemet med det ikke kunne lukkes... Men kan stadig ikke se hvordan man laver så mankan skifte mellem vinduerne??? nogen der kan hjælpe?
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Bruger #4468 @ 15.01.04 17:45

221

Mærkeligt at min ikke gør det så...
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Bruger #4575 @ 15.01.04 18:11

218

Mærkeligt at min ikke gør det så...
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Du skulle vel ikke evt. kunne give en lille smule kode til hvordan du kunne lukke dem?? :d

/Mads

Bruger #4468 @ 15.01.04 18:44

221

Hehe det må du sq undskylde men kan ikke huske hvad et var jeg ændrede for at få det til at virke... Kig i det projekt der ermed delphi... Deri er det.
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Bruger #4575 @ 15.01.04 18:46

218

Hehe det må du sq undskylde men kan ikke huske hvad et var jeg ændrede for at få det til at virke... Kig i det projekt der ermed delphi... Deri er det.
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Ok. Thanks anyways...

/Mads

Bruger #4575 @ 21.01.04 14:47

218

Hehe det må du sq undskylde men kan ikke huske hvad et var jeg ændrede for at få det til at virke... Kig i det projekt der ermed delphi... Deri er det.
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Ok. Thanks anyways...

/Mads

Legede lidt med, og fandt noget, som jeg tror du kan bruge:
Kode
procedure TForm1.Button1Click(Sender: TObject);
begin
  IActiveForm := IActiveForm + 1;

  If IActiveForm > Form1.MDIChildCount - 1 Then
    IActiveForm := Form1.MDIChildCount - 1;

  TForm3(MDIChildren[IActiveForm]).BringToFront;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  IActiveForm := IActiveForm - 1;

  If IActiveForm < 0 Then
    IActiveForm := 0;

  TForm3(MDIChildren[IActiveForm]).BringToFront;
end;
Håber det hjælper

/Mads

Du skal forresten huske at definere IActiveForm som en "Global" integer

/Mads

<< < 1 2 > >>

TekstEditor med MDI

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler