bestimmten bereich eines images ansprechen

[DeMo]

hi leude hab da mal wieder ne frage ^^

Also ich habe ein image das ne MAP darstellen soll. durch klick auf einen bestimmten bereich sollen dann paar anweisungen ausgeführt werden! Wie stelle ich das an ?

kann mir da jemand helfen ? Danke im vorraus !

[Ultimator]

Du suchst dir die Mauskoordinaten raus und schaust, ob sie in deinem Bereich liegen.

[DeMo]

ja ok ich weiß auch das es so gehen muss aba ich weiß nciht wie ich das anstellen soll, könntest du es etwas genauer beschreiben ambesten mit quellcode ! Danke

[Ultimator]

So, damit kannst du die Koordinaten des Mauszeigers rausfinden:

Delphi-Quellcode:

ShowMessage(inttostr(Mouse.CursorPos.x));
ShowMessage(inttostr(Mouse.CursorPos.y));

Der Rest ist ja dann kein Problem mehr :wink:

[DeMo]

danke !
aba irgend wie gibt es da noch probs :oops:

also wie kann ich die den mit dem bereich vergleichen ? Der bereich is im image also

image1.picture.canvas.rectangle(1,1,100,100);

und wie kann ich das jetzt mit den koordinaten der maus vergleichen ! vieleicht würde der ganze quelltext helfen !

[Ultimator]

Wenn ich in Delphi

Delphi-Quellcode:

image1.picture.canvas.rectangle(1,1,100,100);

eingeb, dann kommt bei mir

Code:

Undefinierter Bezeichner:canvas

Geh ich recht in der Annahme, dass ein TPicture kein Canvas hat?

[Steve]

Jo, TPicture hat meines Wissens nach keinen Canvas
:arrow:

Delphi-Quellcode:

Image1.Picture.Bitmap.Canvas

Gruß
Stephan

[negaH]

Delphi-Quellcode:

if PtInRect(Point(X, Y), Rect(1,1,100,100)) then

[DeMo]

Ok das hat soweit sehr gut funktioniert Danke dir für deine antwort doch nun habe ich noch ein problem !

Solange man das Fenster net verschiebt ist es super , da funktioniert auch alles doch wen man das jetzt verschiebt funtzt es nicht mehr ! Ist auch logisch da die bestimmten bereiche jetzt nicht mehr die gleichen koordinaten haben. Wie bekomme ich das jetzt hin damit es trotzdem geht also sich die koordinaten selber verändern nachdem sie verschoben worden sind ? HAt jemand eine Idee mir fällt jetzt nämlich nichts mehr ein und ich habe schon paar sachen versucht !

Wiedermal bin ich auf euch angewiesen ^^! :oops: Dazu möchte ich noch sagen das das hier einfach das beste Forum für einen Delphi-Programierer ist ! Ein großes LOB an euch und danke im vorraus !

[Alter Mann]

Hi,

Du must mit ...GlientRect Dein Rect ermitteln, entweder bei MausDown(X,Y) + Bereich der Genauigkeit,
oder mit GetClientRect der Compunente.