Ayuda con Boton

[[egostar]]

Y si pruebas en el evento Onshow.....

Código Delphi [-]
procedure TForm1.FormShow(Sender: TObject);
var
  C4_server1_nombre :string, 
begin
  //Chequeamos y activamos los botones segun INI
  C4_server1_nombre:= retINI( 'C4', 'SERVER1_Nombre');
  if Length(Trim(C4_server1_nombre)) > 0 then begin
    Button1.Caption := C4_server1_nombre;
    Button1.Visible := true;
    Button1.onClick  := Ejecutor(var1, var2 );
  end;
end;

Salud OS

[adonias]

sigue danto el mismo error... sin apretar nada muestra el mensaje aun con el show.

y en Call stk dice the procces is not access...

Una duda...

el OnClick puede llamar una function o obligatoriamente tiene que llamar un Produce (por el TNotifyEvent)?

[[egostar]]

Empezado por adonias

sigue danto el mismo error... sin apretar nada muestra el mensaje aun con el show.

y en Call stk dice the procces is not access...

Una duda...

el OnClick puede llamar una function o obligatoriamente tiene que llamar un Produce (por el TNotifyEvent)?

Bueno, es que por supuesto que esta haciendo bien las cosas, NO es un error, ya que estas ejecutando el proceso cuando inicias tu aplicación.

Que es lo que realmente quieres que haga, no entiendo lo que comentas al inicio del hilo.

Salud OS

[adonias]

Tengo una serie de botones...

cada uno de estos botones, llama la misma accion , pero con distintas variables...
desde el showform le asigno la funcion al boton con sus variables...

NECESITO QUE ESTA FUNCION SE EJECUTE CUANDO HAGAN CLICK.

Si tu intentas crear un form basico y le das a un boton una funcion como esta:

Código Delphi [-]
function funciondelboton():TnotifyEvent;
begin
  showMessage('jo');
end;
{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
Button1.OnClick :=  funciondelboton() ;
end;

el showmesage se ejecuta cuanto tu corres el exe, y no cuando haces click

[[egostar]]

Muy bien, entonces has esto

1. Quita lo que tienes en el evento OnCreate, como lo estabas haciendo inicialmente
2. Dale doble click a uno de los botones y colocas la función que quieres que se ejecute
3. Selecciona los demas botones, ve a Eventos y en el evento OnClick selecciona el evento del primer boton.
4. Listo, compila y ejecuta.

Salud OS

Edito:

No habia visto lo de las variables de cada botón pero en el evento "común" deberia de tener algo así, puede haber algo mas adecuado pero esto es lo que se me ocurre así de bote-pronto.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if (sender as TButton).Name = 'Button1' then begin
     //Asigna Variables Boton 1
  end;
  if (sender as TButton).Name = 'Button2' then begin
     //Asigna Variables Boton 2
  end;
  if (sender as TButton).Name = 'Button3' then begin
     //Asigna Variables Boton 3
  end;
  if (sender as TButton).Name = 'Button4' then begin
     //Asigna Variables Boton 4
  end;
  Ejecutor(var1, var2 );
end;

[adonias]

:P

Funciono ... mil gracias