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

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Delphi - проблемы и решения" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Май 2004   →
 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
Автор
Сергей

Статистика

13.577 подписчиков
-18 за неделю
←   Все выпуски   →

Мастера DELPHI. Новости мира компонент, FAQ, статьи...


Информационный Канал Subscribe.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHIMASTER.ru

Выпуск от 14.05.04 09:05

Кое-что из нашей кладовки   |x|
  • Die,Sllights,Die 2 Heck Mr.Ozz@list.ru   (22.02.04 22:55)
    Программа убивающая ошибку "Sllights" в OC Windows любой версии!! УСТАНОВКА: Скинте прогу в папку windows и запустите!
    »»» Скачать: исходные тексты (3кб)
Лучшее из нашего FAQ   |x|
Как добится того чтобы TMemo и TEdit имели работали не только в режиме вставки символов, но и в режиме замены?
Элементы управления Windows TEdit и TMemo не имеют режима замены. Однако этот режим можно эмулировать установив свойство SelLength edit'а или memo в 1 при обработке события KeyPress. Это заставит его перезаписывать символ в текущей позиции курсора. В примере этот способ используется для TMemo. Режим вставка/замена переключается клавишей "Insert".
Пример:

type
    TForm1 = class(TForm)
        Memo1: TMemo;
        procedure Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
        procedure Memo1KeyPress(Sender: TObject; var Key: Char);
private
    {Private declarations}
        InsertOn : bool;
public
    {Public declarations}
end;

var

   Form1: TForm1;

implementation

{$R *.DFM}

 
procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
    if (Key = VK_INSERT) and (Shift = []) then
        InsertOn := not InsertOn;
end;

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
    if ((Memo1.SelLength = 0) and (not InsertOn)) then
        Memo1.SelLength := 1;
end;



Источник: Дельфи. Вокруг да около.

»»» Прислать свои комментарии

Обсуждается в конференциях   |x|
У нас большой выбор статей   |x|
Эволюция средств разработки Web приложений в Delphi. Часть 2. WebSnap
Технология WebSnap является дальнейшим развитием технологии WebBroker, еще более упрощающей разработку приложений для Web. Поддержка нескольких Web модулей делает возможной разделить труд по разработке приложения между несколькими разработчиками, возможность доступа к объектам модуля из скрипта, выполняемого на стороне сервера дает возможность «оживить» HTML страницы...
Новинки книжного рынка   |x|
Oracle PL/SQL для профессионалов 3-е изд.
Данная книга является наиболее полным руководством по языку PL/SQL, представляющему собой процедурное языковое расширение для SQL. В ней детально рассмотрены основы PL/SQL, структура программы, основные принципы работы с программными данными, а также методика применения операторов и инструкций для доступа к реляционным базам данных. Большое внимание уделяется вопросам безопасности, влиянию объектных технологий на PL/SQL и интеграции PL/SQL с XML и Java.
Автор: Фейерштейн С., Прибыл Б.
Другие сайты о DELPHI   |x|
Delphi World - Мир программирования на Delphi
Delphi World - Мир программирования на Delphi. Для Вас: программы, компоненты, исходники, документация, статьи, форум, FAQ.
» Оценка сайта: 3
Опрос населения :)
Какой раздел сайта вам больше нравится?
»»» FAQ
»»» Статьи
»»» Новости мира компонент
»»» Форумы
»»» Компоненты
»»» База по другим сайтам
Для души

Хокку дня
Наскучив долгим дождём,
Ночью сосны прогнали его…
Ветви в первом снегу.

Афоризмы
Нельзя приучать лошадь не есть. Привыкнув к этому, она просто умрет....

Фраза дня
Страшно, что вечность состоит из отчетных периодов.

Дурацкие законы (информация предоставлена сайтом kurilka.com)
В Китае вам грозит штраф, если вы родите более одного ребенка.
В Нью Йорке (США) тем, кто спрыгивает с крыш зданий, грозит смертная казнь (самый верный способ самоубийства - если не разобъёшься, сожгут на электричесом стуле.)

И на закуску коротенький анекдот
Гуляет женщина в парке одна. Навстречу ей подходит знакомая семейная пара:
- Ой, а почему это вы одна гуляете, где муж?
- А он со своим четвероногим другом.
- А мы и не знали, что вы собаку завели!
- Какую собаку? Мы новый диван купили!

Фотоприколы.
Начните день с хорошего настроения!
http://www.delphimaster.ru/cgi-bin/prikol.pl?id=4226

На этом позвольте откланяться и пожелать вам удачного дня.
Искренне ваш, Алексей (merlin@delphimaster.ru)

Добро пожаловать на сайт -= Мастера DELPHI =- 

http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу

В избранное