<div>
tested previous comments <br />
<br />

<pre><code id="code-20-40983023-1">procedure TForm3.Button1Click(Sender: TObject);
begin
  Perform(WM_NextDlgCtl, 0, 0);
end;

procedure TForm3.SpeedButton1Click(Sender: TObject);
begin
  Perform(WM_NextDlgCtl, 0, 0);
end;</code></pre>
<br />
if your button is on that same form, you don't need to roundtrip via the Screen.ActiveForm
</div>


tested previous comments



procedure TForm3.Button1Click(Sender: TObject);
begin
  Perform(WM_NextDlgCtl, 0, 0);
end;

procedure TForm3.SpeedButton1Click(Sender: TObject);
begin
  Perform(WM_NextDlgCtl, 0, 0);
end;


if your button is on that same form, you don't need to roundtrip via the Screen.ActiveForm

<div>
TSpeedButton.. its work thanks....
</div>


<div>
<div class="content wysiwyg-content">
hi..<br />
<br />
i have one tbutton and 10 tedit , i want every click tbutton focus change to edit1 and click tbutton again focus change to edit2...etc<br />
<br />
procedure TForm1.Button3Click(Sender<wbr />: TObject);<br />
begin<br />
Screen.ActiveForm.Perform(<wbr />WM_NextDlg<wbr />Ctl, 0, 0);<br />
end;<br />
<br />
code above just focus to tedit1 can't focus to next tedit...<br />
<br />
thanks...
</div>
</div>


hi..

i have one tbutton and 10 tedit , i want every click tbutton focus change to edit1 and click tbutton again focus change to edit2...etc

procedure TForm1.Button3Click(Sender: TObject);
begin
Screen.ActiveForm.Perform(WM_NextDlgCtl, 0, 0);
end;

code above just focus to tedit1 can't focus to next tedit...

thanks...

Delphi,next focus

Delphi is the most powerful Object Pascal IDE and component library for cross-platform Native App Development with flexible Cloud services and broad IoT connectivity. It provides powerful VCL controls for Windows 10 and enables FMX development for Windows, Mac and Mobile. Delphi is your choice for ultrafast Enterprise Strong Development™. Look for increased memory for large projects, extended multi-monitor support, improved Object Inspector and much more. Delphi is 5x faster for development and deployment across multiple desktop, mobile, cloud and database platforms including 32-bit and 64-bit Windows 10.