ClSenderKey

Form1.clSenderKey: Integer;

The clSenderKey feature captures the codes of keys on the keyboard that have special functions, excluding standard character keys (a-z, 0-9, etc.), and performs specific actions based on them.

These types of keys are generally referred to as "control keys" or "special keys." These control keys on the keyboard include arrow keys, function keys (F1-F12), Ctrl, Alt, Shift, Escape, Enter, Backspace, and other similar keys.

To detect these keys, the tbeOnKeyDown or tbeOnKeyUp events are used, as these events use virtual key codes and can capture keys that do not represent characters. For example, they can be used to move an image (TclImage) on the screen using the arrow keys.

Below is a table of control keys.

Key Code	Key
8	Backspace
9	Tab
13	Enter
16	Shift
17	Ctrl
18	Alt
19	Pause
20	CapsLock
27	Escape
33	PageUp
34	PageDown
35	End
36	Home
37	ArrowLeft
38	ArrowUp
39	ArrowRight
40	ArrowDown
45	Insert
46	Delete
91	Windows Key
93	ContextMenu/ Windows Menu
112	F1
113	F2
114	F3
115	F4
116	F5
117	F6
118	F7
119	F8
120	F9
121	F10
122	F11
123	F12
144	NumLock
145	ScrollLock

NOTE: You should run and test Example 1 on Windows.

Example 1
In the following example, a form is created with an image that can be moved around the screen using the arrow keys. The SetMotion procedure checks the key code captured by clSenderKey. When the left arrow key (37) is pressed, the image rotates 180 degrees and moves left by 5 units unless it has reached the left edge of the form. When the right arrow key (39) is pressed, the image rotates back to 0 degrees and moves right by 5 units unless it has reached the right edge. When the up arrow key (38) is pressed, the image rotates 270 degrees and moves up by 5 units unless it has reached the top edge. When the down arrow key (40) is pressed, the image rotates 90 degrees and moves down by 5 units unless it has reached the bottom edge. If any other keys are pressed, a message prompts the user to use only the arrow keys. The form is created, an image is added and centered, and an event handler is set up to call the SetMotion procedure on key down.

var
  Form1:TCLForm;
  Image1 : TclImage;
  
void SetMotion;
{
  if(Form1.clSenderKey == 37) //LEFT ok tuşu 37
  {
    Image1.RotationAngle = 180;
    if(Image1.Position.X <= 0)
      ShowMessage('Can''t Go Any Further Left');
    else 
      Image1.Position.X = Image1.Position.X - 5;
  }
  else if(Form1.clSenderKey == 39) //RIGHT ok tuşu 39
  {
    Image1.RotationAngle = 0;
    if(Image1.Position.X >= Form1.clWidth)
      ShowMessage('Can''t Go Any Further Right');
    else 
      Image1.Position.X = Image1.Position.X + 5;
  }
  else if(Form1.clSenderKey == 38) //yukarı ok tuşu 38
  {
    Image1.RotationAngle = 270;
    if(Image1.Position.Y <= 0)
      ShowMessage('Can''t Go Any Further Higher');
    else 
      Image1.Position.Y = Image1.Position.Y - 5;
  }
  else if(Form1.clSenderKey == 40) //aşağı ok tuşu 40
  {
    Image1.RotationAngle = 90;
    if(Image1.Position.Y >= Form1.clHeight)
      ShowMessage('Can''t Go Any Further Lower');
    else 
      Image1.Position.Y = Image1.Position.Y + 5;
  }
  else
  {
    ShowMessage('Please use only directional arrow keys..');
  }
}

{
  Form1 = TCLForm.Create(Self);
  Image1 = Form1.AddNewImage(Form1,'Image1');
  Image1.Align = AlNone;
  Image1.Position.X = Form1.clWidth / 2;
  Image1.Position.Y = Form1.clHeight / 2;
  Image1.Width = 100;
  Image1.Height = 100;
  Form1.setImage(Image1,'https://clomosy.com/demos/circled-right.png');
  
  Form1.AddNewEvent(Form1,tbeOnKeyDown,'SetMotion');
  Form1.Run;
}

