Используется Tedit в рид-онли режиме, а блин курсор все равно есть... как сделать так, чтобы Tedit курсор не показывал?

Disabled поставь

Это сообщение отредактировал(а) _hunter - 2.11.2005, 12:14

Давненько пост прочитал, все спросить хотел: где поставить этот самый Disabled?

Решение нашлось через WinAPI в DRKB, я конечно плохо там поискал прежде чем спросить, но зачем же язвить?!

Цитата

где поставить этот самый Disabled?

в его ( edit' а ) свойствах

Цитата

но зачем же язвить?

???

Сударь, у компонента VCL TEdit нет такого свойства, чтобы поставить ему Disabled и курсор (текстовый - не мышиный) пропал... А что касается свойства Cursor - идем в хелпы и видим примерно следующее:

Цитата

TCursor represents a mouse cursor image. Unit Controls or QControls Delphi syntax: type TCursor = -32768..32767; Description TCursor is an index into the global list of available cursors maintained by the Screen variable. TCursor values can include indexes to custom cursors added by an application, in addition to the predefined constants defined in the controls unit. The following table lists the predefined cursor constants and their position in the Cursors property array:

и ниже перечисляются возможные значения, описанные константами, например: crArrow, crNone, crDrag, crDefault и т.д. Имени константы Disabled среди них нет. Если этому свойству выставить значение crNone, тогда над TEdit'ом не будет только мышиного курсора, а текстовый останется как был! Повторяю решение есть в drkb, если нужно могу выложить тут свою реализацию!

Это сообщение отредактировал(а) wesadex - 8.11.2005, 09:02

блин, ну Enabled в false поставь.

Ладно, расслабься... Это все равно не то решение, что нужно, ибо меняется цветовая гамма в Edit при Edit.Enabled:=False и еще кое-что меняется, чего менять нельзя!

Код

type   TEditEx = class(TEdit)   private     { Private declarations }   protected     procedure WMPaint(var Msg: TMessage); message WM_Paint;     procedure WMSetFocus(var Msg: TMessage); message WM_SetFocus;     procedure WMNCHitTest(var Msg: TMessage); message WM_NCHitTest;     { Protected declarations }   public     { Public declarations }   published     { Published declarations }   end; procedure Register; implementation procedure Register; begin   RegisterComponents('Standard', [TEditEx]); end; procedure TEditEx.WMPaint(var Msg: TMessage); begin   inherited;   HideCaret(Handle); end; procedure TEditEx.WMSetFocus(var Msg: TMessage); begin   inherited;   HideCaret(Handle); end; procedure TEditEx.WMNCHitTest(var Msg: TMessage); begin   inherited;   HideCaret(Handle); end; end.

Вот Tedit без текстового курсора!

цветовую гамму можно и вручную настроить а про "кое-что" в ТЗ не сказанно ни слова...