Вообщем у меня есть база данных, в которой таблица с полем Memo, и нужно вывести текст, но так чтобы его было нельзя редактировать, и смотрелся чтобы он как картинка.
Ну как у нас посты на форуме.
Вообщем нужны только советы, как сделать лучше.
Добавлено @ 00:24
Впринципе пока хватило мыслей, выводить всё в Memo, с установкой сво-ва ReadOnly + BirderStyle=bsNone. Но тут продолжает мигать курсор, бесящий меня...

Компонент называется Lable

Vit и какже ты интересно выведеш в него много текста, да чтобы он перескакивал на следующую строку где надо?
Добавлено @ 01:20
Впринципе Memo наверно подходит, только скажите мне, как сделать чтобы курсор в нём не мигал, или ещё лучше чтобы компонент не мог получать вообще фокус ввода никогда.

Zero, Vit как раз сделает без проблем.

Поставит AutoSize = False, а WordWrap = True, растянет label на столько сколько хочет и загрузит в него текст.

Странно, а чего он у тебя в мемо мигает???
Ну вообще можно сделать так, чтобы просто компонента другая была активной при старте и при клике на этот лейбл другая компонента становилась активной, тогда курсора точно там не будет (но и не выделишь ничего)

Alex а точно + плюс ещё динамически изменять ширену ты забыл сказать...
Вообщем спасибо вам с Витом большое, вопрос закрыт.

А на будущее, у мемо как и у большинства компонент есть такое свойство Enable. Так вот, если оно False, то такой компонент не сможет получть фокус ввода, а соответственно, и курсора там никогда не будет, следовательно и мигать будет некому .

Цитата

А на будущее, у мемо как и у большинства компонент есть такое свойство Enable. Так вот, если оно False, то такой компонент не сможет получть фокус ввода, а соответственно, и курсора там никогда не будет, следовательно и мигать будет некому .

Текст только серым будет, а так все нормально

Попробуй HideCaret(Memo1.Handle);

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


В DRKB советуют для этого создать потомка с соответствующими обработчиками, в которых вызывать HideCaret(Handle)
А вот как это можно сделать не создавая потомка.


Надо перехватить оконную процедуру элемента редактирования (edit, Memo и т. д.).

Код

... type   TForm1 = class(TForm)     Memo1: TMemo;     procedure FormCreate(Sender: TObject);     procedure FormDestroy(Sender: TObject);   private     { Private declarations }   public     { Public declarations }     OldEditsWindowProc: Pointer;   end; ... implementation  // новая оконная процедура function NewWindowProc(WindowHandle: hWnd; TheMessage: LongInt; ParamW: LongInt;  ParamL: LongInt): LongInt stdcall; begin    NewWindowProc := CallWindowProc(Form1.OldEditsWindowProc, WindowHandle,    TheMessage, ParamW, ParamL);    HideCaret(WindowHandle); end; procedure TForm1.FormCreate(Sender: TObject); begin  OldEditsWindowProc := Pointer(SetWindowLong(Memo1.Handle, GWL_WNDPROC,  LongInt(@NewWindowProc))); end; procedure TForm1.FormDestroy(Sender: TObject); begin  // необязательно  SetWindowLong(Memo1.Handle, GWL_WNDPROC, LongInt(OldEditsWindowProc)); end;

ДЫМ а чтобы не мучится можно сделать так:

Цитата(Alex @ 15.3.2005, 01:37)

AutoSize = False, а WordWrap = True

Добавлено @ 18:13
Ну всмысле для Label

Цитата

Ну всмысле для Label

Во-первых, в Label не выведешь форматированный цветной текскт, во-вторых нельзя выделить текст мышью и сохранить в буфер.

Цитата

нельзя выделить текст мышью и сохранить в буфер

Хотя наверное ты прав, лучше подайдёт всётаки Memo, хотя конечно помучится побольше придётся, но ничего страшного.

Цитата

в Label не выведешь форматированный цветной текскт

Интересно, а в memo ты как его выводить собрался?

http://vingrad.ru/DELPHI-DLP-002354

Народ, а почему ж тут никто ничего не сказал про StaticText?! Это тот же мемо, только как лейбл (многострочный)... помойму он никак лучше подходит тут. или я не прав?

Цитата(Bacardi @ 18.3.2005, 23:29)

