Memo и курсор

Вопросы программирования и использования среды Lazarus.

Модератор: Модераторы

flowdoc
новенький
Сообщения: 22
Зарегистрирован: 17.12.2014 16:26:45

Memo и курсор

Сообщение flowdoc »

Как сделать чтобы при наведении на memo курсор мыши не менялся, то есть оставался в виде стрелочки?
Делаю так:

Код: Выделить всё

procedure TForm2.Memo1MouseEnter(Sender: TObject);
begin
    Memo1.Cursor:=crArrow;
end;


Так не получается
Аватара пользователя
Лекс Айрин
долгожитель
Сообщения: 5723
Зарегистрирован: 19.02.2013 16:54:51
Откуда: Волгоград
Контактная информация:

Сообщение Лекс Айрин »

попробуй обновить мемо.

Код: Выделить всё

procedure TForm2.Memo1MouseEnter(Sender: TObject);
begin
    Memo1.Cursor:=crArrow;
    Memo1.Repaint;
end;
flowdoc
новенький
Сообщения: 22
Зарегистрирован: 17.12.2014 16:26:45

Сообщение flowdoc »

не помогло
sign
энтузиаст
Сообщения: 1131
Зарегистрирован: 30.08.2009 09:20:53

Сообщение sign »

Хм.
Странно всё это.
Берёте и
1.jpg

вот вам курсор в любом виде.
У вас нет необходимых прав для просмотра вложений в этом сообщении.
flowdoc
новенький
Сообщения: 22
Зарегистрирован: 17.12.2014 16:26:45

Сообщение flowdoc »

так тоже не работает
Аватара пользователя
ZeUsM
новенький
Сообщения: 57
Зарегистрирован: 08.11.2010 12:55:35
Откуда: Нерезиновая

Сообщение ZeUsM »

:shock: А версия какая? В тупоне последнем все работает.
Курсор не меняется.
flowdoc
новенький
Сообщения: 22
Зарегистрирован: 17.12.2014 16:26:45

Сообщение flowdoc »

lazarus 1.2.6, FPC: 2.6.4
Ubuntu 12.04 LTS
Аватара пользователя
Лекс Айрин
долгожитель
Сообщения: 5723
Зарегистрирован: 19.02.2013 16:54:51
Откуда: Волгоград
Контактная информация:

Сообщение Лекс Айрин »

Попробуйте очистить проект.
pupsik
энтузиаст
Сообщения: 1154
Зарегистрирован: 20.08.2014 16:20:13
Контактная информация:

Сообщение pupsik »

не круто, но - вариант. т.е. такого не предлагали. :mrgreen:

Код: Выделить всё

procedure TForm1.Memo1MouseEnter(Sender: TObject);
begin
    Screen.Cursor := crArrow ;
end;

procedure TForm1.Memo1MouseLeave(Sender: TObject);
begin
  Screen.Cursor := crDefault;
end;
flowdoc
новенький
Сообщения: 22
Зарегистрирован: 17.12.2014 16:26:45

Сообщение flowdoc »

pupsik писал(а):не круто, но - вариант. т.е. такого не предлагали. :mrgreen:

Код: Выделить всё

procedure TForm1.Memo1MouseEnter(Sender: TObject);
begin
    Screen.Cursor := crArrow ;
end;

procedure TForm1.Memo1MouseLeave(Sender: TObject);
begin
  Screen.Cursor := crDefault;
end;


Спасибо! Помогло!
pupsik
энтузиаст
Сообщения: 1154
Зарегистрирован: 20.08.2014 16:20:13
Контактная информация:

Сообщение pupsik »

Спасибо! Помогло!

станно это... я думал не поможет :wink:

п.с.
пожалуйста...
а то, судя по теме, вскоре лазаря переустановить бы предложили :twisted:
sign
энтузиаст
Сообщения: 1131
Зарегистрирован: 30.08.2009 09:20:53

Сообщение sign »

pupsik писал(а):а то, судя по теме, вскоре лазаря переустановить бы предложили :twisted:

Надо переустановить, раз штатное средство не сработало.
Аватара пользователя
Лекс Айрин
долгожитель
Сообщения: 5723
Зарегистрирован: 19.02.2013 16:54:51
Откуда: Волгоград
Контактная информация:

Сообщение Лекс Айрин »

pupsik писал(а):судя по теме, вскоре лазаря переустановить бы предложили :twisted:


Зачем переустанавливать? Снеси настройки Lazarus и FPC.
pupsik
энтузиаст
Сообщения: 1154
Зарегистрирован: 20.08.2014 16:20:13
Контактная информация:

Сообщение pupsik »

переустанавливать
у..у: кажись цепануло :mrgreen:

А вот зачем... Хм... Как я знаю (возможно и не прав), существует 4 стабильных версии: дист (часто древний), и 3 варианта (стабильных) от лазаря. Есть еще свн версии. Да и ФПС не отстает... Вот и срабатывает эффект винды: не работает - ПЕРЕУСТАНОВИ (формат C и 15 минут кайфа) :lol:
Аватара пользователя
Лекс Айрин
долгожитель
Сообщения: 5723
Зарегистрирован: 19.02.2013 16:54:51
Откуда: Волгоград
Контактная информация:

Сообщение Лекс Айрин »

pupsik, мало того, в дистре может быть 2 версии лазаруса "искаропки".
Ответить