delphi 根据字符串长度来控制控件长度

Question

  问题很菜，谢谢。

Answer 1

Control.Width := Control.Canvas.TextWidth('字符串');

Answer 2

procedure TForm1.Edit1Change(Sender: TObject);
var
  edtObj: TEdit;
  dc: HDC;
  sz: TSize;
  txt: String;
begin
  if Sender is TEdit then begin
    edtObj := Sender as TEdit;
    dc := GetDC(edtObj.Handle);
    txt := edtObj.Text;
    GetTextExtentPoint32(dc,PAnsiChar(txt),Length(txt),sz);
    ReleaseDC(edtObj.Handle,dc);
    edtObj.Width := Min(Max(100,sz.cx),700)
  end;
end;

Answer 3

Control.Width := Control.Canvas.TextWidth('字符串');