Forum: Object-Pascal / Delphi-Language
Delphi
by Sharky,
21. Feb 2003
Probiere doch einfach mal herum.
Der Windows-Cursor ist halt schneller als das Programm und vorallem davon unabhängig.
Wenn Du 100% verhindern möchtest das der Cursor das Bild "trift" ....
Tja, was ist das eigentlich? Trefen bedeutet ja das die Maus über dem Bild ist...
So, damit solltest Du eigentlich weiter kommen :lol:
Forum: Object-Pascal / Delphi-Language
Delphi
by Sharky,
20. Feb 2003
Na gut... hier der Quelltext (ist nur so auf die schnelle geschrieben)
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
bild_mitte : TPoint;
min_abstand : Int64;
abstand,
dif_x,
Forum: Object-Pascal / Delphi-Language
Delphi
by Sharky,
20. Feb 2003
Hai NeoDeluxe,
mal als Gedankenmodel:
Du ermittelst den Mittelpunkt deines Bildes.
Jetzt ermittelst Du die Position der Maus.
Jetzt berechnest Du den Abstand zwichen den beiden.
Wenn dieser abstand unter einen bestimmten Wert kommt verschiebst Du dein Image von der Maus weg bis der mindestabstand wieder erreicht ist.
