Mauszeigerwechsel bei linksklick auf ein Image klappt nicht

[turboPASCAL]

Hi,

Mauszeigerwechsel beim linksklick auf ein Image klappt nicht. Ich habe schon mehere Varianten versucht.
Was bzw. wie könnte man dies realisieren ? :gruebel:

Delphi-Quellcode:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  image1.Cursor := crHandPoint;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  image1.Cursor := crDefault;
end;

Crosslink zum DF

[himitsu]

versuch es mal so:

Delphi-Quellcode:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Image1.Cursor := crHandPoint;
  Screen.Cursor := crHandPoint;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Image1.Cursor := crDefault;
  Screen.Cursor := crDefault;
end;

mir war auch schon aufgefallen, daß wärend des Mausklicks der Cursor nicht übernommen wird.

[turboPASCAL]

Vielen Dank, so funktioniert es.
Das ist zwar nicht so ganz wie ich es gern hätte, aber ok.

Das ist es wohl ein Fehler in der TImage Kompo. ?

[himitsu]

neee, vermutlich entweder von Windows oder der VCL.
Ich hatte dieses Problem jedenfalls mit einer PaintBox.

PS: beim Loslassen wäre es eigentlich besser nachzufragen was wirklich unter der Maus ist und welchen Cursor der Mauszeiger haben sollte ... die Maus kann dabei ja schließlich außerhalb der Komponente (deines TImages) sein.