spiel Problem

[Bummi]

Wenn Du es wirklich so umsetzen willst, dann nimm Form4.FormMouseDown für die Fehlclicks.

Ansonsten nimm ein GraphicControl male dort und werte die Clicks dort aus.

[lbccaleb]

Und

 showmessage('Du hast gewonnen'); im Timer aufzurufen, ist sicherlich auch nicht das was du möchtest oO

Edit:
Asso, da fehlt nen end;

[Matze33]

Wie wäre es, im onClick der Form zu sagen, dass er z.B. den Wert 100 im Label (oder was auch immer) abziehen soll und beim onClick jedes Bildes zu sagen, dass er 200 addieren soll und das Bild dann auf 0x0px setzen soll, damit du es nicht noch mal klicken kannst. Dann fragst du noch ab, ob alle Images die Breite/Höhe 0 haben und wenn dem so ist, ist das Spiel zu ende. Fertig. Ist eventuell nicht so kompliziert gebaut, sollte aber den Zweck erfüllen

[Saminem]

Danke für die ganze Hilfe.
Hat bei mir irgendwie geklapt.
Nun stehe ich aber vor einem weiterem Problem.
Ich schneide mir die die Bilder immer aus nun möchte ich die bei delphi verwenden aber da ist immer so
ein weißer Hintergrund bei den Bildern wie krieg ich das hin das dieser transparent ist.
wie bei dem bild unten leider nicht gut zu sehen ist das rundum das eigentliche bild weiß ist und auch bei delphi so aus sieht.

[Bummi]

wenn Du bei dem Konzept bleiben willst dass sich Controls auf dem Form bewegen, könntest Du sowas versuchen. (Ich denke längerfristig solltest Du alles in einem separaten Offlinebitmap berechen)

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TMyGraphicControl=Class(TGraphicControl)
  private
    FImageList: TImageList;
    FIMageIndex: Integer;
    procedure SetImageIndex(const Value: Integer);
    procedure SetImagelist(const Value: TImageList);
  protected
    Procedure Paint;override;
  published
    Property ImageList:TImageList read FImageList Write SetImagelist;
    Property ImageIndex:Integer read FIMageIndex Write SetImageIndex;
  End;
  TForm1 = class(TForm)
    ImageList1: TImageList;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    FG:TMyGraphicControl;
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  FG.Left := 100;
  FG.Top  := 100;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   FG := TMyGraphicControl.Create(self);
   FG.Parent := self;
   FG.Width := ImageList1.Width;
   FG.Height := ImageList1.Height;
   FG.ImageList := Imagelist1;
   FG.ImageIndex := 0;
   DoubleBuffered := True;
end;

{ TMyGraphicControl }

procedure TMyGraphicControl.Paint;
begin
   if assigned(FImageList) and (FimageList.Count > FImageIndex) then
      begin
         FImageList.Draw(Canvas,0,0,FimageIndex);
      end;
end;

procedure TMyGraphicControl.SetImageIndex(const Value: Integer);
begin
  FIMageIndex := Value;
  invalidate;
end;

procedure TMyGraphicControl.SetImagelist(const Value: TImageList);
begin
  FImageList := Value;
  Invalidate;
end;

end.

EDIT:

ich habe die Idee mal etwas weitergesponnen

http://www.delphipraxis.net/156716-g...ml#post1068078