![]() |
| |||||||
| Registrarse | Preguntas Frecuentes | Lista de Foreros | Calendario | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
![]() |
| | LinkBack | Herramientas | Desplegado |
| |||
| Hola a todos, lo que boy a preguntar es algo muy básico, pero nada no hay forma de conseguirlo. Tabien quiero mencionar que antes de preguntar nada he mirado en los grupos de google para buscar mensajes anteriores y en un libro q tengo, pero no he encontrado la solución. Mi primer gran problema es que estoy haciendo un programa con una ventana madre y varias hijas, en el form4 que es un memo he insertado un procedure para guaradar el texto que se escribe en el desde la ventana madre pero no lo consigo ejecutar desde la madre. El código es el siguiente: procedure guardartexto; begin form4.texto.Setfocus; try form4.texto.Lines.SavetoFile('g:\textoaguardar.txt '); Except On Exception Do Showmessage('No se puede grabar archivo'); End; form4.texto.Setfocus; end; Luego otra duda, que tan bien esta relacionada con la anterior, no se como llamar a una función o a un procedimiento desde otro form diferente, ya que a mí me gustaría cerrar desde la ventana madre el from4 una ved terminado y no hay manera. Para cerrar manualmente utilizo esto: procedure TForm4.cerrar(Sender: TObject; var Action: TCloseAction); begin Action := caFree; end; Respecto a la primera pregunta si hago lo de abrir y cerrar ficheros desde un proyecto nuevo con un solo form si consigo abrir y cerrar ficheros de texto. Bueno, gracias por vuestra atención. |
| | ||||
| ||||
| |
![]() |
| Herramientas | |
| Desplegado | |
| |