procedure TOpinion_Form.Opinion_MemoKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

var

i : Integer;

S : String;

begin

i := Opinion_Memo.Perform(EM_LINEFROMCHAR, Opinion_Memo.SelStart, 0);

S := Opinion_Memo.Lines.Strings[i];

Case Key of

VK_RETURN :

begin

if S = '' then

begin

Remark_Form.Show;

Remark_Form.Remark_Memo.SetFocus;

end;

end;

end;

end;



ONKEYDOWN 이벤트에서,

위와같이 코딩을 VK_DOWN:, VK_UP: 에도 했는데 적용이 안되네요. Remark_Form은

ACTIVE만 되고

포커스는 그대로 Opinion_Form의 메모에 남아 있습니다.



VK_RETURN: 에는 적용이 됩니다. 포커스도 ACTIVE도 Remark_Form에 적용이 됩니다.

이유가 무엇인지, 어떻게 하면 되는지 부탁드립니다.