cbFiltr  өндеушісі үшін OnEnter

149 
 
    if (Fields[i] is TIntegerField) then 
      cbFiltr.Items.Add(Fields[i].DisplayLabel); 
  end; 
 end; 
end; 
Бағдарламаны жібергеннен кейін тізім дұрыс қалыптасуын тексеріңіз. 
8. 
edFiltr 
компонентасында  қолданушы  сандық  мәліметтерді  енгізеді. 
Қолданушы  қате  жібермеу  үшін,  осы  өрісте    сандардан  басқа  ештене  болмауы  керек. 
Берілген OnKeyPress  компонентасына өндеушіні құрамыз:  
procedure TfmMain.edFiltrKeyPress(Sender: TObject; var Key: Char); 

жүктеу/скачать 4,77 Mb.

Достарыңызбен бөлісу: