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.

[Natcree]

ja habe ich so habe es jetzt umgeschrieben da ich ohne die labels arbeiten kann

Delphi-Quellcode:

procedure TForm7.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
mousepos:Tpoint;
x,y :integer;
begin
  getcursorpos(mousepos);
  x :=mousepos.x;
  y :=mousepos.y;
end;

damit bekomme ich die Cursor position. wie kann ich den cursor jetzt auf eine andere Form übertragen?

[Valle]

Dazu musst du dich erstmal damit beschäftigen, wie man Dinge malen kann. Dazu gibt es das TCanvas.

Am besten bemühst du mal Google und suchst nach delphi canvas tutorial.

Dort findest du genügend Material, das bereits anfängerfreundlich aufbereitet wurde.

[BadenPower]

Zitat:

Zitat von Natcree (Beitrag 1308894)

ja habe ich so habe es jetzt umgeschrieben da ich ohne die labels arbeiten kann

Delphi-Quellcode:

procedure TForm7.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
mousepos:Tpoint;
x,y :integer;
begin
  getcursorpos(mousepos);
  x :=mousepos.x;
  y :=mousepos.y;
end;

damit bekomme ich die Cursor position. wie kann ich den cursor jetzt auf eine andere Form übertragen?

Und dieser Code läuft wirklich mit Delphi7.

Unter D2007 wird die Anwendung nicht einmal kompiliert.

[Natcree]

dann halt so

Delphi-Quellcode:

procedure TForm7.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
  var
  mousepos:TPoint;
  a,b:integer;
  begin
  getcursorpos(mousepos);
  a := Mouse.CursorPos.X;
  b := Mouse.CursorPos.Y;
end;

Aus den canvas tutorials werde ich nicht schlau was kann mann noch machen?

[Valle]

Dann musst du einen Schritt zurückrudern und dich mit mehr Basics befassen.

Konkrete Fragen können wir dir hier immer beantworten. Aber das Programm für dich schreiben nutzt keinem von uns was.

Da muss man dann eben ein bisschen mehr Geduld und Disziplin haben, wenn man etwas lernen möchte.

[BadenPower]

Zitat:

Zitat von Natcree (Beitrag 1308912)

dann halt so
Aus den canvas tutorials werde ich nicht schlau was kann mann noch machen?

Du hast Dir noch nicht einmal die Mühe gemacht, Dir zu überlegen, welche Maus-Koordinaten Du eigentlich benötigst.

Auch hast Du noch nie etwas von der F1-Taste gehört.

Das MouseMove-Event bietet Dir doch schon die Mauskoordinaten in den Parametern X und Y an.

Ansonsten kann ich mich nur den Ausführungen von Valle anschließen.

[Captnemo]

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?

You made my day :cheer::cheer:

Kann man das nicht irgendwie pinnen oder in eine neue Rubrik "Die besten Joke's aller Zeit" aufnehmen. Ich bin grad vor Lachen sowas von meinem Stuhl gefallen und braucht tatsächlich einige Minuten um wieder klar zu kommen :D