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;