I
import
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Timer1Timer(Sender: TObject); var keystate:TKeyboardState;
begin
caption:='';
GetKeyboardState(keystate);
if keystate[vk_lbutton] and $80 <>0 then
caption:='lbutton down';
if keystate[vk_rbutton] and $80 <>0 then
caption:='Rbutton down';
end;
begin
caption:='';
GetKeyboardState(keystate);
if keystate[vk_lbutton] and $80 <>0 then
caption:='lbutton down';
if keystate[vk_rbutton] and $80 <>0 then
caption:='Rbutton down';
end;