Im trying to do a procedure that When a key is pressed, It opens a msg box for the user to type in and then sends the message to the SMART Client.. Or Sends the KeyPressed..
But For some reason its NOT detecting If the F1 Key is pressed :S..
reason for doing this Procedure: Dont like having to constantly press disable smart in order to type.. Id rather have a hotkey for typing..
Is that even possible?? So far it works except that it doesnt detect the F1 key.. or any Hotkey Pressed..
PHP Code:program new;
{$DEFINE SMART}
{$i srl\srl.scar}
{$i reflection\reflection.simba}
var
Value : string;
Procedure ChatMessager;
Begin
If (IsFKeyDown(1)) then //If Fkey is down then Open MessageBox Popup..
Begin
Value := '';
format('[%s] the value = [%s]',[booltostr(InputQuery('Enter A Message','ENTER HERE:',value)),value]);
if not (Value = '') then //If Value Is not *Blank* then Send User Message...
begin
TypeSend(value);
end else
if (Value = 'Enter') then //Type 'Enter' in the message box To Open QuickChat...
begin
SendKeys(Chr(13));
end;
end else
If (IsKeyDown(27)) then //If Escape key Pressed, SendKey *Escape*...
Begin
SendKeys(Chr(27));
End;
End;
begin
ChatMessager;
end.








Reply With Quote



is there a way to get it to actually just work with smart?
