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:
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?