Народ, а почему ж тут никто ничего не сказал про StaticText?! Это тот же мемо, только как лейбл (многострочный)... помойму он никак лучше подходит тут. или я не прав?

Прав.

гыыы

Цитата(Alex @ 18.3.2005, 23:52)

Прав.

Alex а как тогда выделять текст из него и копировать в буфер обмена? Я прочитал в Фаронове про него, там написано что он одним из отличий имеет в свой-ве BorderStyle значение sbsSunken, делает рамку а все остальные сво-ва и методы типа совпадаёт с Label, но в реальности я ненахожу даже свойства WordWrap.
И почему все привязались к Label-подобным компонентам, чем всем Memo не нарвится?

Цитата(Zero @ 19.3.2005, 01:19)

Alex а как тогда выделять текст из него и копировать в буфер обмена?

Никак. Изначально ты не ставил задачи копировать текст в буффер.

Цитата(Zero @ 19.3.2005, 01:19)

в реальности я ненахожу даже свойства WordWrap

Можно считать, что оно установлено в True.

PS:
Что ты переживаешь тебе подойдет пример Дым'а с мемо.

Цитата(Alex @ 19.3.2005, 01:28)

Никак. Изначально ты не ставил задачи копировать текст в буффер.

Дак я же говорил что я делаю курсач на тему "Создание форума"
Ну а тут хотел рассмотреть всякие предложения, и выбрать лучшее...

Цитата(Alex @ 19.3.2005, 01:28)

Можно считать, что оно установлено в True.

Не работает, уже проверял и проверил ещё раз, вот пример посмотри в прикреплёном файле.

Цитата(Alex @ 19.3.2005, 01:28)

Что ты переживаешь тебе подойдет пример Дым'а с мемо.

Да я и не переживаю, просто я ещё не дошёл до создания Memo, пока только профиль оформляю и исправляю некотрые глюки, поэтому пока ещё не поздно изменить решение.

Цитата(Bacardi @ 18.3.2005, 23:29)

Это тот же мемо,

Цитата(Alex @ 19.3.2005, 01:28)

Цитата (Zero @ 19.3.2005, 01:19) Alex а как тогда выделять текст из него и копировать в буфер обмена? Никак.

Тогда не тотже.

Присоединённый файл ( Кол-во скачиваний: 1 )
 Пример.zip

Эх.. Рано я обрадывался, на счёт снятися указателя с Memo. В реальном моём приложении, я Memo, создаю динамически. И там не работает код:

Код

type   TForm1 = class(TForm)     Memo1: TMemo;     Button1: TButton;     procedure FormCreate(Sender: TObject);     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }     OldEditsWindowProc: Pointer;   end; var   Form1: TForm1;   m:TMemo; implementation {$R *.dfm} function NewWindowProc(WindowHandle: hWnd; TheMessage: LongInt; ParamW: LongInt;  ParamL: LongInt): LongInt stdcall;     begin    NewWindowProc := CallWindowProc(Form1.OldEditsWindowProc, WindowHandle,    TheMessage, ParamW, ParamL);        HideCaret(WindowHandle);     end; procedure TForm1.FormCreate(Sender: TObject); begin   OldEditsWindowProc := Pointer(SetWindowLong(m.Handle , GWL_WNDPROC, LongInt(@NewWindowProc))); end; procedure TForm1.Button1Click(Sender: TObject); begin   m:=TMemo.Create(form1);   m.Parent:=form1; end;

не, слух... ты хочешь копировать содержимое, но не хочешь указателя в мемо... как одно без другого?! выбирай или - или...
и неужели не работает Memo1.Enabled:=False?! может где повесишь кнопку... или popupmenu с пунктом "копировать содержимое в буффер" или что-то в этом плане?

Цитата(Bacardi @ 20.3.2005, 00:55)

не, слух... ты хочешь копировать содержимое, но не хочешь указателя в мемо... как одно без другого?! выбирай или - или...

Я не хочу выбирать, мне нужно всё... и это возможно, покрайней мере статически работает, а при динамическом создании глючит.

Цитата(Bacardi @ 20.3.2005, 00:55)

и неужели не работает Memo1.Enabled:=False?

Нет. Серый текст+нельзя выделять, тогда уж лучше будет Label.

Цитата(Bacardi @ 20.3.2005, 00:55)

