How to make Windows' Memo unfocusable or Label height = size of its content?

Question

Hi!

How to make simpe Memo to be unfocusable, so if an user will click on it, focus will not be moved to it?

or

How to make a Label automaticly word wrap if it's text width > width of a label and make it height = height of text * 'visible' lines count?

Thanks!

Answer 1

Memo1.Enabled := False;

Answer 2

Here's a hack: Move the focus to some other control from TMemo.OnEnter:

procedure Form1.Memo1Enter(Sender: TObject);
begin
  Button1.SetFocus;
end;

I tried this on Delphi 2010 and Windows 7, it works just fine. The scrollbars are enabled, the memo looks enabled but you can't focus it and you can't select text from it (side effect of not being able to focus it).

Edit: You CAN actually copy text from it. Right click - select all, then right-click copy. It doesn't look like you selected something but it does work.

Answer 3

Do you want to make it so it can't be focused, or do you want to make it so it can't be typed into? Apparently you want it to still be scrollable and not have the "disabled look". Try setting the ReadOnly property to true. It will still be enabled, and the user can scroll through it and even select and copy text, but not edit the contents.

Answer 4

For how to make a Label automatically word wrap, use this option

Label1.WordWrap := True;

Edit 1: We must first set WordWrap property to false and later set that to True to automatically adjust the height.

Label1.WordWrap := False;
Label1.Caption := 'This has word wrap This has word wrap';
Label1.Width := 45;
Label1.WordWrap := true;

Answer 5

off the top of my head:

Make the memo tall enough to accommodate all the text at your selected width.

hide the memo's scrollbars. Set the memo to readonly

Place the memo on a TScrollbox with autoscroll set to true.

allow for the scrollbox vertical scrollbar in your width calculation.

Let the TScrollbox handle the scrolling.