VPF::TEdit.SelText и Undo - Форум программистов

Seldon

Дата 26.3.2007, 23:41 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 114
Регистрация: 23.12.2005
Где: Minsk

Репутация: нет
Всего: 2

после программного изменения TEdit.SelText, нельзя это изменение отменить (Ctrl+Z или MRB>Undo).
можно ли как-нибудь это обойти?

--------------------

MiBEditor v2.Alpha 10 - Программерский редактор

Yanis

Дата 27.3.2007, 08:54 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Код

function MySelText(const s: string; hWnd: DWORD): Integer;
begin
  Result := SendMessage(hWnd, EM_REPLACESEL, 1, LongInt(@s[1]));
end;

begin
  MySelText('ya', Edit1.Handle);
end;

Добавлено @ 08:59
Очередной недочёт в VCL.
Вариант исправления:

Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TEdit = class(StdCtrls.TEdit)
  private
    function GetSelText: string;
    procedure SetSelText(const Value: string);
  public
    property SelText: string read GetSelText write SetSelText;
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.SelText := 'ya';
end;

{ TEdit }

function TEdit.GetSelText: string;
begin
  Result := GetSelText;
end;

procedure TEdit.SetSelText(const Value: string);
begin
  SendMessage(Handle, EM_REPLACESEL, 1, LongInt(@Value[1]));
end;

end.

Это сообщение отредактировал(а) Yanis - 27.3.2007, 09:00

--------------------

*щёлк*

Seldon

Дата 27.3.2007, 16:50 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 114
Регистрация: 23.12.2005
Где: Minsk

Репутация: нет
Всего: 2

угу, та же проблема с TMemo, TComboBox, TComboBoxEx...

--------------------

MiBEditor v2.Alpha 10 - Программерский редактор

Yanis

Дата 27.3.2007, 20:02 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Цитата(Seldon @ 27.3.2007, 17:50

)

угу, та же проблема с TMemo, TComboBox, TComboBoxEx...

Ну я думаю, что теперь для тебя это ничуть не проблема smile

--------------------

*щёлк*

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »