fstyle: dWord;
begin
fstyle := GetWindowLong(Edit1.Handle, GWL_STYLE);
SetWindowLong(Edit1.Handle, GWL_STYLE, fstyle or ES_NUMBER)
end; ]]>
|
fstyle: dWord; begin fstyle := GetWindowLong(Edit1.Handle, GWL_STYLE); SetWindowLong(Edit1.Handle, GWL_STYLE, fstyle or ES_NUMBER) end; ]]> |
