Setfocus in edit box of TFindDialog

Use:
Edit1.Setfocus;

I think Dennis_Treacy is talking about the EditBox in the TFindDialog...
I looked at the components[] property, but it counts 0...

TFindDialog calls the function from
function FindText; external commdlg32  name 'FindTextA';

As

FFindHandle := FFindReplaceFunc(FFindReplace);

So we have to look at the child windows of FFindHandle, But it's private :)..

An ugly approach:
  Copy all the codes of TFindDialog to a new unit,

Then, by the help of FindWindowEx function acquire the handle of EditBox,
Finally call the function Windows.SetFocus(HandleOfEditBox);

However, If i execute the FindDialog, The focus is on EditBox..


 





 

Ugly approach became very ugly when i tried :)..
Have to copy half of the unit Dialogs...So let's forget it...

if you run like this the edit box in the find dialog will be focused

FindDialog1.Execute(Edit1.Handle);

Edit1 is an undeclared identifier. Is there an actual published name for that edit box component?

FindDialog1.Execute(self.Handle) is the answer;