我想限制 Edit input 為 10 進制 or 16 進制 該如何去過
我把 key= NULL ; 應該不會把輸入 顯示 可是 行不通,還是有設定要設嗎?


void __fastcall TForm1::Edit1KeyUp(TObject *Sender, WORD &Key, TShiftState Shift)
{

if(((Key>=0x30)&&(Key<=0x39))||((Key>=0x41)&&(Key<=0x46))||((Key>=0x61)&&(Key<=0x66)))
{
//aSTR.sprintf("key:x %d",Key,Edit1->Text[1]);
//ListBox1->Items->Add(aSTR);
}
else
{
Key=NULL;
}

}

------
迎向有陽光的地方

你把你的程式移到KeyPress事件中試試看. 我也都是這樣做的.

改成下面
<textarea class="cpp" rows="10" cols="60" name="code"> String ss; TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Edit1KeyUp(TObject *Sender, WORD &Key, TShiftState Shift) { if(((Key>=0x30)&&(Key<=0x39))||((Key>=0x41)&&(Key<=0x46))||((Key>=0x61)&&(Key<=0x66))) { //aSTR.sprintf("key:x %d",Key,Edit1->Text[1]); //ListBox1->Items->Add(aSTR); } else { //Key=NULL; Edit1->Text= ss; } } //--------------------------------------------------------------------------- void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key) { ss = Edit1->Text; } //--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { Edit1->Text=""; } //--------------------------------------------------------------------------- </textarea>

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

謝謝 我試了 這方法可以做

------
迎向有陽光的地方