Punkt auf einer Karte markieren

Takeshi · Beiträge: 64

Hallo!

Ich habe eine Karte gemacht, einfach nur ein Raster und möchte nun bei Klick an den Koordinaten des Mauszeigers einen Punkt erstellen. Dieser soll später beim drüberfahren als 'Link' funktionieren.

Also etwas ähnliches wie <area shape=" in einer HTML, nur dass der Radius ruhig immer der selbe sein kann.

Leider habe ich keine Ahnung, wie ich so ein Shape dahinzauber, und diesem dann auch noch Ereignisse zuordne. Habe bisher nur Komponenten aus der Liste eingefügt.

Vielen Dank schonmal! greez, Takeshi

Aya · Verfasst: Mi 02.04.03 14:26

Hi,

wär ganz hilfreich zu wissen auf was für eine Komponente du da klickst.. also auf was du deine Karte zeichnest.

Au'revoir,
Aya~

_________________
Aya
I aim for my endless dreams and I know they will come true!

Takeshi · Beiträge: 64

ich klicke auf ein Image (Bitmap), da ja hier eine Karte eingefügt werden soll.

Aya · Verfasst: Mi 02.04.03 14:48

huhu,

also versteh ich das jetzt richtig das die Karte ein einziges großes TImage ist, oder sind es mehrere kleine??

Au'revoir,
Aya

_________________
Aya
I aim for my endless dreams and I know they will come true!

Takeshi · Beiträge: 64

jaja, ist ein ganzes. ist soll auch keine besonders große karte sein.

Aya · Verfasst: Mi 02.04.03 15:36

Hi,

dann nimm einfach das OnMouseDown-Event vom TImage.. da hast du dann die X und Y Koordinate wo auf das Bild geklickt wurde

Au'revoir,
Aya

_________________
Aya
I aim for my endless dreams and I know they will come true!

Takeshi · Beiträge: 64

Das weiß ich auch.

wenn du aber meinen ersten post nochmal durchliest - ich möchte dann an dieser stelle eine Markierung einfügen, wo geklickt wurde. Und wie DAS geht möchte ich gern wissen.

Ich habe nun ein Fake-Programm geschrieben, das die Funktionen simuliert. Nur wird dabei ein Punkt verschoben und nicht wie gewünscht neue Punkte erstellt. Vielleicht wird damit deutlicher, was ich vorhabe.

rudel-clanpage.de.vu/map.zip

gruß, takeshi

Aya · Verfasst: Mi 02.04.03 18:04

Hi,

achsoooo.... nu hab ich's kapiert *gg*

Na ja, du speicherst ja die Koordinaten der Punkte immer in der ListBox da am rand..

Speicher sie einfach zusätzlich noch in nen Array:

markieren

Quelltext

1:	FeldArray: Array of Array[1..2] of Integer;

und ne neue Koordinate hinzufügen:

markieren

Quelltext

1:
2:
3:

SetLength(FeldArray,Length(FeldArray)+1);
FeldArray[High(FeldArray),1]:=X;
FeldArray[High(FeldArray),2]:=Y;

Soo... und dann halt jedesmal wenn du die punkte zeichnest mit ner For-Schleife durch den Array gehen:

markieren

Quelltext

1:
2:

for i:=Low(FeldArray) to High(FeldArray) do
  ZeichnePunkt(FeldArray[i,1],FeldArray[i,2]);

so in der Art halt..

War's das was du meintest?? :roll:

Au'revoir,
Aya~

_________________
Aya
I aim for my endless dreams and I know they will come true!

Aya · Verfasst: Mi 02.04.03 18:06

ach halt...

ich seh grad dein Punkt is ja nen Shape.. nich per Canvas draufgezeichnet... :oops:

mach halt nen Array of TShape

und beim neuen hinzufügen:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var
  Shapes: Array of TShape;

