Hallo!
Also ich hab folgenden Code:
Code:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Cursor := crClosedHand; //das was ich eigentlich will
Caption := 'click'; //nur um zu sehen ob überhaupt was gemacht wird
end;
Was passiert:
Clicke ich mit rechts, so steht 'click' in der Titelleiste und der Cursor ändert sich wie er soll.
Clicke ich aber mit links, steht zwar 'click' in der Titelleiste, der Cursor ändert sich aber nicht.
Das soll einer verstehen..
Woran kann das liegen?
Gruß, Sebastian