|
Inicio → WINDEV 25 → WX - Como capturar click no titulo de uma Tablelist Listbox e dar outro evento necessário para a sua aplicação? |
WX - Como capturar click no titulo de uma Tablelist Listbox e dar outro evento necessário para a sua aplicação? |
Iniciado por BOLLER ADRIANO, ago., 04 2016 9:09 AM - 2 respostas |
| |
| | | |
|
| |
Membro registado 3.651 mensagems Popularité : +175 (223 votes) |
|
Publicado em agosto, 04 2016 - 9:09 AM |
Prezados,
Para capturar click no titulo de uma Tablelist Listbox e dar outro evento necessário para a sua aplicação, segue abaixo exemplo:
Em uma tabela com colunas: Número, Nome e Apelido, você gostaria de reorganizar a coluna.
---------------------------------- Número | Nome | Apelido (s) ---------------------------------- 0000001 | Marc | Marc 0000002 | Adriano | Boller 0000003 | Emmanuel | Emmanuel 0000004 | Lorelei | Lore ----------------------------------
Digamos que você queira autorizar o filtro das outras colunas, mas manter a numeração das linhas diferentes?
É algo anormal, mas você precisa, então "No init da tabela", você vai por esse código:
Evénement(NovoEventoClickTableList, "TABLEH_LesRevuesCommerciales", 1529)
Crie uma nova procedure local ou global em seu projeto com o mesmo nome usado na linha de código acima:
Procedure NovoEventoClickTableList() sSens est une chaîne = "" SI _EVE.wParam <> 0 ALORS
_EVE.Retour = 0
SI PAS _EVE.lParam ALORS sSens = "-"
TableTrie(TABLEH_LesRevuesCommerciales, sSens + TableEnumèreColonne(TABLEH_LesRevuesCommerciales, _EVE.wParam), sSens + "COL_Periode")
FIN
Faça o teste e veja como vai ficar, se tiver um tempo traduza do francês para o inglês esse exemplo, desde já agradeço
Forte abraço
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 9949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/Mensagem modificada, agosto, 04 2016 - 9:11 AM |
| |
| |
| | | |
|
| | |
| |
Membro registado 3.651 mensagems Popularité : +175 (223 votes) |
|
Publicado em julho, 27 2017 - 6:06 PM |
nRowNum is int=LooperInfoXY(LOOP_t001_clientes,tiLineNumber,MouseXPos(),MouseYPos())
IF nRowNum>0 _AND_ nRowNum<=LOOP_t001_clientes..Occurrence THEN gsAcao = "Alterar" gsID = LOOP_t001_clientes[nRowNum].ATT_AttStatic OpenMobileWindow(WIN_update_clientes,gsID,gsAcao) ELSE gsAcao = "Incluir" gsID = 0 OpenMobileWindow(WIN_update_clientes,gsID,gsAcao) END
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/ |
| |
| |
| | | |
|
| | |
| |
Membro registado 3.651 mensagems Popularité : +175 (223 votes) |
|
Publicado em fevereiro, 04 2023 - 2:54 PM |
CAPTURAR CLICK NO HEADER DA TABLEGRID, CLICK NO TITULO DA COLUNA, CLICK NA COLUNA E CAPTURA O NOME DA COLUNA
NomeTableGrid is string = TABLEGRID_RADFichierA..Name
Event(Evento_ClickHeaderTable, NomeTableGrid, 1529)
Procedure Evento_ClickHeaderTable()
IF _EVE.wParam <> 0 AND NomeColuna <> "" _EVE.Return = 0 Indirection is string = "TABLEGRID_RADFichierA."+NomeColuna EDT_JANUSGRID.AddToken({Indirection}..Caption) END
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/ |
| |
| |
| | | |
|
| | | | |
| | |
|