Método Inicia uma nova instância da classe TMenuItem.
TMenuItem():New( < oParent >, [ cTitle ], [ cParam3 ], [ lParam4 ], [ lActive ], [ bAction ], [ cParam7 ], [ cResName ], [ nParam9 ], [ cParam10 ], [ lParam11 ], [ nParam12 ], [ bParam13 ], [ lParam14 ], [ lPopup ] )
Nome | Tipo | Descrição | Obrigatório | Referência |
|---|---|---|---|---|
oParent | objeto | Indica o controle visual onde o objeto será criado. | X |
|
cTitle | caractere | Indica o texto do item. |
|
|
cParam3 | caractere | Compatibilidade. |
|
|
lParam4 | lógico | Compatibilidade. |
|
|
lActive | lógico | Indica se, verdadeiro (.T.), o item está ativo; caso contrário, falso (.F.). |
|
|
bAction | bloco de código | Indica o bloco de código que será executado quando clicar, com o botão esquerdo do mouse, sobre o objeto. |
|
|
cParam7 | caractere | Compatibilidade. |
|
|
cResName | caractere | Indica a imagem, do repositório, que será apresentada quando o ponteiro do mouse não estiver posicionado sobre o item. |
|
|
nParam9 | numérico | Compatibilidade. |
|
|
cParam10 | caractere | Compatibilidade. |
|
|
lParam11 | lógico | Compatibilidade. |
|
|
nParam12 | numérico | Compatibilidade. |
|
|
bParam13 | bloco de código | Compatibilidade. |
|
|
lParam14 | lógico | Compatibilidade. |
|
|
lPopup | lógico | Indica se, verdadeiro (.T.), o item faz parte de um popup; caso contrário, falso (.F.). |
|
|
Nome | Tipo | Descrição |
|---|---|---|
oObj | objeto | Nova instância da classe TMenuItem |
// cria os submenus
oMenu01 := tMenu():new(0, 0, 0, 0, .T., , oMenu)
// cria os itens dos submenus
oMenu0101 := tMenuItem():new(oMenu01, "Menu 01, item 01", , , , {|| }, , , , , , , , , .T.)