Home » Tipps & Tricks » System » Tastatur und Maus » Fadenkreuz mit der Maus erzeugen
Fadenkreuz mit der Maus erzeugen
Diese Procedure zeigt, wie man auf einem Image ein Fadenkreuz erzeugen kann. Du musst dazu ein Image auf dem Formular platzieren und folgendes ins OnMouseMove-Ereignis schreiben:
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var TempBMP : TBitmap; begin TempBMP := TBitmap.Create; with TempBMP do begin Height := Image1.Height; Width := Image1.Width; Canvas.MoveTo (X,0); Canvas.LineTo (X,Image1.Height); Canvas.MoveTo (0,Y); Canvas.LineTo (Image1.Width,Y); Image1.Picture.Assign (TempBMP); Free; end; end;