Hjælp til brug af TShape!

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
  myshapes: array [1..10, 1..4] of Tshape;
    { Public declarations }
  end;

var
  Form1: TForm1;


implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

var
  Row, Col: Integer;
begin
  for Row := 1 to 10 do
    for Col := 1 to 4 do
    begin
      myshapes[Row, Col] := Tshape.Create(Self);
      myshapes[Row, Col].Parent := Self;
      myshapes[Row, Col].Shape := stEllipse;
      myshapes[Row, Col].Brush.Color := clred;
      myshapes[Row, Col].Height := 15;
      myshapes[Row, Col].Width := 15;

      myshapes[Row, Col].Top := Row * 20 + 10;
      myshapes[Row, Col].Left := Col * 30 + 20;

    end;
end;


end.


Stoney

Tak Stoney...du har løst den ene problem jeg havde, men desværre opstod der et andet når jeg skal arbejde med de 40 cirkler og derfor har jeg opgivet at bruge den metode :D. Men du skal da selvfølgelig have point for dit svar. Hvis du lige indsætter et svar er pointene dine :D

Stoney>> jeg forstår din kode, men samtidig er der to ting jeg ikke forstår.

Hvad betyder disse to linjer og hvad er det helt præcis de gør:

      myshapes[Row, Col] := Tshape.Create(Self);
      myshapes[Row, Col].Parent := Self;

Tak for hjælpen ;)

myshapes: array [1..10, 1..4] of Tshape;

ovenstående er et array.
Du refererer til på følgende måde
myshapes[Row, Col]  // altså række og kolonne

Stoney

Ja ok, jeg kan se at du har misforstået min spørgsmål :D

:= Tshape.Create(Self);
.Parent := Self;

det vare denne del af koden jeg ikke forstod :D ( det med række kolonne var skåret ud i pap fra starten af, men tak alligevel :D )

Stoney>> jeg skal stadigvæk have et svar ( og ikke kommentar) fra dig, så du kan få dine point.

:-)

Stoney