Welcher MouseButton status?

[EWeiss]

Zitat von sirius:

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)

Jo danke
Extrem umständlich wenn ich bedenke das der Button status bei VB im FormMouseMove ereignis schon enthalten ist.
Um was es mir dabei geht siehe hier http://www.delphipraxis.net/internal...=738660#738660

gruss Emil