| ← Ноябрь 2003 → | ||||||
|
2
|
||||||
|---|---|---|---|---|---|---|
|
3
|
4
|
6
|
8
|
|||
|
10
|
12
|
14
|
16
|
|||
|
18
|
19
|
21
|
23
|
|||
|
24
|
27
|
29
|
||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RusFAQ.ru: Программирование на Delphi
| Информационный Канал Subscribe.Ru |
RusFAQ.ru: Программирование на C++ Builder / Delphi
Выпуск № 244
от 13.11.2003, 15:20
| Администратор: Имя: Калашников О.А. URL: Информационный ресурс ICQ: 68951340 Россия, Москва |
О рассылке: Задано вопросов: 1103 Отправлено ответов: 2295 Активность: 208.0 %
|
| Список экспертов, ответы которых опубликованы в данном выпуске |
| Boriss Статус: Опытный Общий рейтинг: 143.12 Телефон: (8342) 324312 [Подробней >>] |
sir henry Статус: Опытный Общий рейтинг: 159.2 [Подробней >>] |
samum2000 Статус: Доверительный Общий рейтинг: 123.42 [Подробней >>] |
| Bob Johnson Статус: Профессиональный Общий рейтинг: 149.25 URL: Программирование [Подробней >>] |
| Краткий перечень вопросов |
Вопрос № 1092. Привет. var i: integer=1; s: AnsiString; procedure TForm1.Timer1Timer(Sender: TObject); begin... (ответов: 1)
Вопрос № 1093. Здравствуйте Сэр Генри. По поводу вопроса 1090. Просто когда-то лет 10 назад или чуть меньше прекрас... (ответов: 1)
Вопрос № 1094. Здравствуйте эксперты! Кто знает как можно определить в Edite какие символы были присвоенны программ... (ответов: 2)
Вопрос № 1095. Уважаемый ЭКСперты! Подскажите пожалуйста, как можно анимировать свою форму? Т.е. чтобы при загрузке... (ответов: 3)
Вопросов: 4, ответов: 7
| Вопрос № 1092 |
Привет.
var
i: integer=1;
s: AnsiString;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
s:=copy(memo1.text,0,length(memo1.text)-1);
memo1.text:=s+memo2.text[i]+'_';
i:=i+1;
end;
end.
Как сделать так, чтобы Мемо1 мерцало при перересовке?
Вопрос отправлен: 08.11.2003, 18:15
Отправитель: maDByte
[Следующий вопрос >>] [Список вопросов]
Отвечает Boriss
Добрый день, maDByte!
Во-первых, в чем цель перезаписи по таймеру? Если есть, то поставь второй таймер с меньшим периодом.
Можно так:
var
ColorCount: Integer;
При записи по первому таймеру устанавливаем
ColorCount:=5; и Timer2.Enabled:=True;
Обработчик Timer2Timer меняет цвет Memo1.Color и уменьшает ColorCount, и если он <=0 то выключается
Ответ отправлен: 10.11.2003, 12:02
Отправитель: Boriss
| Вопрос № 1093 |
Здравствуйте Сэр Генри.
По поводу вопроса 1090. Просто когда-то лет 10 назад или чуть меньше прекрасно знал Basic(даже написал некое подобие операционной системы, ессно это был примитив, и она только чут-чуть облегчала работу), потом паскаль изучил, сейчас это уже не катит, хотелось бы изучить делфи. Но есть одно но, не знаю ни операторов(что бы писать свои обработчики событий. А если там есть стандартные, чего я пока не выяснил, я их всё равно применять вряд ли буду, т.к. хочется программировать, а не собирать программу по кускам), ни их правила записи, все книги которые я встречал начинаются и заканчиваются примерами с объяснениями как работают(А я ведь начинаю с нуля). В результате получается сложно отличить одно от другого. И большое спасибо за ссылки, сейчас по ним заскочу.
Вопрос отправлен: 09.11.2003, 12:27
Отправитель: Алексей
[Следующий вопрос >>] [Список вопросов]
Отвечает sir henry
Приветствую Вас, Алексей!
Если коротко - то Дельфи это тот-же самый Паскаль один к одному :). Естественно, раз по новому назвали, то есть ряд усовершенствований, например по сравнению с ВР7 введены операторы обработки ран-тайм ошибок TRY..EXCEPT. По моему мнению, это самое главное усовершенствование :).
Я, в свое время, прошел тот-же путь: сначала Бэйсик, потом Паскаль, потом Дельфи (параллельно с Си, Си++, ФоксПро :). Самый мой любимый язык это Паскаль и дельфи. В изучении Паскаля и Дельфи мне хорошо помогли книги Фаронова, советую их приобрести. "Дельфи. Учебный куос" и "Дельфи. Руководство разработчика баз данных". После слова "Дельфи, там обычно стоит номер :). Книжки можно заказать на bolero.ru и ozone.ru.
Ответ отправлен: 10.11.2003, 10:48
Отправитель: sir henry
| Вопрос № 1094 |
Здравствуйте эксперты! Кто знает как можно определить в Edite какие символы были присвоенны программой (при создании), а какие были введенны пользователем? Мож можно как нить закрепить за каждым за edito_м какой нить байтовый массив в котором отображался бы статус символа? 1 например если введен пользователем, а 0 присвоен программой.
Очень надеюсь, что Вам этот вопрос покажется достаточно интересным и вы на него ответите. :) Заранее благодарен.
Вопрос отправлен: 10.11.2003, 07:25
Отправитель: _hunter_
[Следующий вопрос >>] [Список вопросов]
Отвечает Boriss
Здравствуйте, _hunter_!
Да так себе вопрос... : Edit отрабатывает события OnKeyPress и OnKeyDown - по ним и надо отслеживать, что вводится с клавиатуры, а OnChange вызывается при каждом изменении. Там можно обрабатывать любые изменения. И без нитей хорошо сработает
Ответ отправлен: 10.11.2003, 12:18
Отправитель: Boriss
Отвечает sir henry
Добрый день, _hunter_!
У компонента Edit есть событие OnKeyPress. Через него и можно отслеживать, какие клавиши жал пользователь в Edite'е.
Ответ отправлен: 10.11.2003, 12:37
Отправитель: sir henry
| Вопрос № 1095 |
Уважаемый ЭКСперты!
Подскажите пожалуйста, как можно анимировать свою форму? Т.е. чтобы при загрузке она как-нибудь красиво и необычно появлялась?
Вопрос отправлен: 10.11.2003, 15:14
Отправитель: D.M. (dm@myweb.ru)
[Следующий вопрос >>] [Список вопросов]
Отвечает Boriss
Здравствуйте, D.M.!
Обратите внимание на то, как появляются игры, пока идет загрузка. Это или проявление рисунка, или анимация. Что Вам больше по душе? А необычно.... пусть она комп выключает :))
Ответ отправлен: 10.11.2003, 19:00
Отправитель: Boriss
Отвечает samum2000
Доброе время суток, D.M.!
В общем случае тебе надо обрабатывать два события формы - OnShow и OnClose, в которых ты можешь творить со своей формой все, что захочешь. Например:
procedure TForm1.FormShow(Sender: TObject);
var
RS, RN: TRect;
begin
RS := Rect(0, 0, 0, 0);
RN := Form1.BoundsRect;
DrawAnimatedRects(GetDesktopWindow, IDANI_CAPTION, RS, RN);
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
RSmall, RN: TRect;
begin
RectSmall := Rect(0, 0, 0, 0);
RectNormal := Form1.BoundsRect;
DrawAnimatedRects(GetDesktopWindow, IDANI_CAPTION, RN, RS);
end;
Ответ отправлен: 12.11.2003, 12:57
Отправитель: samum2000
Отвечает Bob Johnson
Здравствуйте, D.M.!
В цикле изменяй какие-либо параметры формы. Только не забывай каждый раз вызывать Application.ProcessMessages ().
For i := 50 to 200 do
begin
Form.Width := i;
Application.ProcessMessages ();
Sleep (10);
end;
* EMan1.5: ---===*** The game we play ***===---
Ответ отправлен: 12.11.2003, 00:59
Отправитель: Bob Johnson
|
Форма отправки вопроса |
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.
(C) 2002-2003 Команда RusFAQ.ru.
| Вопрос и дополнение |
Ваш вопрос:
Приложение (если необходимо):
Получить ответов:
| Выбор рассылки |
| Программисту Assembler (32) C / C++ (25) Perl (4) Builder / Delphi (20) Pascal (19) Basic / VBA (7) Java / JavaScript (10) PHP (15) Криптография (10) WinAPI (13) |
Пользователю Windows 95/98/Me (43) Windows NT/2000/XP (60) "Железо" (37) Поиск информации (24) |
Администратору Windows NT/2000/XP (37) Linux / Unix (17) |
Юристу Гражданское право (11) Семейное право (8) Трудовое право (8) КоАП (8) |
Отправить вопрос всем экспертам выбранной рассылки.
Проект экспертов RusFAQ.ru | Фотоальбом | Virus.RusFAQ.ru | Администрирование
Профессиональная WEB-Студия B.I.T.
| http://subscribe.ru/
E-mail: ask@subscribe.ru |
Отписаться
Убрать рекламу |
| В избранное | ||
