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.