Einzelnen Beitrag anzeigen

Looper

Registriert seit: 28. Sep 2007
Ort: Hamburg
131 Beiträge
 
Delphi XE2 Professional
 
#4

Re: Frage: Andorra 2D OnClick mit Sprite

  Alt 1. Apr 2008, 16:05
Der Rahmen kann doch auch einfach eine Instanz von TAdImage sein. Du überprüfst ob da wo der Benutzer hingeklickt hat ein Sprite unterliegt
Delphi-Quellcode:
if (GetSpriteAt(ScreenToClient(Mouse.CursorPos).X, ScreenToClient(Mouse.CursorPos).Y)<>nil) then
begin
  AdImage.X := GetSpriteAt(ScreenToClient(Mouse.CursorPos).X, ScreenToClient(Mouse.CursorPos).Y).X - 10; //den Wert musst du richtig einstellen
AdImage.Y := GetSpriteAt(ScreenToClient(Mouse.CursorPos).X, ScreenToClient(Mouse.CursorPos).Y).Y - 10; //den Wert musst du richtig einstellen
//du musst nur noch den Rahmen vor der AdSpriteEngine zeichnen ;)

end;
Hoffe das ist einigermaßen verständlich.

mfg Looper
  Mit Zitat antworten Zitat