1 files changed, 7 insertions, 0 deletions
diff --git a/examples/apps/uidesigner/vfdmain.pas b/examples/apps/uidesigner/vfdmain.pas
index f78b0787..a15790b6 100644
--- a/examples/apps/uidesigner/vfdmain.pas
+++ b/examples/apps/uidesigner/vfdmain.pas
@@ -68,6 +68,7 @@ type
     procedure   OnAnchorChange(Sender: TObject);
     procedure   OnEditWidget(Sender: TObject);
     procedure   OnEditWidgetOrder(Sender: TObject);
+    procedure   OnEditTabOrder(Sender: TObject);
     procedure   OnExit(Sender: TObject);
     procedure   OnOptionsClick(Sender: TObject);
     property    EditedFileName: string read FEditedFileName write SetEditedFileName;
@@ -403,6 +404,12 @@ begin
     SelectedForm.EditWidgetOrder;
 end;
 
+procedure TMainDesigner.OnEditTabOrder(Sender: TObject);
+begin
+  if SelectedForm <> nil then
+    SelectedForm.EditTabOrder;
+end;
+
 procedure TMainDesigner.OnExit(Sender: TObject);
 begin
   frmProperties.Close;