Problem mit RxRichEdit unter 2000 und XP

[Sourcemaker]

Ich stelle gerade um auf Delphi7 (von D5) und benutze jetzt W2000 statt vorher NT4 nun ist mir beim Checken der Funktionen aufgefallen das kein PopUp-Menu im RxRichEdit erscheint.
Es liegt nicht an D7 da ich beim Aufruf der D5-Programmversion das gleiche Problem habe bzw. das D7-Compilat unter NT4 funktioniert.
Popup in Memos und im Standardrichedit funktioneren.

Dank im Voraus

Frank

[Luckie]

Ein RichEdit hat standardmäßig kein Popup-Menü. Allerdings kenne ich nicht dieses RxRichEdit.

[Sourcemaker]

Hallo Lucky,

ein RichEdit hat wie die meisten Komponenten ein Property=PopUpMenu.
Im Falle des Richedit kann man z.B. die Copy/Paste Funktionen unterstützen oder im Falle des Rxricheditd Bilder und Objekte speichen.

Frank

[Luckie]

Dass TRichEdit diese Eigenschaft hat weiß ich. Nur eine Memo hat von Haus aus schon eins, ohne dass ich eins dieser Eigenschaft zu weisen muß, das meine ich.

[Sourcemaker]

Ok dann haben wir aneinander vorbei geredet. Auf jedenfall weise ich explizit dem RxRichEdit (RXLib) ein PopUpMenu zu. Was wie gesagt auch unter W98, NT4 funktioniert.

Frank

[Sourcemaker]

Ich habe jetzt folgendes Code-Fragment aus der Unit RxRichEd verändert:

Delphi-Quellcode:

{$IFDEF RX_D5}
procedure TRxCustomRichEdit.WMRButtonUp(var Message: TMessage);
begin
  { RichEd20 does not pass the WM_RBUTTONUP message to defwndproc, }
  { so we get no WM_CONTEXTMENU message. Simulate message here.    }
  //if Win32MajorVersion < 5 then //auskommentiert sonst keine PopUp-Menu unter 2000/XP
    Perform(WM_CONTEXTMENU, Handle, LParam(PointToSmallPoint(
      ClientToScreen(SmallPointToPoint(TWMMouse(Message).Pos)))));
  inherited;
end;
{$ENDIF}

das scheint gut zu funktionieren. :D