Edit + Буфер обмена

[SNUPY]

Приветсвую всех!!! Возникла такая проблема.... В Edit'e должны быть только числовые значения. В принципе я воткнул фильтр символов на событие OnKeyPress, но возникает одно но....: а что если пользователь вставит текст, который будет содержать по мимо цифр буквы, знаки пунктуации и т.д. Как быть товарищи? Заранее спасибо

[VVM]

Я бы сделал так: на OnChange проверять посимвольно. Если символ не цифра, выдаем сообщение и чистим Edit.

[новый образ]

лучше процедурой кейпресс. все нажатые клавиши попадают в переменную key вот ее то и проверяй. удачи

[Terran]

Сообщение от новый образ

лучше процедурой кейпресс. все нажатые клавиши попадают в переменную key вот ее то и проверяй. удачи

KeyPress тут не поможет т.к. можно нажать Ctrl+V или нажать второй кнопкой мыши и "вставить".

[Квэнди]

onchange и анализируйте текст в чем проблема- то ?

[0nni]

Можно еще обрабатывать WM_PASTE

[SNUPY]

OnChange в принципе катит, но хочеться как-то по грамотному =).

Можно еще обрабатывать WM_PASTE

Извините пожалуйста.... Если вас конечно не затруднит, не могли вы подкинуть простенький пример как с этим работать? =)))

[VVM]

OnChange в принципе катит, но хочеться как-то по грамотному =).

Хм... куда еще грамотнее и практичнее, чем OnChange ?

[0nni]

tnpEdit = class(Tedit)
  private
    procedure wmpaste(var msg : TWMPaste); message WM_PASTE;
  end;

Вот пример компонента, который вообще не реагирует на попытки вставки из буфера обмена (в wmpaste ничего писать не надо).
Но все же пользуйтесь методом продолженным Квэнди.

Если же вам нужно вводить только целые числа, то у стандартного tedit есть такая возможность -

SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(edit1.Handle, GWL_STYLE) or ES_NUMBER)

После этого в tEdit будет возможно ввести только цифры.

[SNUPY]

в OnChange всё красиво ^_^, но есть один не айсный момент: если срабатывает фильтр на не пропуск символа, то курсор переходит в крайнее левое положение =(
Код:

procedure TWorkForm.Edit1Change(Sender: TObject);
var
  i:Integer;
  s:String;
begin
  s:=TEdit(Sender).Text;
  for i:=Length(s) downto 1 do
  begin
    if not(s[i] in ['0'..'9']) then
    delete(s, i, 1);
  end;
  TEdit(Sender).Text:=s;
end;

Может как-нибудь по другому тогда это надо реализовать?