- procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
- Y: Integer);
- begin
- if x < 50 then begin
- mauspos := 1; // = Integer
- end
- else
- if x > Form1.ClientWidth -50 then begin
- MausPos := 2;
- end
- else MausPos := 0;
- end;
Kamera Dreh-ProblemeModerator: DGL-Team
|