From Clomosy Docs

No edit summary
No edit summary
 
(7 intermediate revisions by 2 users not shown)
Line 1: Line 1:
<span style="color:red">Ask Method Supported Only For Windows. You can use [[AskAndCall | AskAndCall]].</span>
<div class="alert alert-ligth border border-3 border-primary-subtle rounded-5 p-4 shadow-sm" role="alert">
function Clomosy.Ask(var AskMessage:String): Boolean;
</div>


The "Ask" function is commonly used in Clomosy programming to display a dialog box where you can request user confirmation. You can use this function to ask a question or present options to the user.
The "Ask" function is commonly used in Clomosy programming to display a dialog box where you can request user confirmation. You can use this function to ask a question or present options to the user.<br>


Clomosy.Ask('Do you like Clomosy?');
By using "Clomosy.Ask," you can input a specific question. If the "Yes" button is clicked, the function returns a value of true. Otherwise, it returns false, allowing you to perform the desired operations.<br>


By using "Clomosy.Ask," you can input a specific question. If the "Yes" button is clicked, the function returns a value of true. Otherwise, it returns false, allowing you to perform the desired operations.
<div class="alert alert-danger" role="alert" data-bs-theme="light">
Ask Method Supported Only For Windows. You can use [[AskAndCall | AskAndCall]].
</div>


'''Example:'''<br>
<b>Example</b><br>
:'''Base Syntax'''
var
  MyForm:TCLForm;
  askBtn:TCLButton;
  getEdit :TClEdit;
  procedure ProcYes;
  begin
    ShowMessage('Yes Clicked');
  end;
  procedure ProcNo;
  begin
    ShowMessage('No Clicked');
  end;
  procedure askBtnOnClick;
  begin
 
    if getEdit.Text <> <nowiki>''</nowiki> then
    begin
      if Clomosy.Ask(getEdit.Text) then
        ProcYes;
      else
        ProcNo;
    end else
      ShowMessage('Please enter a question.');
  end;
begin
  MyForm := TCLForm.Create(Self);
  getEdit := MyForm.AddNewEdit(MyForm, 'getEdit','Enter the question...');
  getEdit.Align:=alMostTop;
  getEdit.Margins.Top:=20;
  getEdit.Margins.Right:=20;
  getEdit.Margins.Left:=20;
  askBtn:= MyForm.AddNewButton(MyForm,'askBtn','Ask Function');
  askBtn.Align:=alTop;
  askBtn.Margins.Top:=20;
  askBtn.Margins.Right:=20;
  askBtn.Margins.Left:=20;
  MyForm.AddNewEvent(askBtn,tbeOnClick,'askBtnOnClick');
  MyForm.Run;
end;


:'''TRObject Syntax'''
<pre>
  var
{
  MyForm:TCLForm;
  if Clomosy.Ask('Do you like Clomosy?')
  askBtn:TCLButton;
    ShowMessage('Yes');
  getEdit :TClEdit;
  else
  void ProcYes;
    ShowMessage('No');
  {
}
    ShowMessage('Yes Clicked');
</pre>
  }
 
  void ProcNo;
<h2> See Also </h2>
  {
* [[System_Library#Input-Output_Functions | Input Output Functions]]
    ShowMessage('No Clicked');
{{#seo:|title=Ask Using in Clomosy - Clomosy Docs}}
  }
{{#seo:|description=Clomosy.Ask shows a confirmation dialog, returning true if 'Yes' is clicked, otherwise false. For cross-platform use, switch to AskAndCall.}}
  void askBtnOnClick;
  {
   
    if not(getEdit.Text == '')
    {
      if (Clomosy.Ask(getEdit.Text))
        ProcYes;
      else
        ProcNo;
      }
      else
      ShowMessage('Please enter a question.');
  }
 
  {
  MyForm = TCLForm.Create(Self);
  getEdit = MyForm.AddNewEdit(MyForm, 'getEdit','Enter the question...');
  getEdit.Align=alMostTop;
  getEdit.Margins.Top=20;
  getEdit.Margins.Right=20;
  getEdit.Margins.Left=20;
 
  askBtn= MyForm.AddNewButton(MyForm,'askBtn','Ask Function');
  askBtn.Align=alTop;
  askBtn.Margins.Top=20;
  askBtn.Margins.Right=20;
  askBtn.Margins.Left=20;
 
  MyForm.AddNewEvent(askBtn,tbeOnClick,'askBtnOnClick');
 
  MyForm.Run;
  }

Latest revision as of 11:54, 8 January 2025

The "Ask" function is commonly used in Clomosy programming to display a dialog box where you can request user confirmation. You can use this function to ask a question or present options to the user.

By using "Clomosy.Ask," you can input a specific question. If the "Yes" button is clicked, the function returns a value of true. Otherwise, it returns false, allowing you to perform the desired operations.

Example

{
  if Clomosy.Ask('Do you like Clomosy?')
    ShowMessage('Yes');
  else
    ShowMessage('No');
}

See Also

Retrieved from "http:///index.php?title=Ask&oldid=3829"