VPF::курсор в Memo - Форум программистов

artsb

Дата 27.5.2008, 21:00 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

Репутация: 39
Всего: 64

Всем привет.

На форме есть несколько Memo со свойством ReadOnly=true.
Вопрос в том, как можно скрыть курсор навсегда. А то, от него всё равно толку нет. Только мигает и мигает... smile

--------------------

Чем отличается умный человек от мудрого?
Умный - выпутается из любой ситуации.
Мудрый - просто в неё не попадёт.

Palladin

Дата 27.5.2008, 21:28 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17

Сделай его белым smile

или под цвет фона мемо smile

--------------------

Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]

Rrader

Дата 28.5.2008, 02:46 (ссылка)

(голосов:1)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 13
Всего: 191

Enabled = False не подойдет? smile

Это сообщение отредактировал(а) Rrader - 31.5.2008, 11:16

--------------------

Let's do this quickly!
Rest in peace, Vit!

THandle

Дата 28.5.2008, 10:27 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 25
Всего: 372

Код


HideCaret(Memo1->Handle);

Не пойдет такое?

Добавлено через 3 минуты и 29 секунд
Поставить это например в OnMouseDown этого Memo...

mrbrooks

Дата 28.5.2008, 11:03 (ссылка)

(нет голосов)

Загрузка ...

трололомен

Профиль
Группа: Завсегдатай
Сообщений: 4259
Регистрация: 4.10.2006
Где: Дол Гулдур

Репутация: 167
Всего: 306

Цитата(THandle @ 28.5.2008, 10:27)

Код


HideCaret(Memo1->Handle);

Не пойдет такое?

Добавлено @ 10:31
Поставить это например в OnMouseDown этого Memo...

Очень даже пойдет имхо.

Я когда такую фишку делал еще добовлял

Код


HideCaret(Memo1->Handle);

при создании формы. Все должно 100% работать.

THandle

Дата 28.5.2008, 11:21 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 25
Всего: 372

Цитата(mrbrooks @ 28.5.2008, 12:03

)

Я когда такую фишку делал еще добовлял
Выделить всёкод C++ Builder
1:

HideCaret(Memo1->Handle);

при создании формы. Все должно 100% работать.

Можно просто кому то другому фокус отдавать и можно без этого будет обойтись smile

artsb

Дата 28.5.2008, 19:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

Репутация: 39
Всего: 64

Цитата(THandle @ 28.5.2008, 10:27

)

Код


HideCaret(Memo1->Handle);

Не пойдет такое?

К сожалению нет. Если нажать в мемо правой кнопкой мыши он опять появляется. А хотелось бы его вообще скрыть. Навсегда...

Добавлено через 3 минуты и 27 секунд

Цитата(Rrader @ 28.5.2008, 02:46

)

Enabled = False не подойдет?

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

Добавлено через 6 минут и 25 секунд
Хотя это не по теме, такой вопрос:
Как отключить Popup меню у мемо? Навсегда smile

--------------------

THandle

Дата 28.5.2008, 19:34 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 25
Всего: 372

artsb, не понял? как это он появляется? У меня нет C++Builder, только Делфи, но такой вот код отлично работает и курсор ни при каких обстоятельствах не появляется:

Код


procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  HideCaret(Memo1.Handle);
end;

artsb

Дата 28.5.2008, 19:40 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

Репутация: 39
Всего: 64

Цитата(THandle @ 28.5.2008, 19:34

)

курсор ни при каких обстоятельствах не появляется:

Я тоже так думал, и уже обрадовался. Но вот нажал правой кнопкой мыши в тексте, потом левой где-нибудь в другом месте (вне мемо) и он появился.

--------------------

mrbrooks

Дата 28.5.2008, 19:43 (ссылка)

(нет голосов)

Загрузка ...

трололомен

Профиль
Группа: Завсегдатай
Сообщений: 4259
Регистрация: 4.10.2006
Где: Дол Гулдур

Репутация: 167
Всего: 306

Конечно жесткачь но тогда отловить все сообщения на мемо и зафигачить предложенное THandle - хотя дело геморное...

THandle

Дата 28.5.2008, 19:53 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 25
Всего: 372

artsb, так... поспешил...

Так как больше методов не знаю, буду этот добивать. В WindowProc будем это делать, то есть при всех сообщениях.

Вот код на Делфи, если нужны пояснения что делает(хотя врядли), то скажу.

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    FOldMemoProc : TWndMethod;
    procedure MemoProc(var Message : TMessage);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  FOldMemoProc := Memo1.WindowProc;
  Memo1.WindowProc := MemoProc;
end;

procedure TForm1.MemoProc(var Message: TMessage);
begin
  FOldMemoProc(Message);
  HideCaret(Memo1.Handle);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Memo1.WindowProc := FOldMemoProc;
end;

end.

Это сообщение отредактировал(а) THandle - 28.5.2008, 20:02

artsb

Дата 28.5.2008, 20:01 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

Репутация: 39
Всего: 64

Может если прервать открытие меню всё будет ок. Но как это сделать?

Добавлено через 1 минуту и 50 секунд
THandle, ок, попробую.

--------------------

Palladin

Дата 28.5.2008, 21:28 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17

курсор под цвет фона да и [censored 6] smile

чего паришся то smile

--------------------

Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]

THandle

Дата 28.5.2008, 21:32 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 25
Всего: 372

Palladin, а покажи ка как это делаешь... я что то даже не знаю smile

artsb, как там мой вариант? у меня работает вроде smile

Palladin

Дата 29.5.2008, 10:14 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17

Эээ

Вообщем кликаешь по мемо, в инспекторе объектов можно задать(вроде как, щас проверю smile

) два типа курсоров один при наведении другой при фокусе, щас гляну отпишу подробнее smile

Добавлено через 6 минут и 58 секунд
Вообщем да, моей вариант не прокатит smile

--------------------

Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »