Двойной щелчок TStaticText в приложении Delphi XE2 копирует заголовок в буфер обмена

Двойной щелчок TStaticText на форме копирует заголовок этого TStaticText в буфер обмена. Событие двойного щелчка не требуется.

Шаги для воспроизведения:

  • Использование Win 64 и обновления Delphi XE2 4.
  • Создайте приложение VCL Forms.
  • Поместите TEdit в форму.
  • Поместите TStaticText в форму. Измените заголовок на «TStaticText1Caption»
  • Поместите второй TStaticText в форму. Измените заголовок на "TStaticText2Caption"
  • Запустите программу (F9)
  • Введите текст в TEdit. Выделите все это и скопируйте через CTRL+C.
  • Удалить текст в TEdit. Вставьте его, чтобы убедиться, что текст — это то, что вы скопировали.
  • Удалить текст в TEdit.
  • Дважды щелкните файл TStaticText.
  • Вставьте текст в TEdit. Обратите внимание, что это не исходный скопированный текст, а заголовок TStaticText.

Я уже отправил отчет об ошибке в Embarcadero.

Я попытался назначить событие двойного щелчка для TStaticTexts. Он по-прежнему копирует заголовок в буфер обмена, даже если выполняет событие двойного щелчка.

procedure TForm1.StaticText1DblClick(Sender: TObject);
begin
  Edit1.Text := 'Hello';
end;

procedure TForm1.StaticText2DblClick(Sender: TObject);
begin
  Edit1.Text := 'World';
end;

Этого не происходит с TLabel или любым другим элементом управления VCL, который я пробовал.

У нас много TStaticText в наших формах для целей визуального дизайна, и переход на TLabels не вариант.

У кого-нибудь есть идеи, как предотвратить это?

5
задан ThinkingStiff 29 June 2012 в 06:56
поделиться