Mausclick Position auf einem Bitmap auslesen

[zobien123]

Ich erstelle zur Laufzeit ein TBitmap. Ich greife dann auf Canvas zu und zeichne so ein Grid. Mein Ziel ist es nun herauszufinden wo ich auf dem Grid hingeklickt habe um Werte von der geklickten Stelle auszugeben.


PS: Ich nutze die Komponente von https://torry.net/authorsmore.php?id=6603 (Regression Analysis Graph) um einen Graph zu Zeichnen, da ich dies gern ohne TChart o.ä. von Delphi ausprobieren möchte.

[DeddyH]

Auf welchen Canvas greifst Du zu? Der muss ja zu irgendeinem Control gehören, da sollte sich im Normalfall auch ein OnClick-Event finden.

[zobien123]

Auf die Canvas von Bitmap Vielleicht versteh ich auch nicht so ganz was Du meinst, aber hier mal ein Codeausschnitt.

Delphi-Quellcode:

_Bmp := TBitmap.Create;
...
_Bmp.Canvas.Pen.color := _GridColor;
_Bmp.Canvas.Pen.Width := 1;
_Bmp.Canvas.Brush.color := Color;
_Bmp.Canvas.Pen.Width := 1;
...

[Neutral General]

Wo wird das Bitmap angezeigt? Wenn du einfach nur ein Bitmap erstellst und darauf zeichnest dann siehst du im Programm rein gar nichts.
Du musst das Bitmap einem Image o.ä. zuweisen oder es von Hand auf ein Canvas eines Controls zeichnen.

Wie schon gesagt wurde: Ein Bitmap ist genausowenig ein Control wie ein String ein Control ist und man kann dementsprechend nicht drauf klicken.
Du kannst allerdings auf das Control klicken auf dem das Bitmap gezeichnet wird.

Also: Was machst du mit dem Bitmap nachdem du drauf zeichnest?

[himitsu]

Jupp, das woruf du malst, davon die MouseEvents verwenden.

Willst du die Position nicht umrechnen (Offset X:Y der Zeichenaktion nicht abziehen), dann nimm eine TPaintBox
und dort hast dann auch deine eigenen MouseEvents nur für dieses Bitmap.

Oder TImage, dort kannst im Image.Picture.Bitmap auch dessen TBitmap-Instanz benutzen.
(wird auf Picture.Bitmap zugegriffen dann wird automatisch in Picture.Graphic eine TBitmap erstellt)

[KodeZwerg]

ClientToScreen <-> ScreenToClient nennen sich die beiden Hauptmethoden die ich einsetze um absolute Positionen zu bestimmen/erhalten.
Ich male bei solchen vorhaben auf ein (entweder mit oder ohne border) Panel und berechne alles nur über Prozente anstelle absoluter Pixelangaben, so ist es einigermaßen Skalierungssicher.

[DeddyH]

Ohne Control keine Control-Methoden. Aber da der Code anscheinend Top Secret ist, warte ich erst einmal ab.

[Michael II]

Poste doch ein wenig Code...

Gemäss deiner Beschreibung vermute ich, dass du im OnMouseDown deines Formulars die Mauskoordinaten abfangen kannst (dabei natürlich berücksichtigen musst, dass es Formularkoordinanten sind)...

...oder natürlich über ApplicationEvents (oder Überschreiben von WndProc).

Einfacher wäre es doch bestimmt, wenn du du in deinem PageControl auf dem TabSheet auf welchem du die Bitmap anzeigen willst ein Image einfügst und deine Bitmap in diesem Image ablegst. Vorteile: Die Bitmap muss nicht neu gemalt werden bei einem OnPaint und Image kennt OnMouseDown.