VPF::DoubleClick в Edit - Форум программистов

Keeper89

Дата 21.8.2009, 14:12 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Доброго времени суток!

В стандартном Edit'е имеется событие двойного щелчка по умолчанию, при этом выделяется некоторый участок текста.
Можно ли сделать так, чтобы текст не выделялся, каретка оставалась в той же позиции (не перескакивала для выделения текста), а событие отлавливалось? Пробовал сбрасывать SelStart и SelLength в теле процедуры - не помогло.

Спасибо.

Это сообщение отредактировал(а) Keeper89 - 21.8.2009, 14:18

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Rrader

Дата 21.8.2009, 17:17 (ссылка)

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

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191

Отключить выделение:

Код


unit Unit1;

interface

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

type
  TEdit = class(StdCtrls.TEdit)
  protected
    procedure WndProc(var Msg: TMessage); override;
  end;

  TForm1 = class(TForm)
    Edit1: TEdit;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TEdit }

procedure TEdit.WndProc(var Msg: TMessage);
begin
  if Msg.Msg <> WM_LBUTTONDBLCLK then
    inherited
  else
    (Parent as TForm).Caption := IntToStr(GetTickCount);
end;

end.

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

Let's do this quickly!
Rest in peace, Vit!

Keeper89

Дата 21.8.2009, 18:39 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Rrader, я тоже об этом подумывал smile

, твой вариант переделал вот так (вроде бы эквивалентно):

Код


unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TEdit = class(StdCtrls.TEdit)
  protected
    procedure WndProc(var Msg: TMessage); message WM_LBUTTONDBLCLK;
  end;
  TForm2 = class(TForm)
    Edit1: TEdit;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

{ TEdit }

procedure TEdit.WndProc(var Msg: TMessage);
begin
  //

end;

end.

Спасибо!

А можно ли таким же образом создать класс типа TEditX, который будет обладать этим свойством? Так например, часть компонентов можно будет оставить как стандартные TEdit, а часть как TEditX.

И второй вопрос, не буду создавать для этого отдельную тему: можно ли разделить события клика и двойного клика? (Для Эдита при двойном щелчке у меня сначала срабатывает событие для щелчка, а потом уже для двойного).

Это сообщение отредактировал(а) Keeper89 - 21.8.2009, 19:18

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Rrader

Дата 21.8.2009, 19:54 (ссылка)

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

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191

Цитата(Keeper89 @ 22.8.2009, 00:39

)

А можно ли таким же образом создать класс типа TEditX

Нельзя. В любом случае ломаешь один класс (TEdit), а в нем можешь фильтровать контролы по желаемому признаку (имя, координаты/размеры, размер шрифта и т.п.)

Цитата(Keeper89 @ 22.8.2009, 00:39

)

И второй вопрос, не буду создавать для этого отдельную тему: можно ли разделить события клика и двойного клика? (Для Эдита при двойном щелчке у меня сначала срабатывает событие для щелчка, а потом уже для двойного).

В замешательстве. А как надо? Что должно сработать, а что нет? События логически связаны...

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

Let's do this quickly!
Rest in peace, Vit!

Keeper89

Дата 21.8.2009, 19:58 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Цитата(Rrader @ 21.8.2009, 20:54

)

В замешательстве. А как надо? Что должно сработать, а что нет? События логически связаны...

Просто хотелось "разделить" события - при щелчке выполняется одно, при двойном другое.

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Rrader

Дата 21.8.2009, 20:10 (ссылка)

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

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191

Двойной клик рождается из одинарного smile

Что могу предложить - отказаться от этой идеи либо по одинарному щелчку давать время на отлов следующего (время двойного клика всегда можно узнать). Тогда ты получишь некоторую задержку при одинарном клике, сам понимаешь smile

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

Let's do this quickly!
Rest in peace, Vit!

Keeper89

Дата 21.8.2009, 20:36 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Ясно

Отсюда вопрос - как лучше определять это время?

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Keeper89

Дата 23.8.2009, 14:37 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

volvo877

Дата 23.8.2009, 15:13 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 14
Всего: 116

Keeper89, тут был:
http://forum.vingrad.ru/index.php?showtopi...t&p=1213939 ? (только не WM_NOREMOVE, а PM_NOREMOVE)

Keeper89

Дата 23.8.2009, 15:58 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

volvo877, спасибо!

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

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