We help IT Professionals succeed at work.

Hoist the colors! We’ve added location flags to usernames sitewide, so it's easier to connect with the global community on EE. View My Profile

x

set focus a component on my activeform after create

PatrickDecottignies
on
294 Views
Last Modified: 2010-04-06
How can i set the focus to one of my components on my activeform after opening the html page and creating the activeform without user intervention ???
Comment
Watch Question

Commented:
This one is on us!
(Get your first solution completely free - no credit card required)
UNLOCK SOLUTION

Author

Commented:
This doesn't work !! The focus is still outside my activeform

Commented:
I tried to duplicate your problem and my first suggestion didn't work (setting ActiveControl property at design time).  However, the second suggestion did work.  I published a method FormFocus similar to

procedure TActiveForm.FormFocus;
begin
     SetFocus;
     Edit1.SetFocus;
end;

I then called this from a javascript acting on the OnLoad event like this

<script LANGUAGE="JavaScript" FOR="window" EVENT="onLoad()">
<!--
MyActiveForm.FormFocus()

//-->
    </script>

I used IE 4.01 and Delphi 3.  My OLEMISC tags on TActiveFormFactory.Create were ACTIVATEWHENVISIBLE.  One other thing to think about is that any activity after the call my change focus from where you set it.  Hope this helps!

Author

Commented:
Can you please send me the whole description of your html page.
I'm not so familar with javascript, so i do the test but it doesn't work

Author

Commented:
Here it is!  The important part is the object declaration for the active form object and the javascript.  The object ID is the name you make up to label your active form. That way you can call to it in Javascript.  I labeled mine StatWeb.  "window" is the constant term for the page you are working with so that will always be the same.  Hope this helps out!


<html>

<head><script LANGUAGE="JavaScript" FOR="window" EVENT="onLoad()">
<!--
StatWeb.FormFocus()

//-->
    </script>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Status</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">


<meta name="Microsoft Theme" content="safari 111"><meta name="Microsoft Border" content="t"></head>

<body background="_themes/safari/saftextr.jpg" bgcolor="#000000" text="#CCCC99" link="#CC9900" vlink="#996600" alink="#FF3300"><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td><!--mstheme--><font face="trebuchet ms, arial, helvetica">

<p align="center"><br>
<img src="_derived/Status.htm_cmp_safari110_bnr.gif" width="600" height="60" border="0" alt="Status"></p>

<p align="center"><script language="JavaScript"><!--
MSFPhover =
  (((navigator.appName == "Netscape") && 
  (parseInt(navigator.appVersion) >= 3 )) ||
  ((navigator.appName == "Microsoft Internet Explorer") && 
  (parseInt(navigator.appVersion) >= 4 )));
function MSFPpreload(img)
{
  var a=new Image(); a.src=img; return a;
}
// --></script><script language="JavaScript"><!--
if(MSFPhover) { MSFPnav1n=MSFPpreload('_derived/home_cmp_safari110_hbtn.gif'); MSFPnav1h=MSFPpreload('_derived/home_cmp_safari110_hbtn_a.gif'); }
// --></script><a href="./" onmouseover="if(MSFPhover) document['MSFPnav1'].src=MSFPnav1h.src" onmouseout="if(MSFPhover) document['MSFPnav1'].src=MSFPnav1n.src"><img src="_derived/home_cmp_safari110_hbtn.gif" width="140" height="60" border="0" alt="Home" align="middle" name="MSFPnav1"></a></p>

<p align="center">&nbsp;</p>
<!--mstheme--></font></td></tr><!--msnavigation--></table><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><!--msnavigation--><td valign="top"><!--mstheme--><font face="trebuchet ms, arial, helvetica">

<p align="center"><script LANGUAGE="JavaScript">
    </script>
<object ID="StatWeb" WIDTH="464" HEIGHT="712" align="center" hspace="0" vspace="0" CLASSID="CLSID:30831D6F-C985-11D1-9C9C-0060B0A11A32" CODEBASE="http://mtdmalan/newhire/XStatus.ocx#version=1,0,0,0">
</object>
<!--mstheme--></font><!--msnavigation--></td></tr><!--msnavigation--></table></body>
</html>

Gain unlimited access to on-demand training courses with an Experts Exchange subscription.

Get Access
Why Experts Exchange?

Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.

Jim Murphy
Programmer at Smart IT Solutions

When asked, what has been your best career decision?

Deciding to stick with EE.

Mohamed Asif
Technical Department Head

Being involved with EE helped me to grow personally and professionally.

Carl Webster
CTP, Sr Infrastructure Consultant
Empower Your Career
Did You Know?

We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE

Ask ANY Question

Connect with Certified Experts to gain insight and support on specific technology challenges including:

  • Troubleshooting
  • Research
  • Professional Opinions
Unlock the solution to this question.
Join our community and discover your potential

Experts Exchange is the only place where you can interact directly with leading experts in the technology field. Become a member today and access the collective knowledge of thousands of technology experts.

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

OR

Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.