Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2011.01.23;
Скачать: CL | DM;

Вниз

Как перехватить вставку из буфера в комбобокс?   Найти похожие ветки 

 
cyber-pilot   (2010-11-01 18:09) [0]

Пробовал вот так:

type
 TForm1 = class(TForm)
   procedure FormCreate(Sender: TObject);
 private

 public

 end;

 TExtEdit = class(TEdit)
 private
   procedure WMPaste(var Message: TMessage); message WM_PASTE;
 end;

 TExtComboBox = class(TComboBox)
 private
   procedure WMPaste(var Message: TMessage); message WM_PASTE;
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
 vEdit: TExtEdit;
 vcbxReplace: TExtComboBox;
begin
 vEdit := TExtEdit.Create(Self);
 vEdit.Parent := Self;
 vEdit.Left := 10;
 vEdit.Top := 10;
 vEdit.Width := 200;
 vEdit.Height := 20;

 vcbxReplace := TExtComboBox.Create(Self);
 vcbxReplace.Parent := Self;
 vcbxReplace.Left := 10;
 vcbxReplace.Top := 50;
 vcbxReplace.Width := 200;
 vcbxReplace.Height := 20;
end;

{ TExtComboBox }

procedure TExtComboBox.WMPaste(var Message: TMessage);
begin
 ShowMessage("Вставка из буфера в комбобокс перехвачена!");
end;

{ TExtEdit }

procedure TExtEdit.WMPaste(var Message: TMessage);
begin
 ShowMessage("Вставка из буфера в едит перехвачена!");
end;

end.


Для TExtEdit - работает, для TExtComboBox - нет. Может быть есть другой способ. Был бы рад помощи.


 
clickmaker ©   (2010-11-01 18:21) [1]

ComboBox - он на то и комбо, что из двух контролов - Edit и ListBox
нужно получить хэндл его эдита и у него ловить (cb.Perform(CB_GETCOMBOBOXINFO))



Страницы: 1 вся ветка

Текущий архив: 2011.01.23;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.014 c
15-1286272079
LDV
2010-10-05 13:47
2011.01.23
FastMM


15-1286845250
AlexDn
2010-10-12 05:00
2011.01.23
Спам


3-1252044820
noob_one
2009-09-04 10:13
2011.01.23
Узнать ip адрес клиента из базы данных. Interbase 7.5


2-1288744271
Германн
2010-11-03 03:31
2011.01.23
TApplication событие OnHint


2-1288134132
Германн
2010-10-27 03:02
2011.01.23
Работа с "хранилищем объектов" (Repository)