Главная страница
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.47 MB
Время: 0.009 c
2-1288432380
ZverSS88
2010-10-30 13:53
2011.01.23
Прога для работы с letitbit.net


15-1286524599
И. Павел
2010-10-08 11:56
2011.01.23
Как остановить трассировку?


15-1286134332
NailMan
2010-10-03 23:32
2011.01.23
Полетал сегодня с камерой на хвосте


2-1289220381
12
2010-11-08 15:46
2011.01.23
запрос к двум файлам Excel через ADO


3-1251287621
vegarulez
2009-08-26 15:53
2011.01.23
Вопрос про select числа с разделителем дробной части.