Mouszeiger auf monitor 2 steuern

[Natcree]

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?

[BadenPower]

Position des Mauszeigers auslesen und Bild eines Mauszeigers auf dem Canvas Deiner Form2 malen und entsprechend der Bewegung auch wieder löschen.

Wenn Du den gleichen Mauszeigertyp verwenden möchtest, dann wird es etwas umfangreicher.

[Natcree]

versuche es jetzt so

Delphi-Quellcode:

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,..... );
end;

wie bekomme ich den cursor ins grafic format???

[Sir Rufo]

In welcher Sprache programmierst du?

Delphi-Quellcode:

...
strtoint(label1.Caption):=mousepos.x;
...

Delphi ist das nicht ...

[Natcree]

englisch

warum fragste?

[BadenPower]

Zitat:

Zitat von Sir Rufo (Beitrag 1308886)

In welcher Sprache programmierst du?

Delphi-Quellcode:

...
strtoint(label1.Caption):=mousepos.x;
...

Delphi ist das nicht ...

Zitat:

Zitat von Natcree (Beitrag 1308887)

englisch

warum fragste?

:cheer::cheer::cheer::cheer::cheer::cheer::cheer:: cheer::cheer::cheer:
:cheer::cheer::cheer::cheer::cheer::cheer::cheer:: cheer::cheer::cheer:
:cheer::cheer::cheer::cheer::cheer::cheer::cheer:: cheer::cheer::cheer:
:cheer::cheer::cheer::cheer::cheer::cheer::cheer:: cheer::cheer::cheer:
:cheer::cheer::cheer::cheer::cheer::cheer::cheer:: cheer::cheer::cheer:
:cheer::cheer::cheer::cheer::cheer::cheer::cheer:: cheer::cheer::cheer:
:cheer::cheer::cheer::cheer::cheer::cheer::cheer:: cheer::cheer::cheer:
:cheer::cheer::cheer::cheer::cheer::cheer::cheer:: cheer::cheer::cheer:
:cheer::cheer::cheer::cheer::cheer::cheer::cheer:: cheer::cheer::cheer:
:cheer::cheer::cheer::cheer::cheer::cheer::cheer:: cheer::cheer::cheer:

[baumina]

Schaut mal nach links oben, da wären Eiswürfel, helfen gegen Überhitzung :cheers:

[Natcree]

macht euch ruhig lustig lol XDDDDD

ich arbeite mit delphi 7

[BadenPower]

Zitat:

Zitat von Natcree (Beitrag 1308891)

ich arbeite mit delphi 7

Und, hast Du Deinen Code, welchen Du gepostet hast schon einmal getestet?

[Valle]

Warum seid ihr denn alle so gehässig?

@Natcree: Du kannst einem Funktionsausdruck doch nichts zu weisen. Du schreibst ja folgendes:

Delphi-Quellcode:

strtoint(label1.Caption):=mousepos.x;

Eine Anweisung sollte aber so aussehen:

Delphi-Quellcode:

Variable := Ausdruck;

Du speicherst also den Wert des Ausdrucks auf der rechten Seite in die Variable auf der linken Seite.

Dass du hier einen Int in einen String umwandeln musst ist ja richtig. Aber überlege doch mal, wo hier der Int ist und wo ein String rein sollte.