Edit: wenn gesamter Inhalt markiert ist, welche Eigenschaft?

[marabu]

Hallo Jürgen,

die Selektion des ganzen Textes ist kein ausreichendes Kriterium. Außerdem gibt es da noch die Zwischenablage.

Delphi-Quellcode:

uses
  ClipBrd;

function Replace(const s: String; index, Count: Integer; subStr: String): String;
begin
  Result := s;
  Delete(Result, index, count);
  Insert(subStr, Result, index);
end;

procedure TDemoForm.EditKeyPress(Sender: TObject; var Key: Char);
var
  s: String;
  value: Double;
begin
  with Sender as TEdit do
  begin
    if (Key = ^V) then
      s := ClipBoard.AsText
    else if Key < ' ' then
      Exit
    else s := Key;
    s := Replace(Text, Succ(SelStart), SelLength, s);
    if (s <> '') and not TryStrToFloat(s, value) then
      Key := #0;
  end;
end;

Grüße vom marabu