如何讓Edit1中內容輸入一個清空一個，用另外變數記錄輸入內容？？
求代碼，我在onkeypress中記錄，總是缺少一位數
uj5u.com熱心網友回復：
那就試試keyDownuj5u.com熱心網友回復：
啥是輸入一個清空一個，不是等于沒輸入么
uj5u.com熱心網友回復：
應該是讓用戶輸入了也看不到，后臺記錄起在，就像打麻將輸了就刷卡而不是付現。
uj5u.com熱心網友回復：
那輸入時顯示*，像輸入密碼那樣不就得了，不一定要清空嘛
uj5u.com熱心網友回復：
這么一說..不像好東西啊!
uj5u.com熱心網友回復：
自己做一個不顯示的控制元件.uj5u.com熱心網友回復：
Edit1.PasswordChar := #13;直接訪問Edit1.Text就可以
uj5u.com熱心網友回復：
這個是送分？
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
TForm1 = class(TForm)
btn1: TButton;
edt1: TEdit;
procedure edt1Change(Sender: TObject);
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
sText: string;
implementation
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
begin
ShowMessage(sText);
end;
procedure TForm1.edt1Change(Sender: TObject);
begin
sText := sText + edt1.Text;
edt1.Text := '';
end;
end.
uj5u.com熱心網友回復：
procedure TForm1.edt1Change(Sender: TObject); //資料發生變化事件！begin
edt2.Text=edit1.txt: //edit2中就是你想要的資料
edit1.Text := ''; //得到想要的資料后 清空EDIT1中的內容
end;
uj5u.com熱心網友回復：
樓上說完了……輸入的時候用變數記錄再把edit置空。。轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/118750.html
標籤：VCL組件開發及應用
下一篇：ISAPI Filter 求助