или popupmenu с пунктом "копировать содержимое в буффер" или что-то в этом плане?

<CTRL>+<C>

Цитата

Интересно, а в memo ты как его выводить собрался?

Не в Memo, конечно, я имел в виду RichEdit.

Цитата

Эх.. Рано я обрадывался, на счёт снятися указателя с Memo. В реальном моём приложении, я Memo, создаю динамически. И там не работает код:

Конечно, не будет работать, ведь ты меняешь адрес оконной процедуры для контрола, который еще не создан. Перенеси строчку

Код

OldEditsWindowProc := Pointer(SetWindowLong(m.Handle , GWL_WNDPROC, LongInt(@NewWindowProc)))

из обработчика TForm1.FormCreate в то место, где ты содаешь контрол.

Код будет выглядеть так:

Код

type   TForm1 = class(TForm)     Button1: TButton;     procedure Button1Click(Sender: TObject);     procedure FormCreate(Sender: TObject);   private     { Private declarations }   public     { Public declarations }     OldEditsWindowProc: Pointer;   end; var   Form1: TForm1;   m:TMemo; implementation {$R *.dfm} function NewWindowProc(WindowHandle: hWnd; TheMessage: LongInt; ParamW: LongInt;  ParamL: LongInt): LongInt stdcall; begin    NewWindowProc := CallWindowProc(Form1.OldEditsWindowProc, WindowHandle,    TheMessage, ParamW, ParamL);    HideCaret(WindowHandle); end; procedure TForm1.Button1Click(Sender: TObject); begin  m:=TMemo.Create(Form1);  m.Parent:=Form1;  // вот сюда  OldEditsWindowProc := Pointer(SetWindowLong(m.Handle , GWL_WNDPROC, LongInt(@NewWindowProc))); end; procedure TForm1.FormCreate(Sender: TObject); begin // OldEditsWindowProc := Pointer(SetWindowLong(m.Handle , GWL_WNDPROC, LongInt(@NewWindowProc))); end;

А вообще, зачем ты создаешь объекты динамически? Экономишь память?

Я всегда в таких случаях кидаю Memo на форму, устанавливаю минимальные размеры и отодвигаю куда-нибудь в уголок, чтобы не мешался, ставлю Visible:=False, а в нужном месте программы нужно лишь передвинуть Memo куда надо, установить нужные размеры и Visible:=True.

Если позволишь, несколько советов. Как я понял ты делаешь что-то вроде форума и хочешь, чтобы все выглядело соответственно (похожим на HTML-страницу в броузере). Вот некоторые говорят - зачем скрывать курсор? А вы видели мигающий курсор на HTML-странице (кроме полей ввода)? Тем не менее на ней можно выделить текст.

Идеальным решением для твоей задачи было бы использование TWebBrowser, но раз ты не хочешь разбираться с HTML-кодом, то бросай Memo и используй RichEdit. Тогда ты сможешь вывести красивый текст, если напряжешься - то и таблицы, если же использовать RxRichEdit, можно также вставить картинки, например аватары или смайлы (в DRKB написано как это сделать). Причем, в переход с Memo на RichEdit не вызовет никакаих трудностей (по крайней мере курсор скрывается тем же способом).

Желаю удачи.



Это сообщение отредактировал(а) ДЫМ - 20.3.2005, 03:11

Блин, опять я не всё сказал, насамом деле я их создаю в некотрос кол-ве, и там работает только одна, остальные глючат. И при выходе из программы тоже глюк выдаётся.

Код

type   TForm1 = class(TForm)     Button1: TButton;     Memo1: TMemo;     Edit1: TEdit;     procedure Button1Click(Sender: TObject);     procedure FormDestroy(Sender: TObject);   private     { Private declarations }   public     { Public declarations }     OldEditsWindowProc: Pointer;   end; var   Form1: TForm1;   m:array of TMemo;   i:integer; implementation {$R *.dfm} function NewWindowProc(WindowHandle: hWnd; TheMessage: LongInt; ParamW: LongInt;  ParamL: LongInt): LongInt stdcall; begin    NewWindowProc := CallWindowProc(Form1.OldEditsWindowProc, WindowHandle,    TheMessage, ParamW, ParamL);    HideCaret(WindowHandle); end; procedure TForm1.Button1Click(Sender: TObject); begin   SetLength(m,0);   SetLength(m,StrToInt(edit1.Text));   for i:=0 to StrToInt(edit1.Text)-1 do     begin       m[i]:=TMemo.Create(form1);       with m[i] do         begin           parent:=form1;           OldEditsWindowProc := Pointer(SetWindowLong(m[i].Handle , GWL_WNDPROC, LongInt(@NewWindowProc)));           left:=i*200         end;     end; end;

