Simple hjælp til Mastermind!

du må kunne lave en funktion, hvor cirklens navn indgår i kaldet, så det er den samme funktion du bruger til alle cirkler.
Noget i stil med:
function SkiftFarve(Cirkelnavn,NyFarve;
..
..

Ja, men problemet er at jeg har lavet 32 cirkler. dvs. at hver cirkel hedder Shape1, Shape2, Shape3 ... Shape32. Jeg ville også gerne vide hvordan man kan lave en funktion så alle 32 cirkler indgår i et navn :D....Har du et bud??

Hvad med i stedet, at lave en bitmap af knapperne; en for hver farve. Så kan du lave pæne bitmapper med skygger og alt det andet gejl der fylder en bondegård at skrive.

Jeg troede at du havde oprettet cirklerne dynamisk, så du kunne referere til dem som Shape[1], Shape[2]

brug den jeg hjalp dig med her http://www.eksperten.dk/spm/594201

Du skal bare navngive dine shape, så kan du genbruge din dragDrop kode

Stoney

Stoney>> Jeg har gjort det du har skrevet, og jeg har umiddelbart gjort det forkert da det ikke virker. Men her er koden:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ShapeA: TShape;
    ShapeB: TShape;
    ShapeC: TShape;
    ShapeD: TShape;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Bevel3: TBevel;
    ShapeSilver: TShape;
    ShapePurple: TShape;
    ShapeAqua: TShape;
    ShapeBlack: TShape;
    ShapeRed: TShape;
    ShapeBlue: TShape;
    ShapeGreen: TShape;
    ShapeYellow: TShape;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ShapeRedDragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure ShapeRedDragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
   
     
  private
    { Private declarations }
  public
    { Public declarations }
    myshapes: array [1..8, 1..4] of Tshape;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.FormCreate(Sender: TObject);
var
  Row, Col: Integer;
begin
  for Row := 1 to 8 do
    for Col := 1 to 4 do
    begin
      myshapes[Row, Col] := Tshape.Create(Self);
      myshapes[Row, Col].Parent := Self;
      myshapes[Row, Col].Shape := stCircle;
      myshapes[Row, Col].Brush.Color := clwhite;
      myshapes[Row, Col].Height := 49;
      myshapes[Row, Col].Width := 49;

      myshapes[Row, Col].Top := Row * 55 + 45;
      myshapes[Row, Col].Left := Col * 56 + 40;
    end;


shapeA.Brush.Color:=clRed;
shapeB.Brush.Color:=clblue;
shapeC.Brush.Color:=clGreen;
shapeD.Brush.Color:=clGray;

shapeA.Visible:=False;
shapeB.Visible:=False;
shapeC.Visible:=False;
shapeD.Visible:=False;




end;

procedure TForm1.Button1Click(Sender: TObject);
begin
shapeA.Visible:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
shapeA.Visible:=true;
shapeB.Visible:=true;
shapeC.Visible:=true;
shapeD.Visible:=true;

showmessage ('I am disappointed!');
end;

procedure TForm1.ShapeRedDragDrop(Sender, Source: TObject; X, Y: Integer);

begin
  if source is TShape then
  myshapes[8,1].Brush.Color:=(Source as Tshape).Brush.Color;
end;

procedure TForm1.ShapeRedDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept:=(Source is TShape);
end;


end.




I en af de sidste linjer hvor der står:

myshapes[8,1].Brush.Color:=(Source as Tshape).Brush.Color;

er kun et eks. til den ene cirkel, men jeg ville helst have skrevet

myshapes[Row,Col].Brush.Color:=(Source as Tshape).Brush.Color;

men der står at Row og Col er Undeclared identifier.

du mangler at declare Row og Col som integer

Stoney

Stoney >> Det har jeg gjort, men det virker stadgi ikke.

lukker spørgsmålet :(