新手上路，请高手多照应！我想做一个很简单的COMPONENT！

Question

我想做一些自己定义的控件放到控件板上，方便使用。功能很简单，就是把EDIT加上输入的限制，比如说字长由参数限制。因本人愚鲁，在写VCL方面知识为0，所以请各位高手帮忙，多谢！

Answer 1

本来的那个Edit就已经有这个功能，就是MaxLength
了，当然你也可以自己写
procedure TCustomEdit.SetMaxLength(Value: Integer);
begin
  if FMaxLength <> Value then
  begin
    FMaxLength := Value;
    if HandleAllocated then DoSetMaxLength(Value);
  end;
end;

Answer 2

procedure TCustomEdit.DoSetMaxLength(Value: Integer);
begin
  SendMessage(Handle, EM_LIMITTEXT, Value, 0)
end;