我是用BDE,在輸入數據時space鍵沒有反應.即不能加入空白. |
|
答題得分者是：P.D.
|
|
figo
初階會員   發表：47 回覆：70 積分：28 註冊：2004-12-18 發送簡訊給我 |
procedure Tfm_booking.booking_dbgDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if (gdFocused in state) then
begin
if booking_dbg.SelectedIndex in [3, 4] then
begin
scode_dbg.Top := Rect.Top booking_dbg.Top 18;
scode_dbg.Left := Rect.Left booking_dbg.Left;
container_id_dbg.Visible := false;
end; procedure Tfm_booking.booking_dbgKeyPress(Sender: TObject; var Key: Char);
begin
if key = #9 then
begin
exit;
end;
booking_dbg.ReadOnly := false;
booking_q.Edit;
if Key in ['a'..'z'] then Key := chr(ord(Key) - 32);
if (key <> #13) then
begin
if booking_dbg.SelectedIndex = 3 then
begin
booking_dbg.ReadOnly := true;
if key = #8 then
begin
booking_dbg.Columns[3].Field.AsString := UpperCase(copy(booking_dbg.Columns[3].Field.AsString, 0, Length(booking_dbg.Columns[3].Field.AsString) - 1));
selectScode_e.Text := booking_dbg.Columns[3].Field.AsString;
end
else
begin
booking_dbg.Columns[3].Field.AsString := UpperCase(booking_dbg.Columns[3].Field.AsString key);
selectScode_e.Text := booking_dbg.Columns[3].Field.AsString;
end;
end;
我是用BDE,在輸入數據是space鍵沒有反應.即不能加入空白.
例如: ab--->a b
不知各位沒有遇到這樣的問題,
在ado同樣的設定就不怕......
|
|
P.D.
版主  發表：603 回覆：4038 積分：3874 註冊：2006-10-31 發送簡訊給我 |
引言:
你的問題應該是出在紅色的部份, 因為 ['a'..'z']已經排除了空白chr(32), 所以空白才沒有反應
|
|
figo
初階會員 發表：47 回覆：70 積分：28 註冊：2004-12-18 發送簡訊給我 |
|
|
tonytop
中階會員 發表：6 回覆：114 積分：89 註冊：2003-12-04 發送簡訊給我 |
procedure Tfm_booking.booking_dbgKeyPress(Sender: TObject; var Key: Char);
begin
if Key in [' ', #9] then
begin
exit;
end;
booking_dbg.ReadOnly := false;
booking_q.Edit;
if Key in ['a'..'z'] then Key := chr(ord(Key) - 32);
if (key <> #13) then
begin
if booking_dbg.SelectedIndex = 3 then
begin
booking_dbg.ReadOnly := true;
if key = #8 then
begin
booking_dbg.Columns[3].Field.AsString := UpperCase(copy(booking_dbg.Columns[3].Field.AsString, 0, Length(booking_dbg.Columns[3].Field.AsString) - 1));
selectScode_e.Text := booking_dbg.Columns[3].Field.AsString;
end
else
begin
booking_dbg.Columns[3].Field.AsString := UpperCase(booking_dbg.Columns[3].Field.AsString key);
selectScode_e.Text := booking_dbg.Columns[3].Field.AsString;
end;
end;
程式簡單就是美，別搞得那麼複雜好嗎？ <[忙盲茫]>
☆會程式不是罪啊☆
|
|
figo
初階會員 發表：47 回覆：70 積分：28 註冊：2004-12-18 發送簡訊給我 |
|
|
figo
初階會員 發表：47 回覆：70 積分：28 註冊：2004-12-18 發送簡訊給我 |
發表時間：2005-04-11 16:52:03
IP:202.175.xxx.xxx 未訂閱
系統時間：2024-07-28 21:54:36
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |