VPF::RichEdit и Графика 3D - Форум программистов

Antares21

Дата 12.5.2009, 12:49 (ссылка)

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

Загрузка ...

Новичок

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

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

Здравствуйте Уважаемые Форумчане. Я разрабатываю программку и появилась небольшая проблема. На форме присутствует

компонент RichEdit - в него будет загружаться текстовый файл. Также на форме присутствует трехмерное изображение

(параллелипипед) OpenGL. С этим Пипедом я могу делать что угодно, вращая колесико мышки я программирую увеличение

или уменьшение Пипеда. Только вот при компоненте RichEdit мне это делать не удается. Потому что как только я начинаю

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

происходило следующее: Если указатель мыши находится над компонентом RichEdit, то прокрутка осуществляется в этом

компоненте, а если указатель мыши находится не над компонентом RichEdit, то прокрутка в RichEdit не осуществляется и

происходит обработка события FormMouseWheel, т.е. над моим Пипедом. Код прилагается. Если зажать клавишу курсора

2вверх" или "вниз", и сразу зажать среднюю клавишу мышки и поводить ею по столу, то можно увидеть вращение пипеда.

Но как сделать это без зажатия клавиш курсора. Еще вопрос: как сделать перемещение пипеда, относительно зажатой

клавиши мыши (допустим правой) и движения мыши??? Заранее спасибо.

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

___.rar 7,96 Kb

Snowy

Дата 12.5.2009, 16:51 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Допустим на форме лежат 2 панели.
На первой лежит RichEdit, на второй вывод изображения.
Тогда обработчик выглятит так:

Код

procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
  if ControlAtPos(ScreenToClient(MousePos), true, true) <> RichEdit1.Parent then
  begin
    // что-то делаем
    Handled := True;
  end; // иначе ничего не делаем - крутится рич

Snowy

Дата 12.5.2009, 17:14 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

В данном конкретном случае делаем так:

Код

procedure TMainForm1.FormMouseWheelDown(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
  if ControlAtPos(ScreenToClient(MousePos), True, true) <> RichEdit1 then
  begin
    ViewAngle := ViewAngle - 5;
    FormResize (nil);
    Handled := True;
  end;
end;

procedure TMainForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  if ControlAtPos(ScreenToClient(MousePos), True, true) <> RichEdit1 then
  begin
    ViewAngle := ViewAngle + 5;
    FormResize (nil);
    Handled := True;
  end;
end;

Ибо тут всё лежит прямо на форме.

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