Example 2
The example contains a series of procedures for controlling and altering a character's size and position. For instance, the SetZoomIn procedure is used to enlarge the character, but it includes various checks to ensure that the enlargement does not exceed the movement area boundaries. The SetZoomOut procedure reduces the character's size, similarly checking for boundary limits. Additionally, procedures such as SetGoUp, SetGoDown, SetGoLeft, and SetGoRight are used to move the character up, down, left, and right, respectively. These movement and size adjustment operations are carried out with animations to provide visual feedback to the user.
The initial setup of the form and button placement is designed to differ for mobile and desktop platforms. For mobile platforms, buttons are added to provide access to movement and size adjustment functions, while desktop platforms use keyboard shortcuts. This approach ensures that the user interface is designed to support user interaction across different platforms.

var
  Form1: TclForm;
  pnlMotionConsole, motionPanel: TCLPanel;
  ImgCharacter: TCLImage;
  btnUp,btnDown,btnRight,btnLeft,btnZoomIn,btnZoomOut: TClButton;
  incomingValue, BottomPosX,x,intermediateValue: Integer
  lbltopBar : TclProLabel;


void SetZoomIn
var
  rightPosX,BottomPosX,aradeger:Integer
{
rightPosX=ImgCharacter.Position.X+ImgCharacter.Width
BottomPosX=ImgCharacter.Position.Y+ImgCharacter.Height
  if(((incomingValue>200-ImgCharacter.Height) && (200-ImgCharacter.Height>0)) || ((incomingValue>200-ImgCharacter.Width) && (200-ImgCharacter.Width>0)) ) 
  {
   x=200-ImgCharacter.Height;
   intermediateValue=200-ImgCharacter.Width;
   clAnimateFloat(ImgCharacter,'Height',200,1,1,0);
   clAnimateFloat(ImgCharacter,'Width',200,1,1,0); 
   clAnimateFloat(ImgCharacter,'Position.X',ImgCharacter.Position.X - intermediateValue / 2,1,1,0);
   clAnimateFloat(ImgCharacter,'Position.Y',ImgCharacter.Position.y - x / 2,1,1,0);
  }
  else if((ImgCharacter.Height+incomingValue>200) || (ImgCharacter.Width+incomingValue>200))
  {
    ShowMessage('You Have Reached Your Magnification Limit!');
  }
  else if((ImgCharacter.Position.X<incomingValue) || (rightPosX+20>motionPanel.Width))
  {
    ShowMessage('You Can''t Exceed the Limits!');
  }
  else if((ImgCharacter.Position.Y<incomingValue) || (BottomPosX+20>motionPanel.Height))
  {
    ShowMessage('You Can''t Exceed the Limits!');
  }
  else
  {
    clAnimateFloat(ImgCharacter,'Height',ImgCharacter.Height+incomingValue,1,1,0);
    clAnimateFloat(ImgCharacter,'Width',ImgCharacter.Width+incomingValue,1,1,0);
    clAnimateFloat(ImgCharacter,'Position.X',ImgCharacter.Position.X - incomingValue / 2,1,1,0);
    clAnimateFloat(ImgCharacter,'Position.Y',ImgCharacter.Position.Y - incomingValue / 2,1,1,0);
  }
}
  
  
void SetZoomOut
var
  rightPosX,BottomPosX:Integer
{
rightPosX=ImgCharacter.Position.X+ImgCharacter.Width
BottomPosX=ImgCharacter.Position.Y+ImgCharacter.Height
  if((ImgCharacter.Width<=20) || (ImgCharacter.Height<=20))
  {
    ShowMessage('You Can''t Shrink Any More!');
  }
  else if(((incomingValue>ImgCharacter.Height-20)&&(ImgCharacter.Height-20>0)) || ((incomingValue>ImgCharacter.Width-20)&&(ImgCharacter.Width-20>0)))
  {
    x=ImgCharacter.Height-20
    intermediateValue=ImgCharacter.Width-20
    clAnimateFloat(ImgCharacter,'Width',20,1,1,0);
    clAnimateFloat(ImgCharacter,'Height',20,1,1,0);
    clAnimateFloat(ImgCharacter,'Position.X',ImgCharacter.Position.X + incomingValue / 2,1,1,0)
    clAnimateFloat(ImgCharacter,'Position.Y',ImgCharacter.Position.Y + incomingValue / 2,1,1,0)
  }
  else
  {
    clAnimateFloat(ImgCharacter,'Width',ImgCharacter.Width-incomingValue,1,1,0);
    clAnimateFloat(ImgCharacter,'Height',ImgCharacter.Height-incomingValue,1,1,0);
    clAnimateFloat(ImgCharacter,'Position.X',ImgCharacter.Position.X + incomingValue / 2,1,1,0)
    clAnimateFloat(ImgCharacter,'Position.Y',ImgCharacter.Position.Y + incomingValue / 2,1,1,0)
  }
}




