llamar a procedure desde otra procedure

[anubis]

Yo sigo preguntando . Estoy aprendiendo muchisimo con vosotros.

Me he encontrado que, haciendo un evento onkeypress, por ejemplo, necesito llamar desde ahi a otro procedimiento, pero no se ocmo se puede hacer, quiza me estoy saltando las leyes de la programacion?.

[[Delphius]]

¿Y cual es tu problema?
¿No sabes como invocarlo? ¿O es que te falla?

Es sencillo.. como en cualquier lenguaje....

Código Delphi [-]
procedure TForm1.Button1KeyPress(Sender: TObject; var Key: Char);
begin
  Procedimiento_Hacer_Algo(Algun_parametro_si_se_necesita);
end;

Creo que a lo mejor no pasa por esto la pregunta... lo veo muy simple...
Ya dirás si es esto...

Espero ser de ayuda.
Saludos

[[Caral]]

Hola
Por ejemplo si haces un procedimiento:

Código Delphi [-]
procedure TFMainForm.Construyemensaje;
begin
MessageDlg('Este es un emnsaje.',[mbOK],0);
end;

Para llamar a ese procedimiento solo tienes que poner el nombre:

Código Delphi [-]
procedure TFMainForm.FormCreate(Sender: TObject);
begin
Construyemensaje;
End;

Saludos

[Kenobi]

hace un tiempo me preguntaba lo mismo y cuando veo un lenguaje desconocido me lo pregunto, como dice el amigo anterior asi se llama un procedure y añado una funcion se llama asi ....

Variable:=Funcion_Predefinida(Parametro);

con la salvedad que como ya sabras esta "variable" local o global debe ser del mismo tipo que el devuelto por la funcion....

ahora otra cosa que si que no la veia en otros lenguajes en tiempo de diseño puedes llamar a el procedure de un objeto por medio del Inspector de objetos en la paletra Events como ves te sale un combo y desplegandolo asignas el procedure definido para otro objeto .....

aplicacion de esto...? por ejemplo si quieres que varios botones llamen a la misma rutina .....


Espero haber ayudado .....

[anubis]

gracias, he tenido que crear un procedure nuevo, proque si hago llamada a un onkeypress me pide datos(sender:tobject).

gracias de nuevo.

[[Caral]]

Hola
Que?
Lo conseguistes hacer.
Me quede con la duda, se nota.
Saludos

[Kenobi]

para llamar este procedure que tiene dos parametros yo uso el siguiente codigo

Código Delphi [-]
var
tecla:char;
begin
tecla:=#13;
edit1keypress(nil,tecla);

end;

a mi me funciona si es una barbaridad hacerlo asi no se ustedes digan.....
que opinas Caral pruebalo....

[roman]

Empezado por Kenobi

si es una barbaridad hacerlo asi no se ustedes digan....

Pues yo lo digo, es una barbaridad, pero conste que tú diste permiso para hacerlo.

Vamos, no es que esté mal, pero no son maneras de hacer las cosas. Los eventos en delphi (y en cualquier lenguaje) no están para que uno los llame, sino para que el entorno los llame. Nosotros ponemos ahí, el código que queremos se ejecuta cuando tal o cual evento suceda, pero nosotros no sabemos cuando tal evento sucederá y por ello lo dejamos en manos del entorno avisarnos de cuando eso sucede.

Lo que pasa es que muchas veces confundimos el evento en sí con la acción a realizar. Vamos a suponer que tenemos un botón [Guardar] en nuestro formulario, que tiene por objeto guardar el archivo que tengamos abierto. Por un lado está el evento (clic en el botón) y por otro la acción (guardar el archivo).

La acción es un método independiente del botón o de cualquier otro elemento visual; un día podemos decidir usar otro tipo de botón o un menú para lanzar la acción, pero el método para guardar no cambiará.

Podemos colocar el código de guardado dentro el evento:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  { código para guardar el archivo }
end;

pero con esto estaremos atando la lógica de la aplicación (la parte medular) a la interfaz de usuario, siendo que debería ser independiente.

Lo más adecuado sería aislar el código de la acción en un método aparte:

Código Delphi [-]
procedure TForm1.Guardar;
begin
  { código para guardar el archivo }
end;

e invocarlo en el evento:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Guardar;
end;

De esta manera, podemos reusar el método Guardar desde donde queramos, sin tener que recurrir a llamar explícitamente al "evento"

Código Delphi [-]
Button1Click(nil);

Si hacemos esto último, y luego decidimos que ya no queremos usar un botón, sino un menú o algún otro elemento visual, tendremos que cambiar el código en todas las partes donde hallamos llamado a Button1Click(). De la forma que comento, un cambio como el que menciono, sólo requerirá poner la llamada a Guardar en el evento de ese otro elemento visual.

Así pues, cuando se pregunta uno, como llamar a OnKeyPress, la respuesta sería, no lo hagas, en su lugar, llama al método (acción) a la que dicho evento invoque.

// Saludos