VPF::DBGrid и добавление информации - Форум программистов

Самурай

Дата 29.10.2005, 09:58 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 64
Регистрация: 20.10.2005
Где: Воронежская облас ть > Семилуки

Репутация: нет
Всего: 1

Я делаю так:

Код


       SendMessage(Wnd, WM_KEYDOWN, VK_DOWN, 0);
       SendMessage(Wnd, WM_SETFOCUS, 0, 0);
       s:='test';
       for i:=1 to Length(s) do
        SendMessage(Wnd, WM_CHAR, word(s[i]), 0);
       SendMessage(Wnd, WM_KEYDOWN, VK_ACCEPT, 0);
       Application.ProcessMessages;
       SendMessage(Wnd, WM_KEYDOWN, VK_UP, 0);
       SendMessage(Wnd, WM_KEYDOWN, VK_DOWN, 0);

Может есть способ лучше? И вообще, как лучше перейти на последнюю запись, т. е добавление чтобы происходило именно в самый конец таблицы?

Самурай

Дата 29.10.2005, 10:15 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Код


       SendMessage(Wnd, WM_SETFOCUS, 0, 0);
       SendMessage(Wnd, WM_KEYDOWN, VK_NEXT, 0);
       SendMessage(Wnd, WM_KEYDOWN, VK_DOWN, 0);
       s:='test1';
       for i:=1 to Length(s) do
        SendMessage(Wnd, WM_CHAR, word(s[i]), 0);
       SendMessage(Wnd, WM_KEYDOWN, VK_ACCEPT, 0);
       Application.ProcessMessages;
       SendMessage(Wnd, WM_KEYDOWN, VK_RIGHT, 0);
       s:='test1';
       for i:=1 to Length(s) do
        SendMessage(Wnd, WM_CHAR, word(s[i]), 0);
       SendMessage(Wnd, WM_KEYDOWN, VK_ACCEPT, 0);
       Application.ProcessMessages;
       SendMessage(Wnd, WM_KEYDOWN, VK_UP, 0);
       SendMessage(Wnd, WM_KEYDOWN, VK_DOWN, 0);

Это - добавление в таблицу с двумя колонками.

Мне не нравится строка SendMessage(Wnd, WM_KEYDOWN, VK_NEXT, 0);, которую нужно еще в цикл пихать, который не известно сколько раз придется проделывать, чтобы попасть на конец таблички... smile

_hunter

Дата 31.10.2005, 12:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 9
Всего: 98

странный код. проще добавить данные к DataSource-у этой сетки...

--------------------

Tempora mutantur, et nos mutamur in illis...

Самурай

Дата 31.10.2005, 19:18 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Цитата(_hunter @ 31.10.2005, 13:50)

странный код.

Я имитировал все свои действия, когда заношу новые данные в табицу.

Цитата(_hunter @ 31.10.2005, 13:50)

проще добавить данные к DataSource-у этой сетки...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »