[OmG killer]

Как сделать так, чтобы в (edit) можно было ВСТАВЛЯТЬ только
['0'..'9','+','-',',',#8].

[Facepalm]

Отлавливать сообщение WM_PASTE.

[OmG killer]

А как это сделать? что именно писать я незнаю

[Alegun]

Сообщение от OmG killer

Как сделать так, чтобы в (edit) можно было ВСТАВЛЯТЬ только
['0'..'9','+','-',',',#8].

Код:

procedure TForm1.Edit1Change(Sender: TObject);
var
i: integer;
str: string;
begin
str:=''; 
for i:=1 to Length(Edit1.Text) do
   case Edit1.Text[i] of
   '0'..'9', '+', '-', ',', #8: str:= str + Edit1.Text[i];
   end; { case }
   Edit1.Text:= str;
   Edit1.SelStart:= Length(Edit1.Text);
end;

З.Ы. Увидел про вставку, ищу

З.Ы.З.Ы.Ерундовая ведь весчь, копаю в сторону тклипборда, найду

З.Ы.З.Ы.P.S. Только такой эрзац удалось выкопать.

[OmG killer]

Да нет же, я написал "Когда вставлять" а не писать буквы в (edit).

[Alegun]

Сообщение от OmG killer

..."Когда вставлять" а не писать...

Забавно такая цитатка читается, весёлые ассоциации возникают
Собрал процедуру в позапрошлом посте, так пойдёт?

[OmG killer]

Помогло Спасибо.