Hallo liebe Delphianer,
bevor jemand kommt ich solle due SuFu benutzen, ich hab mich totgegoogelt.
Ich versuche die aktuellen Mauskoordinaten auszulesen. Das ist an sich auch kein Problem, jedoch werden sie mir immer auf den ganzen Bildschirm bezogen ausgegeben.
Jetzt möchte ich aber die Koordinaten nur auf das image1 beziehen und die Ausgabe in 2 Labels machen.
Ich habe einiges gefunden zu dem Thema, das hat jedoch nicht funktioniert (es liegt wahrscheinlich an mir).
Was mache ich falsch: Es wird einfach nichts angezeigt.
Bitte helft mir schnell
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 =
class(TForm)
Label1: TLabel;
Label2: TLabel;
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label1.caption:=inttostr(x);
label2.caption:=inttostr(y);
end;
end.