Khi dùng StringGrid thì có cách nào mà gõ Enter thì cái hộp sáng nó chuyển sang cell bên phải không ? Tui hí hoáy làm sao khi gõ Enter thì CT nó "bắt phím" để hộp sáng nó nhảy sang cell bên phải.... cứ enter thì nó chạy hết column(n) thì nó tạo một "row" mới giống như khi ấn phím TAB ????

Need help !

elleHCSC:

Khi dùng StringGrid thì có cách nào mà gõ Enter thì cái hộp sáng nó chuyển sang cell bên phải không ? Tui hí hoáy làm sao khi gõ Enter thì CT nó "bắt phím" để hộp sáng nó nhảy sang cell bên phải.... cứ enter thì nó chạy hết column(n) thì nó tạo một "row" mới giống như khi ấn phím TAB ????

Need help !

bạn assign event OnKeyPress() cho cái StringGrid rồi bỏ cái này vô:

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
Var r: TGridRect;
begin
  if Key = #13 then // Phím Enter được nhấn
  with StringGrid1 do
  begin
    r := Selection; // Selection là vùng đang được chọn, đặt trường hợp chỉ có 1 ô được chọn
    if (r.left = pred(ColCount)) and (r.top = pred(RowCount)) then // nếu đang ở ô cuối cùng thì...
      RowCount := RowCount + 1; // thêm một dòng mới

    if r.left < pred(ColCount) then // nếu ô đang chọn không phải đang ở cột cuối
      inc(r.left) // nhảy sang cột kế tiếp
    else // còn không, nếu đang ở cột cuối
    begin
      r.left := FixedCols; // nhảy về cột đầu tiên
      if r.top < pred(RowCount) then // nếu ô đang chọn không phải đang ở dòng cuối...
        inc(r.top); // nhảy sang dòng tiếp theo
    end;
    r.BottomRight := r.TopLeft; // chắc rằng chỉ 1 ô được chọn
    Selection := r; // ok, cập nhật thanh sáng của StringGrid
  end;
end;

ps: hàm Pred tương đương với -1

Duoc ru`i kintz a'. Nhung khi cu go~ het cac dong thi cai grid no khong tu dong keo xuong (scroll down) ma phai keo scroll bar thi cai dong minh moi nhap vao no moi hien len ?

How to do this ?

elleHCSC:

Duoc ru`i kintz a'. Nhung khi cu go~ het cac dong thi cai grid no khong tu dong keo xuong (scroll down) ma phai keo scroll bar thi cai dong minh moi nhap vao no moi hien len ?

How to do this ?

Nếu muốn scroll xuống dòng cuối thì Elle thêm cái này:
Perform(WM_VSCROLL, MakeWord(SB_BOTTOM, 0), 0);

Anh oi!
Giúp e với, e cũng muốn làm sự kiện tương tự nhưng e muốn khi nhấn enter thì nó nhảy từ dòng trên xuống dòng dưới trong diều kiện là cùng 1 cột ạ, làm ơn trả lời giúp e ạ, thanks bro trc nha

oài cái này lâu quá rùi...

Bạn thử dùng event keydown xem nhé ví dụ sau nhé, tôi chỉ nhớ VD dưới khi gõ enter thì hộp sáng nó nhảy sang phải, còn để nó luôn "xuống dòng" thì dựa vào đó bạn chỉnh thêm chút chắc là được:

procedure TForm1.BangKeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);
var theRow, theCol, MaxCol, MaxRow : Integer;
begin
  if (not (goEditing in Bang.Options)) then Bang.Options:=Bang.Options + [goEditing];
  MaxCol := Bang.ColCount-1;
  MaxRow := Bang.RowCount-1;

  With Bang do begin
    //------------------------------------------- go phim ENTER;
    if (key=VK_RETURN) then begin
      theRow := Bang.Row;
      theCol := Bang.Col;
      if theCol < MaxCol then inc(theCol) else begin
        if theRow < MaxRow then inc(theRow);
        theCol := Bang.FixedCols;
      end;
      Bang.Col := theCol;
      Bang.Row := theRow;
    end; //key

  end;// bang;
end;