Как сделать заметку Windows не сфокусированной или высоту метки = размер ее содержимого?

Question

Как сделать simpe Memo не сфокусированным, поэтому, если пользователь нажмет на него, фокус не будет перемещен на него?

или

Как автоматически сделать ярлык переносом словесли это ширина текста> ширина метки и сделать ее высотой = высотой текста * количество видимых строк?

Спасибо!

Answer 1

Для того, чтобы сделать Label автоматически переносом слов, используйте эту опцию

Label1.WordWrap := True;

Редактировать 1: Сначала необходимо установить для свойства WordWrap значение false, а затем для свойства True значение автоматическиотрегулируйте высоту.

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

Answer 2

Вы хотите сделать так, чтобы оно не могло быть сфокусировано, или вы хотите сделать так, чтобы оно не могло быть напечатано?По-видимому, вы хотите, чтобы он по-прежнему можно было прокручивать и не иметь «отключенный вид».Попробуйте установить для свойства ReadOnly значение true.Он по-прежнему будет включен, и пользователь сможет прокручивать его и даже выбирать и копировать текст, но не редактировать содержимое.

Answer 3

Memo1.Enabled := False;

Answer 4

от макушки головы:

Сделайте заметку достаточно высокой, чтобы вместить весь текст на выбранной вами ширине.

скрыть полосы прокрутки заметки.Установите памятку только для чтения

Поместите заметку в TScrollbox с автопрокруткой, установленной в true.

разрешите вертикальную полосу прокрутки прокрутки в ваших вычислениях ширины.

Позвольте TScrollbox обрабатыватьпрокрутка.

Answer 5

Вот хак: перенесите фокус на какой-нибудь другой элемент управления из TMemo.OnEnter:

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

Я пробовал это на Delphi 2010 и Windows 7, он работает просто отлично.Полосы прокрутки включены, заметка выглядит включенной, но вы не можете сфокусировать ее и не можете выделить текст из нее (побочный эффект невозможности сфокусировать ее).

Редактировать : Вы МОЖЕТЕ скопировать текст из него.Щелкните правой кнопкой мыши - выберите все, затем щелкните правой кнопкой мыши копию.Не похоже, что вы что-то выбрали, но это работает.