Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  1 638

•  TDictionary Custom Sort  4 260

•  Fast Watermark Sources  3 920

•  3D Designer  6 070

•  Sik Screen Capture  4 187

•  Patch Maker  4 730

•  Айболит (remote control)  4 648

•  ListBox Drag & Drop  3 785

•  Доска для игры Реверси  90 301

•  Графические эффекты  4 981

•  Рисование по маске  4 006

•  Перетаскивание изображений  3 357

•  Canvas Drawing  3 664

•  Рисование Луны  3 463

•  Поворот изображения  2 967

•  Рисование стержней  2 618

•  Paint on Shape  2 009

•  Генератор кроссвордов  2 778

•  Головоломка Paletto  2 197

•  Теорема Монжа об окружностях  2 892

•  Пазл Numbrix  1 971

•  Заборы и коммивояжеры  2 554

•  Игра HIP  1 586

•  Игра Go (Го)  1 518

•  Симулятор лифта  1 795

•  Программа укладки плитки  1 541

•  Генератор лабиринта  1 906

•  Проверка числового ввода  1 665

•  HEX View  1 852

•  Физический маятник  1 678

 
скрыть


Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Как сделать так, чтобы в Memo переносилось не слово целиком, а только та часть слова, которая не помещается



Сначала нужно объявить две глобальных переменные:


OriginalWordBreakProc: pointer;
NewWordBreakProc: pointer;

Затем описываем в разделе implementation следующую процедуру:


function MyWordBreakProc(LPTSTR: pchar; ichCurrent: integer;
cch: integer; code: integer): integer
{$IFDEF WIN32} stdcall; {$ELSE} ; export; {$ENDIF}
begin
  result := 0;
end;

По созданию окна пишем такой код:


procedure TForm1.FormCreate(Sender: TObject);
begin
  OriginalWordBreakProc := Pointer(SendMessage(Memo1.Handle,
  EM_GETWORDBREAKPROC, 0, 0));
  {$IFDEF WIN32}
  NewWordBreakProc := @MyWordBreakProc;
  {$ELSE}
  NewWordBreakProc := MakeProcInstance(@MyWordBreakProc, hInstance);
  {$ENDIF}
  SendMessage(Memo1.Handle, EM_SETWORDBREAKPROC, 0,
  longint(NewWordBreakProc));
end;

а по уничтожению:


procedure TForm1.FormDestroy(Sender: TObject);
begin
  SendMessage(Memo1.Handle, EM_SETWORDBREAKPROC, 0,
  longint(@OriginalWordBreakProc));
  {$IFNDEF WIN32}
  FreeProcInstance(NewWordBreakProc);
  {$ENDIF}
end;





Похожие по теме исходники

Memory Manager

Shared Memory

Numbers Memory

xIPMemo

 

Memo Edit Errors Messages

Memory Monitor

Memory Using in System

Simple Memory Seeker

 

Process Memory Map

Проверка числового ввода




Copyright © 2004-2024 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте