Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Image dem Mousezeiger folgen

    Delphi
    by bitsetter, 7. Aug 2007
  Und warum änderst du jetzt die Position des Images im WM_PAINT Event, hat das einen Vorteil? IMHO wird der Code jetzt öfter als notwendig ausgeführt.
• Forum: Object-Pascal / Delphi-Language

  Re: Image dem Mousezeiger folgen

    Delphi
    by bitsetter, 6. Aug 2007
  Hi,
  
  die Komponente TApplicationEvents habe ich genommen und dort im Event onMessage folgenden Code eingefügt:procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
  begin
  if Msg.message= Messages.WM_MOUSEMOVE then
  begin
  Image1.Left:=Round(ScreenToClient(Mouse.CursorPos).X - Image1.Width / 2);//Image1.Picture.Graphic.Width
  ...