Добавлено @ 10:27

Цитата

А вообще, зачем ты создаешь объекты динамически? Экономишь память?

Просто их кол-во заранее не известно. Ну т.е. это содержимое постов.

Цитата

используй RichEdit. Тогда ты сможешь вывести красивый текст

Можно конечно и RichEdit, но там гемора больше... а по скольку у меня цель ─ научится работать с БД на данный момент а не Delphi, то и Memo пойдёт.

Видимо для каждого контрола нужна "персональная" оконная процедура...

Ну ничего, прорвемся! Делать нечего - воспользуемся советом из DRKB и создадим потомка TMemo с соответствующими обработчиками.

Код

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TMyMemo=class (TMemo)    private     procedure WMPaint(var Msg: TMessage); message WM_Paint;     procedure WMSetFocus(var Msg: TMessage); message WM_SetFocus;     procedure WMNCHitTest(var Msg: TMessage); message WM_NCHitTest;   end;   TForm1 = class(TForm)     Button1: TButton;     Edit1: TEdit;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1;   m:array of TMyMemo; implementation {$R *.dfm} procedure TMyMemo.WMPaint(var Msg: TMessage); begin  inherited;  HideCaret(Handle); end; procedure TMyMemo.WMSetFocus(var Msg: TMessage); begin  inherited;  HideCaret(Handle); end; procedure TMyMemo.WMNCHitTest(var Msg: TMessage); begin  inherited;  HideCaret(Handle); end; procedure TForm1.Button1Click(Sender: TObject); var i:Integer; begin   SetLength(m,0);   SetLength(m,StrToInt(edit1.Text));   for i:=0 to StrToInt(edit1.Text)-1 do     begin       m[i]:=TMyMemo.Create(form1);       with m[i] do         begin           parent:=form1;           left:=i*200         end;     end; end; end.

Слушай, а зачем для каждого поста создавать Memo, не проще ли их поместить в одно окно?

народ, а можно вас попросить вставлять в исходники комментарии?

Спасибо большое ДЫМ, очень помог... Я уже и ненадеялся получить ответ.

Цитата(Bacardi @ 22.3.2005, 01:21)

народ, а можно вас попросить вставлять в исходники комментарии?

Да тут смысл в том, что из старого имеющегося класса TMemo, получен потомок "другой мемо"

Цитата

зачем для каждого поста создавать Memo, не проще ли их поместить в одно окно?

Всмысле, посты у меня и находятся в одном окне, в компоненте скролбох, на панельках, которые тоже динамически создаются, а на этих панельках куча других элементов, где всё создаётся динамически. А мемы их полюбому на каждой панельки по одной штуке надо создавать.

ё моё!!! сказал ты про панельки и я тут же вспомнил клевый компонент, организующий вывод инфы из БД!!! DBCtrlGrid! Таблица из панелей. Кидаешь на панельки ДБлэйблс, ДБмемо, все, что тебе нужно для одного поста, ну и потом само создается динамически и не надо ничего лишнего придумывать!

А еще момент... может тебе попробывать для 1 поста использовать РичЭдит и пихать туда отформатированные уже заголовки, темы, текст, ссылки и еще чего... допустим...

Это сообщение отредактировал(а) Bacardi - 22.3.2005, 09:24

Цитата(Bacardi @ 22.3.2005, 09:23)

вспомнил клевый компонент, организующий вывод инфы из БД!!! DBCtrlGrid!

Да компонент действительно клёвый, но имеет недостаток: например у него размер всех панелек одинаковый, т.е. один чел напишет одну строку, а другой 1000 строк, а займут оба поста на 2000 строк, а при прибавлении каждого последующего ─ будет Max из какого-либо поста умноженое на кол-во постов ─ выводится строк.
Да и вообще я уже всё это сделал, переделывать не имеет смысла.

я полностью солидарен с тобой!