Hi,
ich bin gerade dabei mich etwas intensiver mit Delphi zu befassen, für ein kleines Programm benötige ich die Funktion FloodFill, diese funktioniert auch schon ohne Probleme.Leider stehe ich jetzt vor dem Problem, das ich Koordinaten aus dem Formulars benötige.
Für VB6 habe ich eine Lösung gefunden, dort wird, wenn man auf eine Stelle des Formulars klickt eine Messagebox geöffnet, die die Koordinaten des angeklickten Punktes anzeigt.Leider habe ich nichts für Delphi gefunden.
Hat evtl. jemand einen Tipp für mich, wie ich dies lösen könnte, evtl. mit einer kurzen Erklärung, da ich ja auch was dabei lernen will.

Vielen Dank und Gruß

Chris

Hallo!

Setzte die OnMouseMove, OnMouseDown oder OnMouseUp procedure im Objektinspektor für das Formular.

Die x und y sind dann Deine Koordinaten.

Das sieht dann so aus:

markieren

Delphi-Quellcode:

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
   ShowMessage('x='+IntToStr(x)+', y='+IntToStr(y));
end;

Edit: Auch Dir ein herzliches Willkommen in der DP

Du kannst OnMouseDown/OnMouseUp der Form benutzen und dann die Koordinaten, falls du das willst, mit ClientToScreen auf Bildschirmkoordinaten umrechnen.

Hi,
erstmal danke für die schnelle Hilfe, aber leider klappt das noch nicht so ganz .
Ich habe das ganze jetzt in mein Programm eingefügt:

markieren

Delphi-Quellcode:

procedure TForm2.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
   ShowMessage('x='+IntToStr(x)+', y='+IntToStr(y));
end;
end.

Leider haut mir delphi dann folgende Fehlermeldungen raus:

Zitat:

[Pascal Fehler] Unit2.pas(24): E2003 Undefinierter Bezeichner: 'FormMouseUp'
[Pascal Fehler] Unit2.pas(24): E2029 ';' erwartet, aber '(' gefunden
[Pascal Fehler] Unit2.pas(26): E2003 Undefinierter Bezeichner: 'x'
[Pascal Fehler] Unit2.pas(26): E2003 Undefinierter Bezeichner: 'y'
[Pascal Fataler Fehler] Project1.dpr(5): F2063 Verwendete Unit 'Unit2.pas' kann nicht compiliert werden

Ich würde mich sehr freuen,wenn jemand eine Lösung für das Problem hätte.

Dann habe ich noch ein kleines anderes Problem, ich habe irgendwie ausversehen das Überschreiben im Editor aktiviert, wie krieg ich das wieder ausgeschaltet?

Vielen Dank für eure Mühe

Gruß

Chris

Zitat von cb01:

Hi,

markieren

Delphi-Quellcode:

procedure TForm2.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
   ShowMessage('x='+IntToStr(x)+', y='+IntToStr(y));
end;
end.

Leider haut mir delphi dann folgende Fehlermeldungen raus:

Dein Quellcode für MouseUp ist absolut korrekt! Der Fehler muß woanders liegen.
Was steht den in Zeile 24 bzw. 26 ????

Zitat von cb01:

Dann habe ich noch ein kleines anderes Problem, ich habe irgendwie ausversehen das Überschreiben im Editor aktiviert, wie krieg ich das wieder ausgeschaltet?

Drücke mal die "Einfg" Taste

Hi,

hast du das OnMouseUp-Ereignis aus der Ereignisliste ausgewählt (Doppelklick darauf), sodass dieses automatisch in den Code-Editor eingefügt wird?

Zitat von cb01:

Dann habe ich noch ein kleines anderes Problem, ich habe irgendwie ausversehen das Überschreiben im Editor aktiviert, wie krieg ich das wieder ausgeschaltet?

Die Taste "einfügen" einmal drücken.

Hallo,

vielen Dank für eure Hilfe, jetzt funktioniert das mit dem Auslesen ohne Probleme, es lag wirklich daran, das ich das bei den Ereignissen nicht eingestellt hatte.

Vielen Dank

Gruß

Chris