Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Medion X10 Mausklick

    Delphi
    by Gehstock, 16. Jan 2008
  hier aus dem forum bzw. dem restlichen Web.
  
  bei Interresse können wir auch zusammen dran arbeiten, anbei ein kleines demo der bisherigen Arbeit
  
  
  Funktionieren Tut die
  Maus,(RMB = Rename,LMB = EditImage(Ist komisch belegt aber die FB liefert diese werte kann man ja noch ändern))
  Mausrad (Ch +/-)
  Systemlautstärke (Vol +/-)
  Play,Pause,Mute
• Forum: Object-Pascal / Delphi-Language

  Re: Medion X10 Mausklick

    Delphi
    by Gehstock, 15. Jan 2008
  hat sich erledigt
  
  procedure TForm2.FX10Interface1X10Command(ASender: TObject;
  const bszCommand: WideString; eCommand: TOleEnum; lAddress: Integer;
  EKeyState: TOleEnum; lSequence: Integer; eCommandType: TOleEnum;
  varTimestamp: TDateTime);
  var
  p: TPoint;
  begin
  If (EKeyState = 1) Or (EKeyState = 3) Then
• Forum: Object-Pascal / Delphi-Language

  Medion X10 Mausklick

    Delphi
    by Gehstock, 15. Jan 2008
  also ich versuche meine Maus mit diesen Code zu Steuern das ansich klappt nur der Mausklick eben nicht
  
  case ecommand of
  13 : p.X := p.X - 10; //Links
  11 : p.X := p.X + 10; //Rechts
  19 : p.Y := p.Y - 10; //Hoch
  12 : p.Y := p.Y + 10; //Runter
  17 : begin
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0); //Linke MausT
  mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);