fix, without focus other tool btns seemed not o work

This commit is contained in:
Basile Burg 2015-01-28 12:25:05 +01:00
parent 5f51a68141
commit f91f5d4961
1 changed files with 2 additions and 0 deletions

View File

@ -92,6 +92,8 @@ begin
itm.Caption := notav; itm.Caption := notav;
itm.SubItems.Add(notav); itm.SubItems.Add(notav);
itm.SubItems.Add(notav); itm.SubItems.Add(notav);
SetFocus;
itm.Selected := true;
end; end;
procedure TCELibManEditorWidget.btnEditAliasClick(Sender: TObject); procedure TCELibManEditorWidget.btnEditAliasClick(Sender: TObject);