TRichEdit Zoom deaktivieren

**dust258**

Hallo Leute,
ich habe ein "kleines" Problem an dem ich schon ein paar Stunden sitze. Ich möchte das automatische Zoomen in einem Richedit (linke Maustaste + Mausrad) deaktivieren.

Es gibt keine Option dafür und das überschreiben der Methoden (OnMouseWheel) hat auch keinen Effekt.

Mein 2. Ansatz war es die WndProc in meiner Ableitung zu überschreiben:

markieren

Code:

			procedure TRichEditSpellCheck.WndProc(var Message: TMessage);

const

  EM_SETZOOM = (WM_USER + 225);

begin

  if Message.Msg <> EM_SETZOOM then

    inherited;

end;

Das funktioniert leider nur zum Teil. Ein paar Messages werden abgefangen, aber nicht alle. So kann man durch wildes Klicken und Scrollen immer noch zoomen...

Hat Jemand eine Idee?

TRichEdit Zoom deaktivieren

TRichEdit Zoom deaktivieren

Forumregeln