Какую надо задать маску для MaskEdit, чтобы можно было вводить только цифры (притом с запятой)?

[Polotenchik]

Сообщение от Denager

Тогда такой вариант могу предложить
В onChange пиши

begin
If ClipBoard.HasFormat(CF_TEXT) then
  if not AllIsFloat(clipboard.AsText) then
    clipboard.AsText:='';
end;

Функция AllIsFloat:

Function AllIsFloat (const S : String) : Boolean;
var i : Extended;
Begin
 Result := TryStrToFloat(S, I);
End;

Не работает, собственно как и просто

clipboard.AsText:='';

Может это надо не в onChange писать?

Притом если положить на форму кнопку и прописать в ней:

clipboard.AsText:='';

то после её нажатия буфет отчищается.

Видимо дело в том, что мы ведь не изменяем ничего в едит, когда копируем из буфера поэтому событие onChange и не работает! мы ведь просто курсор поставили в едит и нажали вставить.

P.S Собственно, а если нам прописать не в onChange, а в OnClick ?!!!

[JTG]

Ну вы и намудрили. Есть такая полезная вещь, как сабклассинг окна

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TFloatEdit = class(TEdit)
  private
    foo: extended;
    CaretPos: TPoint;
  protected
    procedure WndProc(var Msg: TMessage); override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TFloatEdit.WndProc(var Msg: TMessage);
begin
  case Msg.Msg of
    WM_KEYDOWN: begin
                  //эээээ
                  If (GetKeyState(VK_CONTROL)<0) and (msg.WParam=ord('V')) then SendMessage(self.Handle,WM_PASTE,0,0);
                  If (GetKeyState(VK_CONTROL)<0) and (msg.WParam=ord('C')) then SendMessage(self.Handle,WM_COPY,0,0);
                  If (GetKeyState(VK_CONTROL)<0) and (msg.WParam=ord('X')) then SendMessage(self.Handle,WM_CUT,0,0);
                end;
    WM_CHAR:  
                  Begin
                  GetCaretPos(CaretPos);                                   //координаты каретки
                  if Msg.WParam = ord(DecimalSeparator) then               //разделитель целой/дробной части
                    begin
                      if pos(DecimalSeparator, self.Text)<>0 then          //только один?
                        begin
                          Msg.Result := 0;
                          exit;
                        end;
                    end
                  else
                  If msg.WParam = ord('-') then                            //минус
                    begin
                      if (pos('-', self.Text)<>0) or (CaretPos.x>1) then   //только один и в начале?
                        begin
                          Msg.Result := 0;
                          exit;
                        end;
                    end
                  else
                  if not (Msg.WParam in [ord('0')..ord('9'), 8, 13]) then exit  //цифры, backspace, del
                end;
    WM_PASTE: begin
                if (Clipboard.HasFormat(CF_TEXT)) then                //в буффере текст?
                  if ((not TryStrToFloat(clipboard.AsText, foo))      //валидное число с плавающей точкой?
                  or (not TryStrToFloat(self.text+clipboard.AsText, foo))) //и будет валидным, если вставить?
                then exit
              end;
  end;
  inherited WndProc(Msg);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  with TFloatEdit.Create(Self) do
  begin
    Parent := Self;
    Left := 100;
    Top := 100;
    Width := 100
  end;
end;

end.

Можно не делать наследника, а просто переопределить оконную процедуру существующего edit'а через SetWindowLong, но этот способ универсальнее

Clipboard.AsText:='' - а вот за такое в нашем деле канделябром бьют

[Polotenchik]

JTG, а можно этот код как-нибудь присобачить к уже созданным на форуме едитам?

Просто я не пойму если мне надо 6 едитов - это мне в FormCreate надо 6 раз прописать:

  with TFloatEdit.Create(Self) do
  begin
    Parent := Self;
    Left := 100;
    Top := 100;
    Width := 100
  end;

с разными параметрами?!
И как мне потом к ним обращаться?

А потом мне надо будет потом, чтобы в некоторых цифра сохранялась в ini файле и при создании формы потом выводилась из ini в определенном едите. Если можно подскажите, как сделать данный код для уже лежащих на форме едитов.

[JTG]

Вот, распакуй куда-нибудь (в /delphi/lib или отдельную папку под компоненты) открой FloatEditControl.dpk -> compile -> install
На вкладке Additional появится FloatEdit

Можешь дописать свойство Value, которое будет "на ходу" в текст конвертироваться, чтоб можно было писать FloatEdit1.Value := 3,14 и чего там ещё надо. Короче, шевели мозгами

[Polotenchik]

Сообщение от JTG

Вот, распакуй куда-нибудь (в /delphi/lib или отдельную папку под компоненты) открой FloatEditControl.dpk -> compile -> install
На вкладке Additional появится FloatEdit

Можешь дописать свойство Value, которое будет "на ходу" в текст конвертироваться, чтоб можно было писать FloatEdit1.Value := 3,14 и чего там ещё надо. Короче, шевели мозгами

Ну громаднейшее спасибо! Тему можно закрывать!