images bewegen mit maus delphi

[infofreak23]

hey meine programmierfreunde,

ich habe ein kleines problem :
ich bin gerade dabei schach zu programmieren.
ich habe mein schachfeld fertig und die figuren habe ich mit images gemacht.
mein problem ist jetzt dass ich nicht weiß wie ich diese nun bewegen kann.

könnt ihr mir helfen
wäre echt nett von euch ist wichtig
danke im voraus

[Bummi]

Der Ansatz mit mehreren Images scheint mir nicht optimal gewählt, aber wenn Du es so versuchen willst

Delphi-Quellcode:

unit Unit5;

interface

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

type
  TForm5 = class(TForm)
    Image1: TImage;
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  private
    { Private-Deklarationen }
    FMDX,FMDY:Integer;
  public
    { Public-Deklarationen }
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
   FMDX := X;
   FMDY := Y;
end;

procedure TForm5.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
   if ssLeft in Shift then
      begin
        TImage(Sender).Left := TImage(Sender).Left + X - FMDX;
        TImage(Sender).Top := TImage(Sender).Top + Y - FMDY;
      end;
end;

end.

[infofreak23]

danke schonmal für deine antwort.
was wäre denn deiner meinung nach besser geeignet anstelle von den images?

[Bummi]

Ich würde entweder eine Komponente von TGraphicControl ableiten, oder wenn es kurz un schmerzlos gehen soll Feld und Figuren im OnPaint einer Paintbox (notfalls auch des Forms) malen, die Verwaltungsinformationen in einem Array vorhalten und Mousedown/move etc. der Paintbox/Komponete auswerten.

[bernhard_LA]

als Ergänzung der anderen Posts :

er reicht ein TImage, in diesem Bild kannst Du Deine Figuren (sprites) über verschiedenen Funktionen ( Canvas.Paint, BitBlt, ....)
direkt zeichnen lassen. Schau dir mal folgendes Tutorial an :

http://delphi.about.com/od/gameprogr...rogramming.htm

[Popov]

Anbei ein kleines Beispiel wie man das Problem nur mit Bitmaps lösen kann. Es ist nichts besonderes, es sind nur fünf Bitmap-Kisten die auf einer Untegrund-Bitmap mit gedrückter Maus verschoben werden können. Alles wurde mit TBitmaps gelöst. Es ist nur etwas Rechnen nötig.

[infofreak23]

soo vielen dank erstmal für eure antworten

ich habe allerdings noch ein paar fragen die noch nicht ganz verstehe.

zuerst eine frage an bummi: kann ich den quellcode den du mir geschrieben hast so wie er da steht in meinen quelltext kopieren oder muss ich da noch was ändern und wenn ja was?

außerdem frage ich mich, wie ich dass dann machen soll wenn ich möchte, dass z.B. ein turm nur auf bestimmte felder ziehen kann und wie ich die felder überhaupt einteilen kann. habe das spielfeld mit moveto und lineto auf ein TImage gemalt und die felder mit brush gefärbt.

auch wenn das vlt nicht die beste lösung ist wäre es nett wenn ihr mir schreiben könntet wie ich das umsetzen kann OHNE großartig was zu verändern sprich mit den images als spielfiguren und dem spielfeld so wie ich es oben geschrieben habe, denn mir rennt leider die zeit davon kann nur noch freitag daran arbeiten

[Bummi]

Du musst im Objektinspektor die Ereignisse OnMouseMove und OnMouseDown versorgen.
Du kannst für alle Images dieselben Routinen verwenden, weitergehende Entscheidungen kannst Du über z.B. über
if Sender=ImageTurm then realisieren.
Die Gültigkeit der Züge musst Du über Top / Left verifizieren, ich würde hierfür wie gesagt ein Array anlegen.
z.B.

Delphi-Quellcode:

type
TMyFieldInfo=Record
 Farbe:TColor;
 AktuelleFigur:Integer;
 //was auch immer noch
end;

TFieldArray=Array[0..7,0..7] of TMyFieldInfo;

[infofreak23]

okay danke werds mal so versuchen

[Popov]

Du gleitest vielleicht etwas von dem Problem ab. Du möchtest einen Kuchen backen, fragst aber gerade wie du das Wasser aus dem Wasserhahn in den Messbecher kriegst?

Ich denke du hast dir am Anfang ein großes (Grafik) Hindernis gesetzt das erst überwunden werden muß. Du hast zwei "Probleme", ein Schachspiel programmieren und umgang mit Grafik verstehen.Vielleicht ein Tipp, lass das mit der Grafik-Bewegung. Du willst den Springer bewegen, dann blinke mit ihm drei mal am Position A (jetzt) und B (gleich), dann Figur aus Position A löschen und bei B setzten. So hat man früher auch gemacht. Das ist simpler und das Grafik-Hindernis ist weg.

Wie gesagt, nur ein Tipp, spart aber etwas Zeit.