Ja und? Willst du programmieren?
Delphi-Quellcode:
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var mb:tmousebutton;
begin
if ssleft in shift then mb:=mbleft;
if ssright in shift then mb:=mbright;
if ssmiddle in shift then mb:=mbmiddle;
ControlMouseMove(Form1, mb, Shift, X, Y);
end;
Leider verlierst du mit der Variante von TMousebutton Informationen, die in TShiftstate noch enthalten sind. Du weist dann nicht mehr, ob mehrere Tasten gleichzeitig gedrückt wurden. (Aber du gibst ja Shift noch weiter mit)