Hallo,
ich versuche mal zu beschreiben wo das Problem liegt:
- Es ist ein Dokument erstellt mit mehreren Textboxen.
- ich klicke auf eine solche Textbox, aber da springt der Cursor schon im MouseDown an den Dokumentanfang und das Dokument wird nach oben gescrollt und das gewünschte Textobjekt verschwindet aus dem Sichtbereich
- damit wird dann ein falsches, gerade unter dem Cursor befindliches Textobjekt angewählt.
Im TextObject.Mouseup habe ich
Code
procedure TWPTDokument.WPRichTextTextObjectMouseUp(Sender: TWPCustomRtfEdit;
pobj: TWPTextObj; obj: TWPObject; Button: TMouseButton; Shift: TShiftState;
X, Y: integer);
var
par, startpar: TParagraph;
t: string;
begin
if (obj <> nil) and (obj.GetRTFDataBlock <> Sender.ActiveText) then
begin
// showmessage(pobj.name);
obj.Edit;
end;
end;
Alles anzeigen
Wie kann ich das temporäre Springen des Cursors an den Dokumentanfang verhindern?
Ciao
Stefan