FindDialog in Delphi 2006

[pmoegenb]

Bei FindDialog1.Execute wird der Cursor unterhalb des Eingabefeldes angezeigt und muss erst per Mausklick ins Eingabefeld Findtext gesetzt werden.

Dies wurde bislang bei Formularen beobachtet, deren FormStyle <> fsMDIChild lauten.

Ist hierzu eine Lösung bekannt ?

[pmoegenb]

Arbeitet Niemand mit Delphi 2006, bzw. tritt das Problem nur bei mir auf ?

[Matze]

Hallo Peter,

ich nutze TurboDelphi, doch das müsste keinen Unterschied machen. Lasse ich FormStyle auf fsNormal und rufe den FindDialog auf, dann bleibt mein Cursor an der ursprünglichen Stelle und das Feld, in das ich den Suchbegriff eingeben kann, erhält den Fokus. Ich habe zum Testen lediglich den Dialog und einen Button auf's Formular gezogen, in dessen OnClick-Ereignis der Dialog geöffnet wird.

[pmoegenb]

Hallo Matze,

danke für Deine Antwort. Es muss an Delphi 2006 Prof. liegen. Wird dieselbe Anwendung mit Delphi 7 Prof. compiliert (die Anwendung kommt ursprünglich von Delphi 7), tritt das Problem nicht auf.

Verwende ich statt TFindDialog JvFindReplace von JEDI, tritt dasselbe Phänomen auf.

Das HauptFormular mit der FormStyle fsMDIForm hat ein Formular mit der FormStyle fsMDIChild. Das ChildFormular wird überlagert mit Formularen mit der FormStyle fsNormal mittels

Delphi-Quellcode:

If Visible = false then
   ShowModal
else
   BringToFront;

Das Phänomen tritt nur bei diesen Formularen auf.