Prompt olarak sadece sayısal veri girişi yapılabilecek mesajı nasıl verdire bilirim.

[pro_imaj]

Merhaba;

 

Simple Prompt örneğini inceliyorum, veri girişini sadece sayısal zorunlu girişe nasıl çevirebilrim.

 

Saygılarımla

Teşekkürler.

[pro_imaj]

Prompt kullanırken Screen Mask'te çıkan mesajı nasıl değiştirebilirim.

[Sherzod]

Merhaba;

 

Simple Prompt örneğini inceliyorum, veri girişini sadece sayısal zorunlu girişe nasıl çevirebilrim.

 

Saygılarımla

Teşekkürler.

 

Hi,

 

Do you want allow to the user to enter only numbers ?!

[pro_imaj]

Yes, I just want the number to be entered

[Sherzod]

Hi,

 

Then, can you try this approach for now?!:

 

For example:

procedure TMainForm.UniButton1Click(Sender: TObject);
begin
  Prompt('Please enter a number', '', mtInformation, mbOKCancel, PromptCallBack);
  
  // -->
  UniSession.AddJS('Ext.get("messagebox-1001-textfield-inputEl").on("keydown", '+
                   'function(e) {var code = e.browserEvent.keyCode; if (!(code>=48&&code<=57)&&!(code>=97&&code<=105)&&code!==46&&code!==8) '+
                   '{e.stopEvent();}})');
end;

procedure TMainForm.PromptCallBack(Sender: TComponent; AResult:Integer; AText: string);
begin
  if AResult = mrOK then
  begin
    UniMemo1.Lines.Add(AText);
  end;
  UniSession.AddJS('Ext.get("messagebox-1001-textfield-inputEl").un("keydown")'); //<--
end;

Best regards.

[pro_imaj]

Nice! Thank You.

 

Best regards

[Sherzod]

but still need to think about "paste" from the "context menu"...

[pro_imaj]

It works very well.