TEdit and resizing

[BernhardRoos]

Is it possible that a TEdit control changes its size during the user is editing in this TEdit Field (like as MS Word).
How can I solve this?
Best wishes
Bernhard

[Sergey Tkachenko]

You can assign this code to OnChange of TEdits:

Code: Select all

procedure TForm1.OnControlChange(Sender: TObject);
var txt: TEdit;
begin
  txt := (Sender as TEdit);
  Canvas.Font := txt.Font;
  txt.ClientWidth := Canvas.TextWidth(txt.Text)+6;
  RichViewEdit1.AdjustControlPlacement2(txt);
end;

(do not forget to reassign it in OnControlAction, after RVF loading).
There is one problem: AdjustControlPlacement2 does not update item resizer. It will be fixed in the next update.

[BernhardRoos]

Thanks for your answer.
Is there a similar function for TRichView because the user makes his inputs in a TRichView component (not in TRichViewEdit)
AdjustControlPlacement2 is only for TRichViewEdit.
Best wishes
Bernhard

[BernhardRoos]

I've found something.
If I call Format it works.
Best wishes
Bernhard