Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  117

•  TDictionary Custom Sort  3 306

•  Fast Watermark Sources  3 056

•  3D Designer  4 809

•  Sik Screen Capture  3 306

•  Patch Maker  3 523

•  Айболит (remote control)  3 624

•  ListBox Drag & Drop  2 984

•  Доска для игры Реверси  81 500

•  Графические эффекты  3 911

•  Рисование по маске  3 219

•  Перетаскивание изображений  2 603

•  Canvas Drawing  2 725

•  Рисование Луны  2 549

•  Поворот изображения  2 158

•  Рисование стержней  2 157

•  Paint on Shape  1 561

•  Генератор кроссвордов  2 220

•  Головоломка Paletto  1 761

•  Теорема Монжа об окружностях  2 205

•  Пазл Numbrix  1 678

•  Заборы и коммивояжеры  2 049

•  Игра HIP  1 274

•  Игра Go (Го)  1 220

•  Симулятор лифта  1 467

•  Программа укладки плитки  1 211

•  Генератор лабиринта  1 537

•  Проверка числового ввода  1 346

•  HEX View  1 485

•  Физический маятник  1 351

 
скрыть


Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Как узнать значения, которые пользователь вводит в TDBGrid



С точки зрения программиста пользователь - это периферийное устройство, вводящее набор символов в ответ на команду READ.

Вы можете "видеть" что набирается в TDBGrid, "смотря" на контрол сетки TInPlaceEdit. Вы должны убедиться только в том, что к моменту использования TInPlaceEdit, контрол уже создан. Следующая функция покажет данные, редактируемые в колонках сетки:


procedure TForm1.DBGrid1KeyUp(Sender: TObject;
          var Key: Word; Shift: TShiftState);
var
  B: byte;
begin
  for B := 0 to DBGrid1.ControlCount - 1 do
    if DBGrid1.Controls[B] is TInPlaceEdit then
      with DBGrid1.Controls[B] as TInPlaceEdit do
        Label1.Caption := 'Text = ' + Text;
end;








Copyright © 2004-2024 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте