Hallo,
nach Suchen / Ersetzen (Abbrechen geklickt) verliert die Anwendung den Focus, z.B. der Explorer steht dann vor der Anwendung.
Bei einer älteren WPTools-Version half mal
procedure TCustomWPRichText.FindClose(Sender: TObject);
begin
IgnoreMouse;
Self.Setfocus; // <------------
end;Das habe ich nun auch bei WPTools 9 eingebaut aber es hat keine Wirkung!
Hat jemand bitte einen Tip für mich?
Ciao
Stefan
SetFocus kann soweit ich weiss keine Applikation die inaktiv geworden ist aktivieren.
Ich empfehle die Verwendung des neuen Suchen und Ersetzen Dialogs.
Ich empfehle die Verwendung des neuen Suchen und Ersetzen Dialogs.
Trotz Suche in den Versionsinformationen und der Onlinehilfe habe ich nichts über den neuen Dialog gefunden, gibt es irgendwo Beispielcode?
Ciao
Stefan
Das ding heisst TWPSearchReplaceDlg und Sie finden es in der Toolbox.
Auf dem Formular platzieren, die Eigenschaft EditBox auf das WPRichText richten und mit Execute starten.
Sooo einfach :-)))
danke
Ciao
Stefan
Der neue Dialog hat das Focus-Problem nicht mehr, nach Schließen von diesem hat das WPRichText wieder den Focus und der Cursor blinkt :-)
Nur eines ist unschön: der Dialog startet erstmalig an der obersten linken Ecke des Bildschirms, nach Verschieben behält er dann die neue Position bei bei erneutem Anzeigen.
Nach Programmstart aber hat er wieder die linke obere Ecke.
Einen Parent kann man nicht zuweisen und die Position anderweitig beeinflussen habe ich auch nichts gefunden, gibt es da noch einen Trick?
ExecuteParented hat keine Wirkung, ExecuteAt ist ebenfalls wirkungslos, der Dialog startet beim ersten Mal immer in der oberen linken Ecke...
Ciao
Stefan
Gut, die Positionierung des neuen Dialogs im OnShowDialog habe ich gefunden, nur gefällt er mir optisch und von der Bedienung her nicht so richtig, die alten Search / Replace - Dialoge waren da viel benutzerfreundlicher :-)
Was mir jetzt bei den alten Dialogen aufgefallen ist:
Das OnFindClose im WPTools 9 WPRichText wird überhaupt nicht mehr gefeuert wenn man den Dialog schließt !
Ist da was von 8 auf 9 kaputtgegangen?
Ciao
Stefan
Der event wird zugewiesen, wie gehabt
FFindDialog.OnClose := editor.OnFindClose;
FReplaceDialog.OnClose := editor.OnFindClose;
Ja das habe ich gesehen, aber der Event wird nicht gefeuert!
Ciao
Stefan
In Meinem Test mit Delphi 10.3 wird
procedure TWPCustomRichText.OnFindClose(Sender: TObject);
begin
IgnoreMouse;
end;
beim schließen des normalen Find Dialogs aufgerufen.
Zu beachten ist aber, dass diese TFindDialog mit der Application als Parent erstellt wird.
Man kann natürlich auch leicht eine eigene Instanz verwenden. Einfach dann FindTextMethod aufrufen.
procedure TForm1.DoFind(Sender: TObject);
var Options : TWPFindTextMethodOptions;
begin
Options := [];
if frWholeWord in TFindDialog(Sender).Options then
include(Options, wpedFindWholeWord);
if frHideMatchCase in TFindDialog(Sender).Options then
include(Options, wpedFindMatchCase);
if not (frDown in TFindDialog(Sender).Options) then
include(Options, wpedFindBackwards);
WPRichText1.FindTextMethod(TFindDialog(Sender).FindText, Options, '*', TFindDialog(Sender).Handle);
end;
procedure TForm1.btnFindClick(Sender: TObject);
begin
FindDialog1.OnFind := DoFind;
FindDialog1.Execute;
end;Danke, das mit dem Parent werde ich testen.
Ciao
Stefan