![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
#1
|
|||
|
|||
![]() Estoy intentando mediante el uso de application.mainform, en la creacion de un componente, y cuando este en ejecucion, que no en diseño, almacenar, caso que este definido en el form, un evento, para poder ejecutarlo despues del que se debe ejecutar.
Por ejemplo,
Pero, cuando ejecuto, antes de hacer nada, me salta un error del tipo: Project programa1.exe raised exception class EAccesViolation with message 'Acces violation at adrress..... y en el IDE se queda en; if assigned(tform(application.MainForm).OncanResize) then Por favor, ¿alguien me puede ayudar con este tema? Gracias. Nove ![]() |
#2
|
||||
|
||||
Pon el código que usas en tu mainForm
Edito: Vaya, ya veo el problema. No deberías sustituir los eventos del form Padre. Creo lo estás haciendo al revés, es decir, sería el Form donde sitúas ese panel, el encargado de centrar dicho panel. ¿Qué pasa si pones ese panel en un TFrame, PageControl, dentro de otro panel, etc? Pues obvio, access violation al canto por ese moldeo de tipos que usas. Quizás tu problema lo puedas solventar sin programar nada usando la propiedad Anchor del Form (si tu delphi lo soporta) Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. Última edición por Lepe fecha: 23-03-2009 a las 20:15:01. |
#3
|
|||
|
|||
![]() El que intente interceptar el onresize del form, es porque es un mensaje seguro si se redimensiona la aplicacion.
Lo que quiero es que mi panel se centre, y luego, el usuario ha podido definir sus acciones en el form.. De hecho, lo que yo hago al centra es usar: Centrar(self,self.parent); vamos la tipica de self.top:=(self.parent.clientheight-self.height) div 2; self.left:= (self.parente...... Por eso, no debe dar problemas de uso al ser en aplicaciones. Saludos. Gracias por tu propuesta, mirare lo de Anchor, pero creo que seria mejor trabajar con el metodo que pretendo, ya que permitiria que el usuario haga lo que quiera, pero respetando siempre lo que el crador del componente ha pensado que era necesario para su correcto funcionamiento. Nove |
#4
|
||||
|
||||
Vale, te doy otra razón para no usar ese método:
if assigned(tform(application.MainForm).OncanResize) then eso se cumple si el programador final, en el form principal de la aplicación, ha escrito algo de código en el evento OncanResize. Por tanto no es seguro que se cumpla esa condición. Se supone que haciendo doble clic en inspector de objetos, en el evento Oncanresize , ya cumpliría la condición, pero como sabes delphi elimina los eventos vacíos. En el caso de que añadas un comentario a ese evento, quizás el optimizador de código de delphi quite el evento porque vea que tiene un contenido supérfluo, no sé, no estoy seguro al 100 % Otro detalle: ¿por qué usas application.MainForm? ¿el usuario de tu componente no puede ponerlo en un Form secundario? Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
#5
|
|||
|
|||
Gracias a todos.
Realmente estaba empeñado, en que el ordn de construccion era distinto, pero.
Realmente solo pense en el formulario inicial, y no en otros secundarios, pero Creo que esto funciona en todos los casos, por lo menos en los que he probado.
perdon por no tenerlo puesto en una undiad independiente, es que hay otros compos. Saludos. Nove ![]() ![]() ![]() ![]() ![]() |
#6
|
||||
|
||||
Mejor
![]() Como crítica constructiva, podrías añadir una propiedad AutoCenter:Boolean que fuese True por defecto ¿para qué? para que tu usuario se olvide de los TPanel y pueda usar el tuyo aun cuando no requiera la capacidad de autocentrarse. Cuando estás creando una interfaz, es muy normal andar probando distintas alternativas y si tiene que cambiar el Tpanel por un TPanelcentrado es engorroso, si ya usa un TPanelcentrado, sólo tiene que poner AutoCenter a True o false para ver cómo queda la nueva interfaz ![]() El cambio es simple:
Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. Última edición por Lepe fecha: 25-03-2009 a las 17:30:06. |
![]() |
|
|
![]() |
||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Eventos en DLL | ziqabo | API de Windows | 1 | 11-06-2007 20:04:21 |
Eventos | Walcasar | OOP | 2 | 26-10-2006 15:42:40 |
Eventos | xerkan | Firebird e Interbase | 5 | 13-10-2003 17:21:18 |
Eventos de un componente... | craven | OOP | 3 | 08-05-2003 16:17:51 |
![]() |
|