paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 21:18:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

focus edit control in inputdialog upon show

Browse Source 
git-svn-id: trunk@5850 -
This commit is contained in:
micha 2004-08-25 17:39:57 +00:00
parent 59c7ac533f
commit 02624f0d07
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/inputdialog.inc
View File

@ -47,7 +47,7 @@ begin
ClientHeight := (58*AVG.Y) div 8;
ButtonTop := (39*AVG.Y) div 8;
ButtonWidth := (50*AVG.X) div 4;
ButtonHeight := (13*AVG.Y) div 8;
ButtonHeight := 2*AVG.Y;
Edit := TEdit.Create(Form);
With Edit do begin
Parent := Form;
@ -90,8 +90,8 @@ begin
TabOrder := 2;
end;
// Cant set focus here, since the form isn't visible yet.
// Edit.SetFocus;
// upon show, focus the edit control so people can start typing
ActiveControl := Edit;
If ShowModal = mrOk then
begin
Value := Edit.Text;