Fadenkreuz mit der Maus erzeugen |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
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;