hi,
zu deinem 2. problem könnte ich dir helfen: mach n timer, da stellste das interval auf 50 und in dem timer-event kannste das hier reinnehmen:
Delphi-Quellcode:
if GetAsyncKeyState(VK_LBUTTON) then
showmessage('Die linke taste wurde gedrückt');
if GetAsyncKeyState(VK_RBUTTON) Then
showmessage('Die rechte taste wurde gedrückt');
wenn du dann auch noch überprüfen willst, ob die maus sich bewegt hat, kannste das ja mit ner pointer-variable machen. da kannste dir die mausposition per getcursorpos holen und immer vergleichen:
Delphi-Quellcode:
...
public LastPos:Pointer;
...
procedure TForm1.Timer1Timer(Sender:TObject);
var NewPos:pointer;
begin
...
getcursorpos(newpos);
if lastpos <> newpos then begin
showmessage('Die maus wurde bewegt');
lastpos := newpos;
end;
end;
...
habs jetzt net getestet, müsste aber funktionieren...