 |
|
Модераторы: Akina |
 
|
|
Как создать функцию Undo, Как создать функцию Undo 
| Денис |
|
|||
|
Unregistered |
:p ;) [email protected]
|
|||
|
||||
Загрузка ...
| Vit |
|
|||
 Vitaly Nevzorov  Профиль Группа: Экс. модератор Сообщений: 10964 Регистрация: 25.3.2002 Где: Chicago Репутация: нет Всего: 207 |
Где именно ее надо создать? Если в чем-то типа Edit то достаточно послать ему стандартное сообщение EM_UNDO
А email твой нам не нужен - ты зарегистрируйся и сможешь получать уведомления об ответах автоматически -------------------- With the best wishes, Vit I have done so much with so little for so long that I am now qualified to do anything with nothing Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru |
|||
|
||||
| Megazoid |
|
|||
|
Unregistered |
Нету такого свойства em_undo, не распознаёт его басик, может я чё не там искал, расскажы по подробней с описанием
|
|||
|
||||
| Vit |
|
|||
|
Vitaly Nevzorov Профиль Группа: Экс. модератор Сообщений: 10964 Регистрация: 25.3.2002 Где: Chicago Репутация: нет Всего: 207 |
На Бейсике я не программирую, но в Виндовых API есть функция SendMessage, вот ты берешь Handle твоего Edit и ему при помощи этой функции посылаешь EM_Undo (или EM_Redo если надо)... Может это и через одно место и в Бейсике механизм есть уже реализованный, я не знаю, но то что Бейсик может использовать WinAPI и в этих WinAPI есть эта функция и это сообщение - могу гарантировать.
-------------------- With the best wishes, Vit I have done so much with so little for so long that I am now qualified to do anything with nothing Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru |
|||
|
||||
| luda |
|
|||
|
Unregistered |
Вот, что могу предложить по Undo
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Sub Command1_Click() Const EM_UNDO = 199 SendMessage RichTextBox1.hwnd, EM_UNDO, 0, ByVal CLng(0) End Sub |
|||
|
||||
Дата 11.4.2002, 13:45 (| megazoidd |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 2 Регистрация: 4.4.2002 Репутация: нет Всего: нет |
Спосибо за подсказку, всё отлично работает!!!
|
|||
|
||||
|
|
| Правила форума "VB6" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | VB6 | Следующая тема » |
[ Время генерации скрипта: 0.1367 ] [ Использовано запросов: 21 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |