Как добится того чтобы 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;
Преобразование Unix времени в строку
Есть работающий вариант с sysutils: function unix2time(d:dword):string; begin Result := DateTimeToStr( 25569 + d ...
КОЛЛЕКТИВНОЕ Создание РПГ
Вобщем, господа программеры, поступило предложение создать РПГ :)... Я НЕ говорю: всё, собираемся, завтра с утра все за ...
Как узнать Имя пользователя в Виндовс
Подскажите, пожалуйста, как можно узнать имя пользователя который работает в текущем сеансе. На компьютере с Win XP ...
Впечатления от реального Microsoft Inductive User Interface
Microsoft наконец-то сделал интерфейс пользователя! До Windows 2000/Me включительно как ведь было: интерфейс был максимум — документ-ориентированный. То есть, все элементы пользовательского интерфейса были спроектированы так, чтобы работать с документом. Теперь же, основная задача интерфейса пользователя — дать возможность планомерно и точно решить задачу...
Компьютерная графика. Энциклопедия
Книга адресована тем, кто хотел бы расширить свои профессиональные возможности в области компьютерной графики, в первую очередь: дизайнерам, иллюстраторам, художникам, разработчикам web-сайтов, а также всем желающим поближе познакомиться с увлекательным миром компьютерной графики и анимации. Прочитав ее, вы будете легко ориентироваться в разнообразии современных графических программ, овладеете популярными редакторами для создания растровой и векторной графики, познакомитесь с основами дизайна. Книга снабжена большим количеством примеров, иллюстрирующих работу различных графических программ, ее можно использовать и как учебник, и как подробное справочное руководство.
Автор: Рейнбоу В.
Сайт компании "Софт-Синтез" (разработка ПО под заказ) Компания разрабатывает программы на заказ. Наши разработки: - G.I.P Report [конструктор отчетов] - Утилита автоматического резервного копирования для FireBird - и д.р.
» Оценка сайта: 3
Хокку дня
И разложив костер, Куда годы уходят - Не видно.
Афоризмы
Иногда из дурных качеств складываются великие таланты...
Фраза дня
Брокер от пейджера не далеко падает (Киллер).
Дурацкие законы (информация предоставлена сайтом kurilka.com)
В провинции Виктория в Австралии запрещается ходить в розовых штанах после полудня в воскресенье.
В городе Фарго в Северной Дакоте (США) вам грозит тюрьма, если вы будете танцевать в шляпе.
И на закуску коротенький анекдот
- Как слепой парашютист узнает, что он вот-вот приземлится? - Исчезает натяжение собачьего поводка...