使用進度條顯示備忘錄的文本限制

Question

我的cxmemo限制爲150個字符（maxlenght）。 我想用cxProgressBar來直觀地表示這個限制。 我該怎麼做？ 我想：

procedure TMain_Form.cxMemo1PropertiesChange(Sender: TObject); 
begin 
if not (trim(cxmemo1.lines.Text) = '') then begin 
cxProgressBar1.Position := cxProgressBar1.Position +cxmemo1.Properties.MaxLength - Length(cxmemo1.Text); 
end; 
end; 

但它不工作... 我想要的進度時用戶鍵入的上升和收縮，如果他在備忘錄中刪除字符。 我該如何做這項工作？

Answer 1

procedure TMain_Form.cxMemo1PropertiesChange(Sender: TObject); 
begin 
    if Trim(cxMemo1.Lines.Text) <> '' then begin 
    cxProgressBar1.Visible := True; 
    cxProgressBar1.Position := Length(cxMemo1.Text); 
    if Length(cxMemo1.Text) = cxMemo1.Properties.MaxLength then 
     ShowMessage('You exceeded the maximum number of characters !' + #13#10 +'Limit is : 150 '+ #13#10 +'For more, use the field "memo" .'); 
    end else begin 
    if cxMemo1.Lines.Text.IsEmpty then 
     cxProgressBar1.Position := 0; 
    cxProgressBar1.Visible := False; 
    end; 
end;