Forum: Programmieren allgemein
by Natcree,
16. Jul 2015
dann halt so
procedure TForm7.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
mousepos:TPoint;
a,b:integer;
begin
getcursorpos(mousepos);
a := Mouse.CursorPos.X;
Forum: Programmieren allgemein
by Natcree,
16. Jul 2015
ja habe ich so habe es jetzt umgeschrieben da ich ohne die labels arbeiten kann
procedure TForm7.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
mousepos:Tpoint;
x,y :integer;
begin
getcursorpos(mousepos);
x :=mousepos.x;
Forum: Programmieren allgemein
by Natcree,
16. Jul 2015
macht euch ruhig lustig lol XDDDDD
ich arbeite mit delphi 7
Forum: Programmieren allgemein
by Natcree,
16. Jul 2015
versuche es jetzt so
procedure TForm7.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
mousepos:Tpoint;
begin
strtoint(label1.Caption):=mousepos.x;
strtoint(label2.Caption):=mousepos.y;
form5.Canvas.Draw(mousepos.x,mousepos.Y,..... );
Forum: Programmieren allgemein
by Natcree,
16. Jul 2015
Hallo mein prog läuft über 2 Monitore
Form1 Monitor 1
Form2 Monitor 2
Nun möchte ich die Mousecursor von form1 auf form2 dublizieren und auch die mausBewegung welche ich auf form1 ausführe soll auf form2 genauso ausgeführt werden.
Wie kann ich das bewerkstelligen?