Ver Mensaje Individual
  #3  
Antiguo 02-09-2019
Avatar de movorack
[movorack] movorack is offline
Miguel A. Valero
 
Registrado: feb 2007
Ubicación: Bogotá - Colombia
Posts: 1.346
Reputación: 20
movorack Va camino a la famamovorack Va camino a la fama
Hola, YosvanyRL.

Recuerda que los forms y mucho lo que ves en el código de tu programa son objetos. ¿Que tiene que ver? Que puedes hacer uso de los procedimientos, funciones y propiedades desde cualquier otra parte del código mientras sean visibles.

Para lo que dices entre tantas formas de hacerlo. Puedes crear una rutina que sea invocada desde los diferentes lugares donde lo requieras.

Código Delphi [-]
..
  
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    procedure Saludar;
    { Public declarations }
  end;

..

procedure TForm1.Button1Click(Sender: TObject);
begin
  Saludar;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Saludar;
end;

procedure TForm1.Saludar;
begin
  ShowMessage('¡Hola, mundo!');
end;

..

Te recomiendo que investigues un poco sobre los TActionList. Te pueden ser bastante útiles.
__________________
Buena caza y buen remar... http://mivaler.blogspot.com
Responder Con Cita