|
|
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#7
04.05.2009, 21:27
|
||||
|
||||
звиняй: по событию onkeyup а не 'press'
Код:
procedure TForm1.StringGrid1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin stringgrid2.Cells[0,0]:=floattostr(strtofloat(stringgrid1.cells[0,0])+strtofloat(stringgrid1.cells[0,1])); end; |
Древовидный вид