Hvordan kan man gennemtvinge en setFocus på et Edit felt?

På din forms onpaint

edit1.setfocus;

Stoney

det lyder for mig, som om, at der returneres tilfældigt, når du har kaldt et andet program og vender tilbage -
hvis dette er tilfældet, så prøv at kalde det andet program med følgende - som venter med at gå videre i dit program, til det andet er afsluttet, og her kan du så placere dit Editfelt.SetFocus;
--------------------------------
unit execwait;

interface

uses
  Classes, Windows, SysUtils, Forms, ShellAPI;

function ExecAppWait(AppName, Params: string): Boolean ;

implementation

{ Execute an external application APPNAME.
  Pass optional parameters in PARAMS, separated by spaces.
  Wait for completion of the application
  Returns FASLE if application failed.                    }
function ExecAppWait(AppName, Params: string): Boolean;
var
  // structure containing and receiving info about application to start
  ShellExInfo: TShellExecuteInfo;
begin
  FillChar(ShellExInfo, SizeOf(ShellExInfo), 0);
  with ShellExInfo do begin
    cbSize := SizeOf(ShellExInfo);
    fMask := see_Mask_NoCloseProcess;
    Wnd := Application.Handle;
    lpFile := PChar(AppName);
    lpParameters := PChar(Params);
    nShow := sw_ShowNormal;
  end;
  Result := ShellExecuteEx(@ShellExInfo);
  if Result then
    while WaitForSingleObject(ShellExInfo.HProcess, 100) = WAIT_TIMEOUT do
    begin
      Application.ProcessMessages;
      if Application.Terminated then Break;
    end;
end;

end.
-----------------------

Virker desværre kun periodisk...

Det bagved liggende program kører ikke videre før der andet terminerer. Det køre sekventielt så jeg tror ikke det løser problemet...

Måske bruge PostMessage til det program du returnerer til? I eventen kan du sætte focus.

Ikke længere aktuelt...