全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1277
推到 Plurk!
推到 Facebook!

利用Edit累加MEMO.Text上

答題得分者是:老大仔
lovemari
中階會員


發表:134
回覆:224
積分:76
註冊:2005-08-18

發送簡訊給我
#1 引用回覆 回覆 發表時間:2009-04-22 18:24:54 IP:122.116.xxx.xxx 訂閱
小弟想讓使用者在Edit.Text填資料
每填寫一筆 按下Enter
就填入Memo中
Edit....
1 Enter
2 Enter
3 Enter

Memo
1
2
3
以此類推加下去
想請問這段該怎麼寫呢???
------
Program : Delphi 7
DataBase : Oracle 9i
Client : ClientDataSet
老大仔
尊榮會員


發表:78
回覆:837
積分:1088
註冊:2006-07-06

發送簡訊給我
#2 引用回覆 回覆 發表時間:2009-04-22 19:18:33 IP:59.114.xxx.xxx 未訂閱
請在Edit1的KeyPress事件中加入以下

[code delphi]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
Memo1.Lines.Add(Edit1.Text)
else Exit
end;

[/code]
系統時間:2024-05-19 11:46:35
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!