Vinduer...

Taget fra tidligere program:

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

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

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

Det skulle altså være lige til at køre!

//hermandsen

Virker!

ArrangeIcons; 

Virker ik'

Nej, den havde jeg også lidt problemer med, men hvis den ikke skal bruges alligevel, så er det vel lige meget! ;)

Den skal bruges Mr.Hermandsen

Hmmm, jeg kigger lige lidt på det når jeg kommer hjem! ;)

OK, jeg prøver også..

Det virker fint! Jeg tror bare ikke den gør det du forventer... Her er det fra hjælpen:

Arranges the icons of minimized MDI child forms.

procedure ArrangeIcons;

Description

Use ArrangeIcons to arrange the icons of minimized MDI child forms so they are evenly spaced and don't overlap.

ArrangeIcons works only if the form is an MDI parent form (that is, if the form’s FormStyle property is fsMDIForm).

Ellers så sæt TileMode... Her fra hjælpen:

Represents how MDI child forms are arranged when the Tile method is called.

type TTileMode = (tbHorizontal, tbVertical);
property TileMode: TTileMode;

Description

TileMode can have one of the following TTileMode values:

Value    Meaning

tbHorizontal    Each form stretches across the width of the parent form
tbVertical    Each form stretches along the height of the parent form

TileMode is meaningful only if the form is an MDI child (that is, if the form’s FormStyle property is set to fsMDIChild).

Forståd ikke så meget af det der står her.

Tile; gøre at hvis der er fx. 2 vinduer kommer de ned under hinanden og den virker.

ArrangeIcons; skal gøre sådan at hvis der er fx. 2 vinduer skal de kommer ved siden af hinanden.

ArrangeIcons; virker stadig ik'!

ArrangeIcons gør følgende:

Hvis du har minimeret alle dine Child-vinduer i programmet, og roder lidt rundt i dem, så vil ArrangeIcons sætte dem op i en pæn orden i programmet i stedet for... Prøv at minimere alle vinduer i programmet, rode lidt rundt på dem og trykke på ArrangeIcons. Så ser du effekten! :)

Så er der TileMode.
Hvis det gør det nemmere, så kan du lave to forskellige procedure're i stedet:

procedure TileHorizontal;
begin
  TileMode := tbHorizontal;
  Tile;
end;

procedure TileVertical;
begin
  TileMode := tbVertical;
  Tile;
end;

Håber det bragte lidt forståelse! ;)

//hermandsen

1000 gang tak hermandsen, jeg skal nok husk at du har hjulpet.

Nu virker det som jeg ville have det skulle virke.

tak.

Hehe... Anytime! :)

Hvis bare vi hjælper hinanden, så er alle glade! ;)