Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на Delphi и Lazarus

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 3.307 RSS
←   Август 2009   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusfaq.ru/
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

3.307 подписчиков
0 за неделю
←   Все выпуски   →

RFpro.ru: Программирование на Delphi


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный платный хостинг на базе Windows 2008

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Чемпионы рейтинга экспертов в этой рассылке

Jimhucksly
Статус: 5-й класс
Рейтинг: 512
∙ повысить рейтинг >> 		Сарумян
Статус: Практикант
Рейтинг: 504
∙ повысить рейтинг >> 		Тимошенко Дмитрий
Статус: Студент
Рейтинг: 341
∙ повысить рейтинг >>

∙ / КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 1415 от 02.08.2009, 01:35
Администратор рассылки: Калашников О.А., Руководитель
В рассылке: подписчиков - 564, экспертов - 197
В номере: вопросов - 1, ответов - 1

Нам очень важно Ваше мнение об этом выпуске рассылки. Вы можете оценить этот выпуск по пятибалльной шкале, пройдя по ссылке:
оценить выпуск >>

Вопрос № 170823: Здравствуйте уважаемые эксперты! Есть три вопроса, помогите пожалуйста 1. Есть форма, на ней компонент Memo и кнопка. Событие OnClick кнопки описано таким образом: procedure ......

Вопрос № 170823:

Здравствуйте уважаемые эксперты! Есть три вопроса, помогите пожалуйста

1. Есть форма, на ней компонент Memo и кнопка. Событие OnClick кнопки описано таким образом:

procedure ...
begin
Form2.ShowModal;
Memo.Text := '111;
end.

т.е. после клика на кнопке открывается форма в которой есть две кнопки: одна для продолжения процесса, т.е. вывод на Memo строки '111', а вторая соответственно для прекращения этой операции. Так вот как мне реализовать невыполнение остального кода процедуры после клика на второй кнопке?

2). Если например на компонент Memo выводится примерно 1млн. символов, то как мне сделать, чтобы в этот момент приложение не казалось зависшим? Полностью оно не зависает, а вывод всех чисел заканчивается через определенное время, просто надоедает сам процесс, так приложение кажется зависшым... Если можно поподробнее.

3). Как мне на форме отобразить а ктивирована ли клавиша Caps Lock и какой в данный момент выбран язык ввода (RU, EN)? Надеюсь на Вашу помощь. Спасибо огромное!!!!



Отправлен: 27.07.2009, 01:58
Вопрос задал: Николай // Programmator , Студент
Всего ответов: 1
Страница вопроса >>

Отвечает Влaдимир, Студент :
Здравствуйте, Николай // Programmator .
1. У кнопки есть свойство ModalResult. В инспекторе объектов присвойте свойству второй кнопки (прекращение операции) значение mrAbort и вместо
Form2.ShowModal
пишите
if Form2.ShowModal=mrAbort then exit;
2. Метод класса TApplicatiom ProcessMessages приостанавливает работу программы до тех пор, пока не будут обработаны все сообщения системы. Если в цикле вставить строку
Application.ProcessMessages;
то программа не будет казаться зависшей.
3. Для того чтобы определить состояние клавиш, можно использовать фкнкцию GetKeyBoardState, которая заполняет массив типа TKeyboardState = array[0..255] of Byte значениями, характеризующими состояние клавиши. Если установлен младший бит, то функция, закрепленная за клавишей активна. Если установлен старший бит, то клавиша в данный момент нажата. Пример использования в приложении.
По поводу раскладки клавиатуры попробуйте копать в сторону метода GetKeyboardLayout

Приложение:

Ответ отправил: Влaдимир, Студент
Ответ отправлен: 27.07.2009, 08:28

Оценка ответа: 5

Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 252662 на номер 1151 (Россия) | Еще номера >>
  • Отправить WebMoney:
    • Вам помогли? Пожалуйста, поблагодарите эксперта за это!

    Нам очень важно Ваше мнение об этом выпуске рассылки. Вы можете оценить этот выпуск по пятибалльной шкале, пройдя по ссылке:
    оценить выпуск >>

    подать вопрос экспертам этой рассылки >>

    Скажите "спасибо" эксперту, который помог Вам!

    Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
    на короткий номер 1151 (Россия)
    Номер ответа и конкретный текст СМС указан внизу каждого ответа.

    Полный список номеров >>

    * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
    ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
    *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.

    © 2001-2009, Портал RFpro.ru, Россия
    Авторское право: ООО "Мастер-Эксперт Про"
    Автор: Калашников О.А. | Программирование: Гладенюк А.Г.
    Хостинг: Компания "Московский хостер"
    Версия системы: 2009.6.6 от 21.07.2009
    В избранное