±ÍÇÏ´Â ¼Õ´Ô À̽ʴϴÙ
·Î±×ÀÎ
ȸ¿ø°¡ÀÔ
  
  µ¨¸¶´ç °ø½Ä ÀºÇà°èÁÂ
  ÇϳªÀºÇà 227-910235-83607
  ¿¹±ÝÁÖ ÀÌ»ó±¹(¿î¿µÁø)
ÇÁ·ÎÁ§Æ® °Ô½ÃÆÇ
ÅõÇ¥°Ô½ÃÆÇ
µ¨¸¶´ç¼Ò°³
±âÃʺÎÅÍ È°¿ë±îÁö! µ¨ÆÄÀÌ ±³À° - µ¥ºê±â¾î
°­ÁÂ, ÆÁ, Á¤º¸ °­ÁÂ, ÆÁ, Á¤º¸ ÀÔ´Ï´Ù.
±Û³»¿ë - °­ÁÂ, ÆÁ, Á¤º¸
 ±×¸®µå ÀÚÀ½¸ðÀ½ ºÐ¸® Çö»ó ÇØ°áÃ¥!!
²Þ³ª¹«
(Á¶¿ëÇö)
2019-02-20 ¿ÀÈÄ 4:45:42
Ä«Å×°í¸®: ÆÁ
5196ȸ Á¶È¸



µî·ÏµÈ ÆÄÀÏÀÌ ¾ø½À´Ï´Ù.
1. °³¹ß/½ÇÇà Ç÷§Æû 
  (1) OS : Windows10
  (2) °³¹ßÅø : Delphi7
  (3) »ç¿ë Database : MS SQL

Win10¿¡¼­ ±×¸®µå Ã¹ ÀԷ½àÀÚÀ½¸ðÀ½ ºÐ¸® Çö»ó °ü·Ã ÇØ°áÃ¥ÀÔ´Ï´Ù. 

Àúµµ ±¸±ÛÀ̳ª µ¨¸¶´ç¿¡µµ ¸¹ÀÌ °Ë»ö ÇÏ°í Ã£Áö ¸øÇÑ ³»¿ëÀÔ´Ï´Ù. 

±×³ª¸¶ ÇØ°áÃ¥À» Ã£¾Æ ¸ðµÎ °øÀ¯Çغ¼±î ÇÕ´Ï´Ù.

procedure TfMain.DBGridEh1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key = vk_return) then
  begin
    if (sender as TDBGridEh).DataSource.DataSet.State in [dsBrowse] then
      (sender as TDBGridEh).DataSource.DataSet.FieldByName((sender as TDBGridEh).SelectedField.FieldName).FocusControl;
    end;
end;

±×¸®µå KeyDown À̺¥Æ®¿¡¼­ DataSetÀÇ State°¡ dsBrowse À϶§ ÇØ´çÇʵ带 FocusControl ÇÕ´Ï´Ù.

procedure TfMain.DBGridEh3ColEnter(Sender: TObject);
begin
  inherited;
  if (sender as TDBGridEh).DataSource.DataSet.State in [DsEdit, DsInsert] then
    (sender as TDBGridEh).DataSource.DataSet.Fields[(sender as TDBGridEh).SelectedField.Index].FocusControl;
end;

±×¸®µå ColEnter À̺¥Æ®¿¡¼­ DataSetÀÇ State°¡ DsEdit, DsInsert ÀÏ´ë ¸¶Âù°¡Áö·Î FocusControl ÇÕ´Ï´Ù.

À§¿Í°°ÀÌ Àû¿ëÇÑ´Ù¸é Edit, InsertÀÏ°æ¿ì ºÐ¸®Çö»óÀ» ¸·À»¼ö ÀÖ¾ú½À´Ï´Ù.

´õ ÁÁÀº ¹æ¾ÈÀÌ »ý±â¸é ¶Ç °øÀ¯ÇÏ°Ú½À´Ï´Ù.