Image bewegen

[Wolfgang Mix]

Du machst auch 'mal Fehler? Hätte ich nicht erwartet.

[DeddyH]

Natürlich, ich halte mich ja nicht für unfehlbar, da ich weiß, dass ich das nicht bin.

[Jonski]

So und jetzt wo ich das hätte will ich wissen wie ich den weißen Rand unsichtbar machen kann?

[DeddyH]

Stichwort transparent

[Jonski]

Ja das hab ich auch gewusst aber wo baue ich es ein?

[DeddyH]

Schau mal beim Image im Objektinspektor oder in der Referenz.

[Jonski]

Ich habs selber herausgefunden juchu

Delphi-Quellcode:

with Image1 do
  begin
  transparent:=true;
  end

Danke jetzt soll mein Objekt an einer Wand stehen bleiben wie geht das?

[DeddyH]

Du meinst ein Hindernis? Dazu musst Du vor dem Verschieben nachrechnen, ob sich Image und Wand berühren und erst dann ggf. Verschieben.

[Jonski]

Soweit bin ich jetzt:

Delphi-Quellcode:

if Image1       then
begin

end
else begin
case Key of
  VK_LEFT:  Image1.Left := Image1.Left - 10;
  VK_RIGHT: Image1.Left := Image1.Left + 10;
  VK_UP:    Image1.Top := Image1.Top - 10;
  VK_DOWN:  Image1.Top := Image1.Top + 10;
end;

nur ich weiß nicht wie man eine Berührung erkennt.

[DeddyH]

Nunja, z.B. für die Bewegung nach links:

Delphi-Quellcode:

if Image1.Left - 10 > Mauer.Left then
  Image1.Left := Image1.Left - 10;