Página 1 de 1

Criando browse dinamicamente

Publicado: Jue Mar 28, 2013 8:01 pm
por wmsei
Srs. boa tarde,
Criamos um browse como segue, no browse colocamos a opção de Duplo Click do mouse para chamar a janela um novo formulário, mas quando executamos o browse entra direto no formulário que deveria ser executado somente quando o usuário desse um duplo click e quando fecho o formuláario aberto não volta para o browse.
Segue abaixo exemplo:
if ValType(::brwBrowser) == "U" .or. ::brwBrowser == Nil
//Cria o Browser
WITH OBJECT ::brwBrowser := TDBBrowse():New(Self)
:SetBounds(0, ::oReBar1:nHeight, ::oReBar1:nWidth, 100)
:nAlign := alCLIENT
TBrwRecSel():Create(::brwBrowser)
:lRecordSelector := .f.
:oDataSet := ::aDbfConsulta[1]
:lHScroll := bsYes
:nClrAltPane := cl3DLight
:nColDividerStyle := blRAISED
:nFreeze := 1
:Create()
:aCols := {}
:OnDblClick := ::brwBrowserDblClick
END
endif
METHOD brwBrowserDblClick( oSender, nKeys, nCol, nRow ) CLASS FormPadraoBrowser
::tbtEditarClick( oSender, Self )
RETURN Nil

Tem alguma maneira de fazer dessa forma sem que o duplo click fosse executado dessa forma.
Grato pelo retorno e atenção
Wagner.