void SetGoUp
{
  if(ImgCharacter.Position.Y<=0)
  {
    ShowMessage('You Can''t Go Any Higher!');
  }
  else if(ImgCharacter.Position.Y<incomingValue)
  {
    clAnimateFloat(ImgCharacter,'Position.Y',0,1,1,0)
  }
  else
  {
    clAnimateFloat(ImgCharacter,'Position.Y',ImgCharacter.Position.Y-incomingValue,1,1,0)
  }
}

void SetGoDown
var
  BottomPosX: Integer
{
BottomPosX=ImgCharacter.Position.Y+ImgCharacter.Height
   if(BottomPosX>=motionPanel.Height)
   {
    ShowMessage('You Can''t Go Any Lower!'); 
   }
   else if(motionPanel.Height-BottomPosX<incomingValue)
   {
     clAnimateFloat(ImgCharacter,'Position.Y',motionPanel.Height - ImgCharacter.Height,1,1,0)
   }
   else 
   {
     clAnimateFloat(ImgCharacter,'Position.Y',ImgCharacter.Position.Y + incomingValue,1,1,0)
   }
}

void SetGoLeft
{
  if(ImgCharacter.Position.X<=0)
  {
    ShowMessage('You Can''t Go Any Left!');
  }
  else if(ImgCharacter.Position.X < incomingValue)
  {
    clAnimateFloat(ImgCharacter,'Position.X',0,1,1,0)
  }
  else 
  {
    clAnimateFloat(ImgCharacter,'Position.X',ImgCharacter.Position.X - incomingValue,1,1,0)
  }
}



void SetGoRight
var
  rightPosX: Integer
{
rightPosX=ImgCharacter.Position.X+ImgCharacter.Width
  if(rightPosX>=motionPanel.Width)
  {
    ShowMessage('You can''t go any further to the right');
  }
  else if(motionPanel.Width-rightPosX<incomingValue)
  {
  clAnimateFloat(ImgCharacter,'Position.X',motionPanel.Width - ImgCharacter.Width,1,1,0)
  }
  else 
  {
  clAnimateFloat(ImgCharacter,'Position.X',ImgCharacter.Position.X + incomingValue,1,1,0)
  }
}
  
