Hallo!
In einer eigenen TMyRichEdit-Klasse habe ich die beiden von TCustomRichEdit abstammenden Methoden "SetSelStart(..)" und "SetSelLength(..)" überschrieben. Jetzt wundere ich mich allerdings einigermaßen, warum die Programm-Abarbeitung in diesen Routinen scheinbar nie vorbeikommt (bzw. dort anhält, nachdem ich z.B. dort jeweils einen Breakpunkt reingesetzt habe). Hat eventuell jemand eine Idee, woran das liegen könnte?
Delphi-Quellcode:
TMyRichEdit = class(TRichEdit)
private
fLButtonDown : boolean;
...
protected
...
procedure SetSelLength(Value: Integer); override;
procedure SetSelStart(Value: Integer); override;
public
...
end;
...
Procedure TMyRichEdit.SetSelStart(Value: Integer);
begin
// Weil: Wenn fLButtonDown=TRUE mache ich diese Arbeit anderswo selbst!
if not fLButtonDown then inherited;
end;
Procedure TMyRichEdit.SetSelLength(Value: Integer);
begin
// Weil: Wenn fLButtonDown=TRUE mache ich diese Arbeit anderswo selbst!
if not fLButtonDown then inherited;
end;
Thx schonmal im Voraus