請問各位先進： 在 DBEdit、Edit、DBGrid 中，有沒有辦法讓 Insert 鍵的功能正常作用？ PS: 當我按下 Insert 鍵,卻無法取消 Insert 的功能, 永遠都只能在Insert的狀態下,無法進入Edit的狀態。 發表人 - chlo 於 2004/02/28 00:54:25

引言: 請問各位先進： 在 DBEdit、Edit、DBGrid 中，有沒有辦法讓 Insert 鍵的功能正常作用？

不知道你所謂正常作用指的何意! 系統原本設定功能就是插入

引言:

引言: 請問各位先進： 在 DBEdit、Edit、DBGrid 中，有沒有辦法讓 Insert 鍵的功能正常作用？

不知道你所謂正常作用指的何意! 系統原本設定功能就是插入

P.D.您好: 當我按下 Insert 鍵,卻無法取消 Insert 的功能, 永遠都只能在Insert的狀態下嗎?

引言: P.D.您好: 當我按下 Insert 鍵,卻無法取消 Insert 的功能, 永遠都只能在Insert的狀態下嗎?

應該是有辦法的, 不過平常並沒有去注意這個小地方, 一時找不到說明文件出處, 先請其他網友協助吧!

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  iSelStart: integer;
begin
  iSelStart := Edit1.SelStart;      if Odd(GetKeyState(VK_INSERT)) then
  begin
    if Edit1.SelLength = 0 then
    begin
      case Key of
        ' '..#126, #128..#255:
        begin
          Edit1.SelLength := 1;
          if (Edit1.SelLength > 0) and (Edit1.SelText[1] = #13) then
            Edit1.SelLength := 2;
        end;
      end;
      if IsDBCSLeadByte(Byte(Edit1.Text[iSelStart 1])) then
        Edit1.SelLength := 2;
    end;
  end;
end;

--- 屬於那自己生命的歌 不管是什麼顏色

引言:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  iSelStart: integer;
begin
  iSelStart := Edit1.SelStart;      if Odd(GetKeyState(VK_INSERT)) then
  begin
    if Edit1.SelLength = 0 then
    begin
      case Key of
        ' '..#126, #128..#255:
        begin
          Edit1.SelLength := 1;
          if (Edit1.SelLength > 0) and (Edit1.SelText[1] = #13) then
            Edit1.SelLength := 2;
        end;
      end;
      if IsDBCSLeadByte(Byte(Edit1.Text[iSelStart 1])) then
        Edit1.SelLength := 2;
    end;
  end;
end;

--- 屬於那自己生命的歌 不管是什麼顏色

感謝 hagar 版主 DBEdit、Edit已解決了,但 DBGrid 還是有問題, 是否能再指點迷津,感恩!!

var
  IsInsert: Boolean = True; // 此變數記錄現在是 insert 或 override 狀態    procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
var
  iSelStart: integer;
  c: TInplaceEdit;
  i: integer;
begin
  for i := 0 to DBGrid1.ControlCount -1 do
  begin
    if DBGrid1.Controls[i] is TInplaceEdit then
    begin
      c := TInplaceEdit(DBGrid1.Controls[i]);
      Break;
    end;
  end;      iSelStart := c.SelStart;      if not IsInsert then
  begin
    if c.SelLength = 0 then
    begin
      case Key of
        ' '..#126, #128..#255:
        begin
          c.SelLength := 1;
          if (c.SelLength > 0) and (c.SelText[1] = #13) then
            c.SelLength := 2;
        end;
      end;
      if IsDBCSLeadByte(Byte(c.Text[iSelStart 1])) then
        c.SelLength := 2;
    end;
  end;
end;    procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_INSERT then
  begin
    IsInsert := not IsInsert;
    Key := $00; // 吃掉 Insert 鍵, 因為按下 Insert 鍵會做新增一筆的動作
  end;
end;

--- 屬於那自己生命的歌 不管是什麼顏色

感謝 hagar 版主 都解決了