![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
![]() |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
|
|
#1
|
||||
|
||||
|
¿Podrías explicarte mejor? ¿Qué significa que un form llame a una unit y qué significa que la unit use varios forms? En fin, detalla más lo que quieres saber.
// Saludos |
|
#2
|
|||
|
|||
|
Veamos esa unit es usada desde distintos programas. Y ademas en varias forms de los programas con lo cual me enteresaria saber quien la llamo. Para saber el ejecutable utilizo ExtractFileName(ParamStr(0)) y ahora lo que me interesa saber si se puede el NAME de la form del programa. Esto seria para almacenar en que momento fue llamada y la form de que programa.
|
|
#3
|
|||
|
|||
|
Seguro que los gurús de Delphi que tenemos en estos foros te pueden dar alguna forma de obtener esos datos, por lo menos el programa que llama la unidad, aunque el nombre del formulario lo veo más difícil.
Yo te doy una idea más primitiva, que sólo puedes poner en práctica si la unidad y todos los programas que la llaman son tuyos: * Antes de llamarla pon en una variable los datos que necesitas. Código:
Ficha:=TFCallejero.Create(Self); Ficha.VengoDe.Caption:='Menú Principal'; Ficha.ShowModal; Código:
if VengoDe.Caption='Menú Principal' then // en lugar de un label puedes utilizar una variable global
begin
...
end
else
if VengoDe.Caption='Resumen Anual' then
begin
...
end;
__________________
Rafita. |
![]() |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
Temas Similares
|
||||
| Tema | Autor | Foro | Respuestas | Último mensaje |
| Nueva duda... abrir otro Form... x_x | Ascii1457 | Varios | 12 | 16-10-2006 11:58:14 |
| llamar a una clase desde otra unit | Makiley | Varios | 2 | 02-02-2006 17:55:12 |
| ¿Como saber el nombre de la variable de un form? | fjavier64 | OOP | 1 | 04-03-2005 17:29:35 |
| ¿Como puedo llamar un Procedure desde otra unit? | athal | Lazarus, FreePascal, Kylix, etc. | 11 | 17-05-2004 01:05:20 |
|