void SetMotion
{
  if(Form1.clSenderKey == 37) 
   {
     SetGoLeft;
   }
   else if(Form1.clSenderKey == 39) 
   {
     SetGoRight;
   }
   else if(Form1.clSenderKey == 38) 
   {
     SetGoUp;
   }
   else if(Form1.clSenderKey == 40) 
   {
     SetGoDown;
   }
   else if((Form1.clSenderKeyChar == 43) || (Form1.clSenderKeyChar == 98) || (Form1.clSenderKeyChar == 66))
   {
     SetZoomIn;
   }
   else if((Form1.clSenderKeyChar == 45) || (Form1.clSenderKeyChar == 107) || (Form1.clSenderKeyChar == 75))
   {
     SetZoomOut;
   }
   else
   {
     ShowMessage('Please Use the Buttons Below'#13'To Move: Arrow Keys'#13'To Enlarge: B or + (numpad)'#13'To Reduce : K or - (numpad)');
   }
}


{
  incomingValue=20
  Form1= TclForm.Create(Self);
  Form1.SetFormColor('#f3afaf', '', clGNone);
  TclButton(Form1.clFindComponent('BtnFormMenu')).Visible = False;
  TclButton(Form1.clFindComponent('BtnGoBack')).Visible = False;
  
  lbltopBar= Form1.AddNewProLabel(Form1,'lbltopBar','Move with the arrow keys. ''+'' and ''-'''#13'You can make the character smaller with the buttons..');
  lbltopBar.Align=alTop;
  lbltopBar.Height= Form1.clHeight / 9;
  lbltopBar.clProSettings.FontColor = clAlphaColor.clHexToColor('#030303');
  lbltopBar.clProSettings.FontSize = 14;
  lbltopBar.clProSettings.FontVertAlign = palcenter;
  lbltopBar.clProSettings.FontHorzAlign = palcenter;
  lbltopBar.clProSettings.TextSettings.Font.Style = [fsBold,fsItalic];
  lbltopBar.clProSettings.BorderColor = clAlphaColor.clHexToColor('#d55353');
  lbltopBar.clProSettings.BorderWidth = 5;
  lbltopBar.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#d17a7a');
  lbltopBar.clProSettings.IsRound = True;
  lbltopBar.clProSettings.RoundHeight = 20;
  lbltopBar.clProSettings.RoundWidth = 20;
  lbltopBar.SetclProSettings(lbltopBar.clProSettings);
  
  motionPanel= Form1.AddNewPanel(Form1,'motionPanel')
  motionPanel.Align=AlClient;
  motionPanel.Margins.Top = 10;
  motionPanel.Margins.Bottom = 10;
  motionPanel.Margins.Left = 10;
  motionPanel.Margins.Right = 10;
  
  ImgCharacter= Form1.AddNewImage(motionPanel,'ImgCharacter');
  Form1.SetImage(ImgCharacter,'https://clomosy.com/educa/ufo.png');
  ImgCharacter.Align=alNone;
  ImgCharacter.Position.X= Form1.clWidth / 2 - ImgCharacter.Width / 2;
  ImgCharacter.Position.Y= motionPanel.Height / 2 - ImgCharacter.Height / 2;
  ImgCharacter.Height= 50;
  ImgCharacter.Width= 50;
  
  Form1.Run;
  
  if(Clomosy.PlatformIsMobile)
  {
    pnlMotionConsole= Form1.AddNewPanel(Form1,'pnlMotionConsole');
    pnlMotionConsole.Align= AlBottom;
    pnlMotionConsole.Margins.Bottom=20;
    pnlMotionConsole.Height=200;
    
    btnLeft= Form1.AddNewButton(pnlMotionConsole, 'btnLeft', 'LEFT');
    btnLeft.Align=alLeft;
    btnLeft.Width=100;
    btnLeft.Margins.Top=20;
    btnLeft.Margins.Bottom=20;
    Form1.AddNewEvent(btnLeft,tbeOnClick,'SetGoLeft');
    
    
    btnRight= Form1.AddNewButton(pnlMotionConsole, 'btnRight', 'RIGHT');
    btnRight.Align=alRight;
    btnRight.Width=100;
    btnRight.Margins.Top=20;
    btnRight.Margins.Bottom=20;
    Form1.AddNewEvent(btnRight,tbeOnClick,'SetGoRight')
    
    
    btnUp= Form1.AddNewButton(pnlMotionConsole, 'btnUp', 'UP');
    btnUp.Align=alTop;
    btnUp.Width=100;
    btnUp.Margins.Top=10;
    btnUp.Height=40;
    Form1.AddNewEvent(btnUp,tbeOnClick,'SetGoUp');
    
    btnDown= Form1.AddNewButton(pnlMotionConsole, 'btnDown', 'DOWN');
    btnDown.Align=alBottom;
    btnDown.Width=100;
    btnDown.Margins.Bottom=10; 
    btnDown.Height=40;
    Form1.AddNewEvent(btnDown,tbeOnClick,'SetGoDown');
    
    btnZoomIn= Form1.AddNewButton(pnlMotionConsole, 'btnZoomIn', '+')
    btnZoomIn.Align=alLeft;
    btnZoomIn.Margins.Top=20;
    btnZoomIn.Margins.Bottom=20;
    btnZoomIn.Margins.Left=5;
    Form1.AddNewEvent(btnZoomIn,tbeOnClick,'SetZoomIn');
    
    btnZoomOut= Form1.AddNewButton(pnlMotionConsole, 'btnZoomOut', '-')
    btnZoomOut.Align=alRight;
    btnZoomOut.Margins.Top=20;
    btnZoomOut.Margins.Bottom=20;
    btnZoomOut.Margins.Right=5;
    Form1.AddNewEvent(btnZoomOut,tbeOnClick,'SetZoomOut');
  }
  else
    Form1.AddNewEvent(Form1,tbeOnKeyDown,'SetMotion');
}

See Also

• Cl Utilities Functions