RichEdit1 Komponente von Delphi 21.0 läßt Programm abstürzen

[paule32.jk]

Hallo,

ich habe eine TRichEdit Komponente auf eine TForm gelegt, und dieser dann ein OnMouseDown Event zugewiesen.
wenn ich dann im laufenden Prozess die Maus im RichEdit klicke passiert nichts.

Wenn ich aber nun Text eingebe, und wieder wahllos innerhalb der RichEdit Komponente klicke, stürzt die Anwendung ab.

Den folgenden Code habe ich dabei als Fehlerquelle lokalisieren können:

Delphi-Quellcode:

procedure TForm2.RichEdit1MouseDown(
  Sender: TObject;
  Button: TMouseButton;
  Shift : TShiftState;
  X, Y  : Integer);
  var
  ClickPos: Integer;
begin
  ClickPos := RichEdit1.Perform(
    EM_CHARFROMPOS, 0, MakeLong(
    RichEdit1.CaretPos.X,
    RichEdit1.CaretPos.Y));

  ShowMEssage('X: ' + inttostr(clickpos));
end;

ich verwende Windows 11 64-Bit Pro, die Anwendung ist aber 32-Bit.

[paule32.jk]

Lösung:
- Perform weglassen
- RichEdit1.SelStart verwenden

[himitsu]

Haben die den Schrott eigentlich repariert?
[edit] nein [/edit]

SelStart und SelLength liefern originale Werte. (was falsch ist und der Bugreport wird ignoriert)
RichEdit verwendet #13 als Zeilenumbruch,
aber an Text und Lines wird rumgepfuscht und es kommt #13#10 raus,
also mit jeder Zeile verrutsch die Position um ein weiteres Char.