procedure TKINDS_FRM.KINDS_CODE_EDITMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
           If Sender = KINDS_CODE_EDIT             Then
                       StatusBar.Panels[0].Text := '단가코드를 입력하세요...'
     Else  If Sender = KINDS_NAME_EDIT             Then
                       StatusBar.Panels[0].Text := '품종명을 입력하세요...'
     Else  If Sender = KINDS_COST_EDIT           Then
                       StatusBar.Panels[0].Text := '단가를 입력하세요....'
     Else  If Sender = StringGrid1              Then
                       StatusBar.Panels[0].Text := 'Dbl_Click을 하면 자료가 DISPLAY 됩니다....'
     Else  If Sender = Panel2                   Then
                       StatusBar.Panels[0].Text := ''
end;
이것은 제가 사용한 MOUSEMOVE인데 이와 비슷하지 않을까여..


아마 돨겁니다..

바다사랑..