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

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


Информационный Канал Subscribe.Ru

Ежедневная рассылка сайта Мастера DELPHI

DELPHIMASTER.ru

Выпуск от 26.01.04 09:04

Обновился дайджест по FAQ. Скачать можно здесь
Вышел очередной дайджест форумов. Скачать можно здесь
Лучшее из нашего 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|
Впечатления от реального Microsoft Inductive User Interface
Microsoft наконец-то сделал интерфейс пользователя! До Windows 2000/Me включительно как ведь было: интерфейс был максимум — документ-ориентированный. То есть, все элементы пользовательского интерфейса были спроектированы так, чтобы работать с документом. Теперь же, основная задача интерфейса пользователя — дать возможность планомерно и точно решить задачу...
Новинки книжного рынка   |x|
Компьютерная графика. Энциклопедия
Книга адресована тем, кто хотел бы расширить свои профессиональные возможности в области компьютерной графики, в первую очередь: дизайнерам, иллюстраторам, художникам, разработчикам web-сайтов, а также всем желающим поближе познакомиться с увлекательным миром компьютерной графики и анимации. Прочитав ее, вы будете легко ориентироваться в разнообразии современных графических программ, овладеете популярными редакторами для создания растровой и векторной графики, познакомитесь с основами дизайна. Книга снабжена большим количеством примеров, иллюстрирующих работу различных графических программ, ее можно использовать и как учебник, и как подробное справочное руководство.
Автор: Рейнбоу В.
Другие сайты о DELPHI   |x|
Сайт компании "Софт-Синтез" (разработка ПО под заказ)
Компания разрабатывает программы на заказ.
Наши разработки:
- G.I.P Report [конструктор отчетов]
- Утилита автоматического резервного
 копирования для FireBird
- и д.р.

» Оценка сайта: 3
Опрос населения :)
Какой раздел сайта вам больше нравится?
»»» FAQ
»»» Статьи
»»» Новости мира компонент
»»» Форумы
»»» Компоненты
»»» База по другим сайтам
Для души

Хокку дня
И разложив костер,
Куда годы уходят -
Не видно.

Афоризмы
Иногда из дурных качеств складываются великие таланты...

Фраза дня
Брокер от пейджера не далеко падает (Киллер).

Дурацкие законы (информация предоставлена сайтом kurilka.com)
В провинции Виктория в Австралии запрещается ходить в розовых штанах после полудня в воскресенье.
В городе Фарго в Северной Дакоте (США) вам грозит тюрьма, если вы будете танцевать в шляпе.

И на закуску коротенький анекдот
- Как слепой парашютист узнает, что он вот-вот приземлится?
- Исчезает натяжение собачьего поводка...

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


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

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


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

В избранное