Zoom con Delphi6 en XP de un TRichEdit

[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