From Clomosy Docs

No edit summary
No edit summary
Line 10: Line 10:


<b>Example</b><br>
<b>Example</b><br>
<b>TRObject Syntax</b><br>
 
<pre>
<pre>
var
var
Line 45: Line 45:
   Form1.Run;
   Form1.Run;
  }
  }
</pre>
<b>Base Syntax</b><br>
<pre>
var
  Form1:TCLForm;
procedure KeyDown
begin
  if Form1.clSenderKeyChar = 32 then
  begin
    ShowMessage('Space Key Pressed');
  end
  else if Form1.clSenderKeyChar = 119 then
  begin
    ShowMessage('W Key Pressed');
  end;
end;
procedure KeyUp
begin
  if Form1.clSenderKeyChar = 97 then
  begin
    ShowMessage('The A key was released');
  end
  else if Form1.clSenderKeyChar = 100 then
  begin
    ShowMessage('The D key was released');
  end;
end;
begin
  Form1 := TCLForm.Create(Self);
  Form1.AddNewEvent(Form1, tbeOnKeyDown, 'KeyDown');
  Form1.AddNewEvent(Form1, tbeOnKeyUp, 'KeyUp')
  Form1.Run;
end;
</pre>
</pre>


<h2> See Also </h2>
<h2> See Also </h2>
* [[System_Library#Cl_Utilities_Functions | Cl Utilities Functions]]
* [[System_Library#Cl_Utilities_Functions | Cl Utilities Functions]]

Revision as of 10:47, 13 November 2024

In Clomosy, clSenderKeyChar contains a value representing the component that triggered the keyboard event when the event is processed (typically, a keyboard event is tied to a form or a button). This value contains either the character input by the user from the keyboard or the character value of the pressed key. To retrieve a value from this property, the tbeOnKeyUp and tbeOnKeyDown events are used.

The tbeOnKeyDown event is triggered when a key is pressed on the keyboard, whereas the tbeOnKeyUp event is triggered when a pressed key is released on the keyboard. The clSenderKeyChar property of the form is used to perform operations based on the input received from the keyboard. This property holds the information about the pressed or released key in decimal format. If you are unfamiliar with the decimal equivalents of keyboard keys, you can easily find them by searching for 'Key Code Table'.

In the example below, an application has been created that displays a message related to the pressed key based on the event that will occur according to the pressed key.

Example

var
   Form1:TCLForm;
 
 void KeyDown
 {
   if (Form1.clSenderKeyChar == 32)
   {
     ShowMessage('Space Key Pressed');
   }
   else if (Form1.clSenderKeyChar == 119)
   {
     ShowMessage('W Key Pressed');
   }
 }
 
 void KeyUp
 {
   if (Form1.clSenderKeyChar == 97)
   {
     ShowMessage('The A key was released');
   }
   else if (Form1.clSenderKeyChar == 100)
   {
     ShowMessage('The D key was released');
   }
 }
 
 {
   Form1 = TCLForm.Create(Self);
   Form1.AddNewEvent(Form1, tbeOnKeyDown, 'KeyDown');
   Form1.AddNewEvent(Form1, tbeOnKeyUp, 'KeyUp')
   Form1.Run;
 }

See Also