Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Положение курсора, delphi 5 
:(
    Опции темы
Dr.No_xXx
  Дата 24.3.2005, 16:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 215
Регистрация: 24.2.2005

Репутация: нет
Всего: нет
Здравствуйте,
Мне надо чтобы при наведении на центр формы курсор менялся.Помогите please. smile
PM MAIL   Вверх
FRAGNATIC
Дата 24.3.2005, 17:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


..::Свирепый Кодер::..
**


Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11
поставь в центр формы панэльку и в свойсве курсор у ней укажи какой курсор те нужен)
или на маусэмове сделай тип
Код

  if (x=100) and (y=100) then form1.Cursor:=crHelp
  else Cursor:=crDefault;
PM MAIL   Вверх
Dr.No_xXx
Дата 25.3.2005, 14:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 215
Регистрация: 24.2.2005

Репутация: нет
Всего: нет
Не непойедет.Надо чтобы небыло панелек или их небыло видно. smile
PM MAIL   Вверх
FRAGNATIC
Дата 25.3.2005, 14:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


..::Свирепый Кодер::..
**


Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11
ну возьми у панельки в свойстве BevelOuter поставь None
или как я сказал
if (x=100) and (y=100) ток таким же образом сделай квадрат какой те надо тип если больше этого но меньше этого ......
PM MAIL   Вверх
z-END
Дата 25.3.2005, 14:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


прафесар™
****


Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: 11
Всего: 102
Вешай на таймер GetCursorPos() и от него пляши


--------------------
Каждый чилавек пасвоему праф...а памоему НЕТ! 
PM WWW ICQ   Вверх
FRAGNATIC
Дата 25.3.2005, 14:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


..::Свирепый Кодер::..
**


Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11
зачем на таймер когда можно на маусэмовэ
Добавлено @ 14:54
темболее GetCursorPos() возвращает кординаты курсора относительна всего скрина а надо чисто на форме )
PM MAIL   Вверх
z-END
Дата 25.3.2005, 15:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


прафесар™
****


Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: 11
Всего: 102
1. а вдруг потом захочется на форму ченить положить например Image... и плакал твой MouseMove-)
2. ScreenToClient


--------------------
Каждый чилавек пасвоему праф...а памоему НЕТ! 
PM WWW ICQ   Вверх
Dr.No_xXx
Дата 25.3.2005, 21:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 215
Регистрация: 24.2.2005

Репутация: нет
Всего: нет
че за screentoclient?
и можно пример с getcursorpos()
PM MAIL   Вверх
FRAGNATIC
Дата 25.3.2005, 21:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


..::Свирепый Кодер::..
**


Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11
Код

var
  p: TPoint;
begin
  GetCursorPos(p);
  Caption:='X '+IntToStr(p.X)+'Y '+IntToStr(p.Y);
end;
PM MAIL   Вверх
FRAGNATIC
Дата 25.3.2005, 22:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


..::Свирепый Кодер::..
**


Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11
screentoclient
Цитата
Converts the screen coordinates of a specified point on the screen to client coordinates.

Delphi syntax:

function ScreenToClient(const Point: TPoint): TPoint;

C++ syntax:

Types::TPoint __fastcall ScreenToClient(const Types::TPoint &Point);

Description

Use ScreenToClient to convert a point in screen coordinates to local, or client area, coordinates. In client area coordinates (0, 0) corresponds to the upper left corner of the control's client area. In screen coordinates (0, 0) corresponds to the upper left corner of the screen.

Use ScreenToClient along with ClientToScreen to convert from one control's coordinate system to another control's coordinate system. For example,

P := TargetControl.ScreenToClient(SourceControl.ClientToScreen(P));
P = TargetControl->ScreenToClient(SourceControl->ClientToScreen(P));

converts P from coordinates in SourceControl to coordinates in TargetControl.

Добавлено @ 22:11
короче вопрос был если курсор в центре формы изменить курсор
вот ответ
Код

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if (X=Round(width/2)) and (Y=Round(Height/2)) then Cursor:=crHelp;
end;
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0486 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.