Es una pregunta de principiante pero es que ha estado haciendo pruebas toda la tarde y ya me da vueltas la cabeza. Se trata de:
Quisiera crear una clase que se comporte como un diálogo con algún control -por ejemplo, un folder- dentro.
La invocaré asÃ: oDlg := MiDialogo():New(oParent)
y pretendo -por eemplo- poder saber la altura del folder asÃ:
La pregunta es cómo he de definir MiDialogo:
AsÃ?:
o bien
o he de definirlo asÃ:
Supongo que esto de la herencia es un tema que tengo muy confuso. Por favor: Alguien podrÃa ponerme un ejemplo de seis lÃneas que mostrase la forma correcta de hacerlo?
Gracias
Rafael
Quisiera crear una clase que se comporte como un diálogo con algún control -por ejemplo, un folder- dentro.
La invocaré asÃ: oDlg := MiDialogo():New(oParent)
y pretendo -por eemplo- poder saber la altura del folder asÃ:
? oDlg:oFldr:nHeightLa pregunta es cómo he de definir MiDialogo:
AsÃ?:
CLASS MiDialogo From TDialog
....
ENDCLASS
METHOD New(oParent) CLASS MiDialogo
Local oDlg
DEFINE DIALOGO oDlg RESOURCE "MI_RECURSO_DLG" Of oParent
REDEFINE FOLDER oFldr ID 1000 OF oDlg
RETURN Selfo bien
RETURN oDlgo he de definirlo asÃ:
oDlg := Super():New(...,oParent,..)
o bien asÃ: oDlg := TDialog():New(..., oParent,...)
o simplemente: Super():New(..., oParent,...)
...
Return oDlg ¿O es RETURN Self?Supongo que esto de la herencia es un tema que tengo muy confuso. Por favor: Alguien podrÃa ponerme un ejemplo de seis lÃneas que mostrase la forma correcta de hacerlo?
Gracias
Rafael
