Zoom con Delphi6 en XP de un TRichEdit

[Beckham]

En WindowsXP con Delphi 6 al pulsar el botón izquierdo del ratón y la rueda del ratón se hace un zoom del TRichEdit.


¿alguien me puede decir como evitar esto?


Gracias

[andres1569]

Hola Beckham:

Antes que nada, saludar a un personaje tan ilustre, yo que creía que estabas en China, de gira con el Real Madrid ... Bienvenido a los foros.

Fuera bromas, he probado el RichEdit de Delphi 6 en Windows 2000 pero no hace el efecto del zoom que tú dices que hace en XP, así que no sé si el siguiente código funcionará para lo que pides. Se trata de interceptar los eventos OnMouseWheelDown y OnMouseWheelUp y poner Handled a TRUE, si Ctrl está pulsado, al objeto de desactivar el comportamiento por defecto:

procedure TForm1.RichEdit1MouseWheelDown(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
  Handled  := ssCtrl in Shift;
end;

Ya nos dirás si funcionó o si no hizo ni caso.

Saludos

[delphi.com.ar]

Hablo desde el total desconocimiento, pero supongo que antes de que se produzca este Zoom, seguramente tu control recibirá un mensaje, lo bueno sería interceptar este mensaje. (¡¡Repito que son solo supociciones!!)


Saludos!

[Beckham]

Supongo, pero ese es el problema ¿que mensaje? He buscado ayuda de las API's pero no he encontrado nada.

Pero gracias, después del fin de semana probaré algo.