CFL in Matrix tab event

Hi All,
          In my addon i hava a matix.In that first column when i press tab a list of items window should be get opened(from ITEM MASTER DATA) in a CFL,can anybody suggest me some coding for this????
regards,
shangai.

Hi
oForm.Freeze(True)
                                    Dim cflevent As SAPbouiCOM.ChooseFromListEvent = pVal
                                    Dim oCFLEvento As SAPbouiCOM.ChooseFromList
                                    Dim strUid As String = cflevent.ChooseFromListUID
                                    oCFLEvento = oForm.ChooseFromLists.Item(strUid)
                                    Dim oDataTable As SAPbouiCOM.DataTable = cflevent.SelectedObjects
                                    Try
                                        If strUid = CFL1 Then
                                            Try
                                                oMatrix.Columns.Item("col0").Cells.Item(pVal.Row).Specific.string = oDataTable.GetValue(0, 0)
                                            Catch ex As Exception
                                            End Try
                                        End If
Thanks..

Similar Messages

  • Cfl in matrix

    Please any one help me how to add the cfl this matrix.
    oNewItem = oOrderForm.Items.Add("Matrix1", SAPbouiCOM.BoFormItemTypes.it_MATRIX)
            oNewItem.Left = 100
            oNewItem.Width = 350
            oNewItem.Top = oItem.Top + (i - 1) * 25
            oNewItem.Height = 100
            oNewItem.Visible = True
            oMatrix = oNewItem.Specific
            oColumns = oMatrix.Columns
            oNewItem.FromPane = 9
            oNewItem.ToPane = 9
            oColumn = oColumns.Add("#", SAPbouiCOM.BoFormItemTypes.it_EDIT)
            oColumn.TitleObject.Caption = "#"
            oColumn.Width = 30
            oColumn.Editable = False
            '// Add a column for BP Card Code
            oColumn = oColumns.Add("DSCardCode", SAPbouiCOM.BoFormItemTypes.it_COMBO_BOX)
            oColumn.TitleObject.Caption = "Item Code"
            oColumn.Width = 150
            oColumn.Editable = True
            oColumn.DataBind.SetBound(True, "opr1", "U_Code")

    Dear lakshmi narayanan,
    First you need add the CFL before using it
               Dim oCFLs As SAPbouiCOM.ChooseFromListCollection
                oCFLs = oForm.ChooseFromLists
                Dim oCFL As SAPbouiCOM.ChooseFromList
                Dim oCFLCreationParams As SAPbouiCOM.ChooseFromListCreationParams
                oCFLCreationParams = SBO_Application.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_ChooseFromListCreationParams)
                oCFLCreationParams.MultiSelection = False
                oCFLCreationParams.ObjectType = "2"
                oCFLCreationParams.UniqueID = "CFL1"
                oCFL = oCFLs.Add(oCFLCreationParams)
    then add the CLF into the Column
           ' Adding a User Data Source
            oForm.DataSources.UserDataSources.Add("EditDS", SAPbouiCOM.BoDataType.dt_SHORT_TEXT)
           ' Bind the Column with the UserDataSources
            oColumn.DataBind.SetBound(True, "", "EditDS")
            oColumn.ChooseFromListUID = "CFL1"
            oColumn.ChooseFromListAlias = "CardCode"
    Best Regards
    Jane Jing
    SAP Business One Forums team

  • Filtering CFL on Matrix

    Hi to all,
    How can i filter the System CFL which is in Matrix Column. I have filtered the System CFL in Form but unable to do in CFL of Matrix.
    What i am trying to do is Filtering The Project Code CFL in A/R Invoice
    Here is the code i have
    if (pVal.FormTypeEx == "133" & pVal.ColUID == "4")
                        if (pVal.InnerEvent & pVal.Before_Action)
                            BubbleEvent = false;
                            SAPbouiCOM.Form oForm;
                            SAPbouiCOM.Column oColumn;
                            SAPbouiCOM.ChooseFromList oCFL = null;
                            SAPbouiCOM.Conditions oCons = null;
                            try
                                oForm = SboApplication.Forms.Item(pVal.FormUID);
                                oCFL = (SAPbouiCOM.ChooseFromList)oForm.ChooseFromLists.Item("26");
                                //AddChooseFromList();
                                oCons = oCFL.GetConditions();
                                if (oCons.Count == 0)
                                    SAPbouiCOM.Condition oCon = null;
                                    oCon = oCons.Add();
                                    oCon.Alias = "PrjCode";
                                    oCon.Operation = SAPbouiCOM.BoConditionOperation.co_EQUAL;
                                    oCon.CondVal = "000021";
                                    oCFL.SetConditions(oCons);
                                BubbleEvent = true;
                            catch (Exception ex)
    with regards
    Bikram

    hi maskey,
    thanks for your reply, i have got the solution, the problem is due to the use same object in two different fields. i got the solutions.
    regards
    Bikram

  • Manually dispatching a keyboard tab event on a form does not work

    Hi,
    I am trying to solve the following issue:
    I have a form that is sitting on a TitleWindow. This is a popup window. I have a TextInput field. After clicking on the TextInput field when I try to paste something on it, nothing happens the first time and it works i.e. I am able to paste when I do a cntrl V the second time (I am trying to solve this weired behavior). When I use the keyboard to tab to the TextInput field I am able to paste using cntrl V  the first time itself.
    Therefore, I am trying to manually dispatch a tab keyboard event on a form using the following code and this does not work. I have 2 TextInput component on the form and I want the cursor to be on the second TextInput component.
    I have a have a key down handler and I can see that the event that comes in is a tab event, but on the UI the cursor does not position itself correctly.
    myForm.setFocus();
    myForm.dispatchEvent(
    new KeyboardEvent(KeyboardEvent.KEY_UP, true, false, Keyboard.TAB,Keyboard.TAB ))
    Am I missing something?
    Appreciate your help.
    Thanks
    Lilly

    No I am not trying to change the text programmatically. I have added a click event handler and a paste event handler on the textinput. I checked the differences in the properties of event and did not see anything that is different.
    I have a hunch that it has something to do with the fact that this form is sitting on a popup window.

  • TAB event on Grid

    Hi All,
    I have taken one grid in that grid i bind four column in grid.
    I want how to give TAB event on first column and bind automaticaly link button for details.
    Like Purchasing - A/P module in Purchase order page.
    In that in grid 'Item No' column give TAB open item no list and with this open Ling button for details of that item no.
    Thanks,

    Hi
    Please see the Purchasing A/P module in that module plz open Purchase order form.
    In Purchase order form when i give TAB on Vendor textbox open BP code and after when i select code it shows in that textbox and also shows the link button. When i click on link button opens details of related code.
    And also in that form on grid of first column 'item no' give TAB open 'item no' list after selecting item no it shos in that column and link button also. And when i click on link button open details related to item no means another form.
    I want do same thing.For that what i do.
    I used two textbox txt_cstcode and txt_cstnm. When i give TAB on txt_cstcode open customer code list and also when i select it shows in that textbox. In this i want when i select code that time i want show link button like where used in purchase order form on vendor textbox. And i also want show details on that link button.
    And i also bind grid in this i want same as what used in grid of  purchase order form.
    Thanks

  • CFL and Matrix

    Hello,Team
    I want to use CFL (object-id =171 emp details)  in matrix column.
    It is not getting copied values from CFL  into matrix cell i used to do in normal textbox(not in matrix) but i dont know how to do with matrix
    i trie like this.
    If oCFL.UniqueID = "EMP" Then
       oDH.setvalue ("U_Name", 0,oDT.GetValue("lastName", 0))
    but not working
    In normal text box this code is working.
    By
    Firos.C
    Edited by: firoz101 on Jul 31, 2009 11:28 AM
    Edited by: firoz101 on Jul 31, 2009 11:29 AM

    Firoz
    after setting the data to dbdatasource, call a SetLineData() or LoadFromDataSource() method for the matrix object.
    Anoop

  • How to resue a tab (event) in PCUI?

    Hi
    I want to add a tab (event), which is in Blueprint application A, to a tab group in Application B.
    what is the steps to realize it?
    Thanks

    To solve the problem, you have to add a new entry in the Application Set B ( in the scenario that you want to add the tab in application A to application B). The new entry should contain the model access class for the structure used by the field group of the tab. You can simply copy the entry for the structure from Application set A to Application set B if you are using the same structure.
    To recap,
    1. Find the event for the specific tab in the tab group of application A
    2. Add the event to the tab group of application B
    3. Copy the entry for the event in the application layout of application A  to application B
    4. Add the model access data for the structure in application set B
    If the tab is exactly the same, you don't need to create any Z stuff.

  • CFL in matrix + manual values adding

    Hi experts
    I've got a matrix with CFL column. I can choose items via CFL but I would also like to write an item index manually. When I do so and press TAB I cannot lost focus on particular cell in the column, beacuse the program does not recognize the index. I bind the column with DBDataSource.
    Shall I change sth in CFL creation parameters or do what?
    Thanks in advance

    Well it works with any item in the form, but when it comes to matrix it doesn't.
    I must bind column with DbDataSource and maybe that's the reason. However I cannot  bind it with userdatasource, beacuse then I cannot change once written value - the source stays with 1st version.
    So I suppose DBdatasource is necessary, though as I mentioned I cannot put values manually then.
    Am I doing something wrong or what?

  • CFL on matrix

    Hi all,
    Can someone help me?
    When  i select the row on my CFL popup i get nothing on my edit Textbox (it's a matrix column). At beginning i got the error "La référence d'objet n'est pas définie à une instance d'un objet" but now this error has desappear.
    I have used screen painter to add the CFL.
    Regards.

    Hi,
    I don't get the error message now but when i click on select button in the A/R Invoice popup i don't get something in my matrix column.
    This is my choosefromlist item event code :
                        If pVal.EventType = SAPbouiCOM.BoEventTypes.et_CHOOSE_FROM_LIST Then
                            Dim oEdit As SAPbouiCOM.EditText
                            Dim oCFLEvento As SAPbouiCOM.IChooseFromListEvent
                            oCFLEvento = pVal
                            Dim sCFL_ID As String
                            sCFL_ID = oCFLEvento.ChooseFromListUID
                            Dim oCFL As SAPbouiCOM.ChooseFromList
                            oCFL = oForm.ChooseFromLists.Item(sCFL_ID)
                            If oCFLEvento.BeforeAction = False Then
                                Dim oDataTable As SAPbouiCOM.DataTable
                                oDataTable = oCFLEvento.SelectedObjects
                                'Dim val As String
                                Try
                                    With oForm.DataSources.DBDataSources.Item("@FTACT")
                                        .SetValue("U_Fact", .Offset, oDataTable.GetValue(0, 0))
                                    End With
                                Catch ex As Exception
                                End Try
                                If (pVal.ItemUID = "mtx_13") And (pVal.ColUID = "V_2") Then
                                    Try
                                        oEdit = oForm.Items.Item("V_2").Specific
                                        oEdit.Value = oDataTable.GetValue(0, 0)
                                    Catch ex As Exception
                                    End Try
                                End If
                            End If
                        End If
    Regards.

  • Catch Ctrl+Tab event

    Hi guys,
    I have created a UDO and I would like to be able to catch an event when the user presses ctrl+Tab in one of the matrix columns. How can I do this?
    Thanks,
    Costas

    On the KEY_DOWN event you can check for modifiers - something like this:
    if (pVal.CharPressed == 9 && pVal.Modifiers == SAPbouiCOM.BoModifiersEnum.mt_CTRL)
    Obviously you need to add conditions to check the event is happening on the matrix, and on the column you want.

  • "Leave tab" event for tabs in TabStrip UI

    Hi
    I want to check that some input fields are valid and force users do not change Tab in TabStrip (until enter valid values for required fields) but I do not know is it possible this in Webdynpro? Does anybody know which is this event and may I use it in my WD Application?
    In TabStrip there is action for OnSelect event but this is event when user enters in Tab. I need event when user exits the tab.

    In BSP the tabStrip has a value "selection" which if you read the tabStrip to see the tab they selected you can store that value.
    Then check if the fields are filled in if so then pass the stored value back to the "selection" parameter and if not give the name of the tab they were currently on back to the "selection" parameter.

  • Copied down row entries by CFL in Matrix

    hello expert
    i created one form which have one matrix and one add row button.matrix have three colum like name,lname and age.name colum have CFL.when i added one then one more row and selected contend of cfl in it work fine but after adding two row when i go to change the content of first row by cfl . its copied the entries of down row not select the coosing entries .pls help me sir
                                                                       thanx a lot

    Hello expert
       for CFL i used this coading
                            If oCFL.UniqueID = "CFL_17" Then
                                Dim i As Integer
                                Dim j As Integer
                                Dim val1 As String
                                Dim val2 As String
                                Dim val3, val4 As String
                                Dim val5 As Integer
                                Dim oRecordSet As SAPbobsCOM.Recordset = objMain.objCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
                                oMatrix = oForm.Items.Item("orad1").Specific
                                val1 = oDataTable.GetValue("Code", 0)
                                val2 = oDataTable.GetValue("U_TName", 0)
                                val3 = oDataTable.GetValue("U_TName", 0)
                                val4 = oDataTable.GetValue("U_TType", 0)
                                val5 = 1
                                For i = 0 To oDataTable.Rows.Count - 1
                                    oMatrix.FlushToDataSource()
                                    oForm.DataSources.DBDataSources.Add("@PACK8")
                                    oForm.DataSources.DBDataSources.Item("@PACK8").SetValue("U_IRid", pVal.Row - 1, val1)
                                    oForm.DataSources.DBDataSources.Item("@PACK8").SetValue("U_IRName", pVal.Row - 1, val2.ToString.Trim())
                                    oForm.DataSources.DBDataSources.Item("@PACK8").SetValue("U_IRDesc", pVal.Row - 1, val3.ToString.Trim())
                                    oForm.DataSources.DBDataSources.Item("@PACK8").SetValue("U_IRType", pVal.Row - 1, val4.ToString.Trim())
                                    oForm.DataSources.DBDataSources.Item("@PACK8").SetValue("U_Qty", pVal.Row - 1, val5)
                                    Dim RS As SAPbobsCOM.Recordset
                                    RS = objMain.objCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
                                    RS.DoQuery("Select T2.ListName,T0.PriceList,T0.Price from ITM1 T0,OITM T1,OPLN T2 where T0.ItemCode = T1.ItemCode and T2.BASE_NUM=T0.PriceList and T1.ItemName='" & val4 & "' ")
                                    RS.MoveFirst()
                                    If (colItemRPriceList.ValidValues.Count <= 0) Then
                                        While RS.EoF = False
                                            Dim a, b As String
                                            a = RS.Fields.Item("PriceList").Value
                                            b = RS.Fields.Item("Price").Value
                                            colItemRPriceList.ValidValues.Add(RS.Fields.Item("ListName").Value, RS.Fields.Item("Price").Value)
                                            'colItemPriceList.Columns.Item("V_7").Cells.Item(pVal.Row).Specific.ValidValues.Add(RS.Fields.Item("PriceList").Value, RS.Fields.Item("Price").Value)
                                            RS.MoveNext()
                                        End While
                                    End If
                                    oMatrix.LoadFromDataSource()
                                    oMatrix.SetLineData(pVal.Row)
                                    If Not i = oDataTable.Rows.Count - 1 Then
                                        oMatrix.AddRow()
                                    End If
                                Next
                            End If

  • Cfl for matrix

    hi friends
    i had created a form with a matrix and an editbox. i can apply the cfl for the editbox but i cant use the same for the first column of the  matrix...can anyone provide any sample coding for this process
    thanks and regards
    manoj nagaraj

    Hi
    Look this. I think this code is complete.
    Best regards
    Sierdna S.
    Public Sub SBO_CreateForm(...)
    '... add controls to form, matrix, matrix columns,...
      Call AddChooseFromList(oForm)
      oForm.Visible = True
    End Sub
    Private Sub AddChooseFromList(ByRef oForm As SAPbouiCOM.Form)
      Try
        Dim oCFLs As SAPbouiCOM.ChooseFromListCollection
        Dim oCons As SAPbouiCOM.Conditions
        Dim oCon As SAPbouiCOM.Condition
        oCFLs = oForm.ChooseFromLists
        Dim oCFL As SAPbouiCOM.ChooseFromList
        Dim oCFLCreationParams As SAPbouiCOM.ChooseFromListCreationParams
        oCFLCreationParams = SBO_Application.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_ChooseFromListCreationParams)
        ' CFL for Items ------------------------------
        oCFLCreationParams.MultiSelection = False
        oCFLCreationParams.ObjectType = 4
        ' Item Code
        oCFLCreationParams.UniqueID = "cflIC"
        oCFL = oCFLs.Add(oCFLCreationParams)
        oCons = oCFL.GetConditions()
        oCon = oCons.Add()
        ' Item Name
        oCFLCreationParams.UniqueID = "cflIN"
        oCFL = oCFLs.Add(oCFLCreationParams)
        oCons = oCFL.GetConditions()
        oCon = oCons.Add()
        ' CFL button
        oCFLCreationParams.UniqueID = "cflIB"
        oCFL = oCFLs.Add(oCFLCreationParams)
        oCons = oCFL.GetConditions()
        oCon = oCons.Add()
        Catch ex As Exception
          ' log exception
        Finally
          System.GC.Collect() 'Release the handle to the table
        End Try
    End Function
    Public Sub ManageItemEvent(ByVal FormUID As String, ByRef pVal As SAPbouiCOM.ItemEvent, ByRef BubbleEvent As Boolean)
      Dim oForm As SAPbouiCOM.Form
      oForm = SBO_Application.Forms.Item(FormUID)
      Select Case pVal.EventType
        Case BoEventTypes.et_CHOOSE_FROM_LIST
          If Not pVal.BeforeAction Then
         Dim oCFLEvento As SAPbouiCOM.IChooseFromListEvent
         oCFLEvento = pVal
         Dim sCFL_ID As String
         sCFL_ID = oCFLEvento.ChooseFromListUID
         Dim oCFL As SAPbouiCOM.ChooseFromList
         oCFL = oForm.ChooseFromLists.Item(sCFL_ID)
         Dim oDataTable As SAPbouiCOM.DataTable
         oDataTable = oCFLEvento.SelectedObjects
         Dim sCode As String = ""
         Dim sName As String = ""
         Try
           sCode = oDataTable.GetValue(0, 0) ' Code
           sName = oDataTable.GetValue(1, 0) ' Name
         Catch ex As Exception
           sCode = ""
           sName = ""
           ' log exception
         End Try
         ' Rows
         If (pVal.ColUID = "colICode") Or (pVal.ColUID = "colIName") Then
           oForm.DataSources.DBDataSources.Item("@USER_TABLE").SetValue("U_ItemCode", pVal.Row, sCode)
           oForm.DataSources.DBDataSources.Item("@USER_TABLE").SetValue("U_ItemName", pVal.Row, sName)
           Call UpdateCells(oForm, pVal.Row, sCode, sName)
         End If
          End If
      End Select
      oForm = Nothing
    End Sub
    Private Function UpdateCells(ByRef oForm As SAPbouiCOM.Form, ByVal iRow As Integer, _
                        ByVal sCode As String, ByVal sName As String) As Boolean
      Dim b As Boolean = True
      Try
        Dim oMatrix As SAPbouiCOM.Matrix
        Dim oColumn As SAPbouiCOM.Column
        Dim oCell As SAPbouiCOM.Cell
        Dim oEdit As SAPbouiCOM.EditText
        ' MatrixID
        oMatrix = oForm.Items.Item(MatrixID).Specific
        oColumn = oMatrix.Columns.Item("colICode")
        oCell = oColumn.Cells.Item(iRow)
        oEdit = oCell.Specific
        oEdit.String = sCode
        oColumn = Nothing
        oCell = Nothing
        oEdit = Nothing
        oColumn = oMatrix.Columns.Item("colIName")
        oCell = oColumn.Cells.Item(iRow)
        oEdit = oCell.Specific
        oEdit.String = sName
        oColumn = Nothing
        oCell = Nothing
        oEdit = Nothing
        oMatrix = Nothing
      Catch ex As Exception
        b = False
        ' log exception
      Finally
        System.GC.Collect() 'Release the handle to the table  
      End Try
      Return b
    End Function

  • JTabbedPane detect close tab event.

    How can I get a title of tab which user just close (in JTabbedPane)?? I tried ContainerListener and componentRemoved method, but I can't get appropriate String with title.
    Any ideas?

    One way is to use a change listener:
    import java.awt.Dimension;
    import javax.swing.JFrame;
    import javax.swing.JPanel;
    import javax.swing.JTabbedPane;
    import javax.swing.event.ChangeEvent;
    import javax.swing.event.ChangeListener;
    public class GetDeletedTab
      private static JTabbedPane tabbedPane = new JTabbedPane();
      private static String[] workDays =
        "Monday", "Tuesday", "Wednesday", "Thursday", "Friday"
      private static int currentIndex = -1;
      private static int previousIndex = -1;
      private static void createAndShowUI()
        for (String day : workDays)
          tabbedPane.addTab(day, new JPanel());
        currentIndex = tabbedPane.getSelectedIndex();
        tabbedPane.addChangeListener(new ChangeListener()
          public void stateChanged(ChangeEvent e)
            int index = tabbedPane.getSelectedIndex();
            if (index != currentIndex)
              previousIndex = currentIndex;
              currentIndex = index;
              if (previousIndex != -1)
                String currTabTitle = tabbedPane.getTitleAt(currentIndex);
                String prevTabTitle = tabbedPane.getTitleAt(previousIndex);
                System.out.println("Previous Tab Title was: " + prevTabTitle );
                System.out.println("Current Tab Title is: " + currTabTitle);
                System.out.println();
        JFrame frame = new JFrame("GetDeletedTab");
        JPanel cPane = (JPanel)frame.getContentPane();
        cPane.setPreferredSize(new Dimension(600, 400));
        cPane.add(tabbedPane);
        frame.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
        frame.pack();
        frame.setLocationRelativeTo(null);
        frame.setVisible(true);
      public static void main(String[] args)
        java.awt.EventQueue.invokeLater(new Runnable()
          public void run()
            createAndShowUI();
    }

  • Override TAB event on components

    I need to override the tab functionality on the last component on a panel. Below is the code, but it dosent work. Is there a problem with the approach ? Any help is appreciated.
         component.getInputMap()
                   .put(KeyStroke.getKeyStroke(KeyEvent.VK_TAB, 0),
                        "LastComponentTabAction");
         Action lastComponentAction = new AbstractAction("LastComponentTabAction"){
              public void actionPerformed(ActionEvent e) {
              log.error("e.getActionCommand1()" + e.getActionCommand());
         component.getActionMap().put("LastComponentTabAction",lastComponentAction);
    I dont see the log message.
    Ravi

    Ravi,
    The following code should work for you. It's generally not a good idea to override KeyboardFocusManager. If you are trying to log all user input, perhaps you should consider writing your own EventQueue. Also, please not that the code provide is just skeleton, to give an example. If you are to use this method I would further modify LogTabKeyboardFocusManager.
    -Muel
    import java.awt.Component;
    import java.awt.Container;
    import java.awt.DefaultKeyboardFocusManager;
    import java.awt.KeyboardFocusManager;
    import java.awt.event.ActionEvent;
    import java.awt.event.InputEvent;
    import java.awt.event.KeyEvent;
    import javax.swing.AbstractAction;
    import javax.swing.Action;
    import javax.swing.BoxLayout;
    import javax.swing.InputMap;
    import javax.swing.JComponent;
    import javax.swing.JFrame;
    import javax.swing.JTextField;
    import javax.swing.KeyStroke;
    public class TabTest extends JFrame {
         public TabTest() {
              super("Tab test");
              setDefaultCloseOperation(EXIT_ON_CLOSE);
              Container cont = getContentPane();
              BoxLayout layout = new BoxLayout(cont, BoxLayout.Y_AXIS);
              cont.setLayout(layout);
              JComponent last = null;
              for (int i=0; i<5; i++) {
                   JTextField field = new JTextField();
                   if (i == 4) last = field;
                   cont.add(field);
              String action = "LastComponentTabAction";
              InputMap map = last.getInputMap(JComponent.WHEN_FOCUSED);
              map.put(KeyStroke.getKeyStroke(KeyEvent.VK_TAB, 0), action);
              map.put(KeyStroke.getKeyStroke(KeyEvent.VK_TAB, InputEvent.SHIFT_MASK), action);
              Action lastComponentAction = new AbstractAction(action) {
                   public void actionPerformed(ActionEvent e) {
                        System.out.println("e.getActionCommand1()" + e.getActionCommand());
              last.getActionMap().put(action,lastComponentAction);
              KeyboardFocusManager.setCurrentKeyboardFocusManager(new LogTabKeyboardFocusManager(last));
              last.getActionMap().put(action,lastComponentAction);
              pack();
              setSize(200, getHeight());
              setLocationRelativeTo(null);
              setVisible(true);
         public static void main(String[] args) {
              new TabTest();
         protected static class LogTabKeyboardFocusManager extends DefaultKeyboardFocusManager {
              private JComponent comp;
              public LogTabKeyboardFocusManager(JComponent comp) {
                   this.comp = comp;
              public void processKeyEvent(Component focusedComponent, KeyEvent e) {
                   if (focusedComponent != comp) {
                        super.processKeyEvent(focusedComponent, e);
                   else {
                        if (e.getKeyCode() == KeyEvent.VK_TAB && e.getID() == KeyEvent.KEY_PRESSED) {
                             if (e.isShiftDown()) {
                                  focusPreviousComponent(comp);
                             else {
                                  focusNextComponent(comp);
    }

Maybe you are looking for

  • Junk mail filter and feedback email address

    What's the feedback email address because I want to suggest Apple adds a spam filter to the phone already. Can you believe they don't have one.

  • How to create a table dynamically

    Hello All, I want to create a table dynamically in DDIC. I know that there is function module exist DB_CREATE_TABLE but i am getting some errors while using it. Could any please post some code for it. Regards, Lisa

  • Clients not receiving DHCP on layer 2 Vlan

    I have flexconnect WAPs with local switching and local dhcp server on the switch. I have one SSID assigned to a layer 2 vlan.  The wireless clients are unable to receive an ip address on this vlan.  The wired clients are able to receive an ip address

  • Editing Profile name and other information

     I read somewhere that you can edit you profile or account name so will not show as it really is. What I an saying is other people online will not see your real account name. Now I am reading Skype does not allow this. So if you edit your name so it

  • Setting Sql Prompt to that of the connected Host

    Hi all, I work in a multiple Database environment. At times I've various sessions open in SqlPlus. My problem is its really tedious to keep track of which host my active window is connected to. All I want to do is set my sql prompt to that of the Dat