procedure OnMouseDown(...);
begin
  SetLength(Shapes,Length(Shapes)+1);
  Shapes[High(Shapes)]:=TShape.Create(self);
  Shapes[High(Shapes)].Parent:=self;
  Shapes[High(Shapes)].Left:=X;
  Shapes[High(Shapes)].Top:=Y;
end;

Au'revoir,
Aya~

_________________
Aya
I aim for my endless dreams and I know they will come true!

Takeshi · Beiträge: 64

danke!!!
das zieh ich mir erstmal morgen nach meiner physik klausur rein

dann habe ich bestimmt wieder ne frage

greez, Take

Takeshi · Beiträge: 64

OK, das mit dem Array hab ich jetzt alles verstanden *freu*
sowas in der art hab ich mich schon öfters gefragt. Jedenfalls kann ich jetzt prima überall Punkte hinpflanzen.

wie kann ich denn dem Objekt 'Shapes' jetzt ein Ereignis (MouseDown) zuweisen, bzw wie komme ich an den Index des beklickten Shapes ?
[witzige Formulierung...] egal ich bin sicher, du weißt, was ich meine

vielen thx + greez Takeshi

Aya · Verfasst: Do 03.04.03 16:28

huhu,

einfach so:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

var 
  Shapes: Array of TShape; 

procedure OnMouseDown(...); 
begin 
  SetLength(Shapes,Length(Shapes)+1); 
  Shapes[High(Shapes)]:=TShape.Create(self); 
  Shapes[High(Shapes)].Parent:=self; 
  Shapes[High(Shapes)].Left:=X; 
  Shapes[High(Shapes)].Top:=Y; 

  Shapes[High(Shapes)].Tag:=High(Shapes); 
  Shapes[High(Shapes)].OnMouseDown:=MyMouseDown; 
end;

und in der Procedur MyMouseDown dann:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.MyMouseDown(...);
var
  ShapeID: Integer;
begin
  ShapeID:=TShape(Sender).Tag;
  Shapes[ShapeID]....
end;

Au'revoir,
Aya~

_________________
Aya
I aim for my endless dreams and I know they will come true!

Takeshi · Beiträge: 64

mhh.
ich habe nun

markieren

Quelltext

1:	Shapes[High(Shapes)].OnMouseDown:=MyMouseDown;

eingefügt und per Hand die procedure

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

procedure TfrmMap.MyMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  ShapeID: Integer;
begin
  ShapeID:=TShape(Sender).Tag;
  edtShapeID.Text:=FloatToStr(ShapeID);
end;

eingefügt.
Das ist wohl falsch, denn der Index ist immer 0. Leider blicke ich auch noch nicht ganz durch, wo 'Sender' herkommen soll..
gruß, Takeshi

Aya · Verfasst: Do 03.04.03 18:26

Hi,

hast du daran gedacht den "Tag" der Shape festzulegen???

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

var 
  Shapes: Array of TShape; 

procedure OnMouseDown(...); 
begin 
  SetLength(Shapes,Length(Shapes)+1); 
  Shapes[High(Shapes)]:=TShape.Create(self); 
  Shapes[High(Shapes)].Parent:=self; 
  Shapes[High(Shapes)].Left:=X; 
  Shapes[High(Shapes)].Top:=Y; 

  Shapes[High(Shapes)].Tag:=High(Shapes);  // <-- DAAA :)
  Shapes[High(Shapes)].OnMouseDown:=MyMouseDown; 
end;

Sender ist einfach das Objekt welches den Event (in dem fall also den OnMouseDown Event) ausgelöst hat.

Au'revoir,
Aya~

_________________
Aya
I aim for my endless dreams and I know they will come true!

Takeshi · Beiträge: 64

ok es klappt

markieren

Quelltext

1:	(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer)

das muss alles der procedure MyMouseDown übergeben werden oder ?

Aya · Verfasst: Do 03.04.03 19:26

Jep

_________________
Aya
I aim for my endless dreams and I know they will come true!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme