Venstre museknap trykket ned

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  case button of
    mbright : begin
              if ssdouble in shift then
                edit1.text := 'DoubleRightClick'
              else
                edit1.text := 'RightClick';
            end;
    mbleft  : Begin
              if ssdouble in shift then
                edit1.text := 'DoubleLeftClick'
              else
                edit1.text := 'LeftClick';
            end;
end;
end;


Snowball

if GetAsyncKeyState(VK_LBUTTON) <> 0 then
ShowMessage('Venstre museknap er trykket ned!');

Tak for 2 korrekte svar, pointene deles.

PZ

Takker for point :)