На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
Модераторы: Rouse_, jack128, Krid
  
    > Пример программирования режима замены , в текстовых компонентах
      Элементы управления 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;



      Источник: Дельфи. Вокруг да около.<
      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script execution time: 0,0136 ]   [ 16 queries used ]   [ Generated: 28.03.24, 16:53 GMT ]