Ayuda con Boton

[turminator]

Empezado por adonias

Ya revise, y nada...

es decir cuando coloco esta funcion es cuando ejecuto el form create.. nada mas...

revise todos los botones, y ninguno tiene asignada ninguna accion ni nada..

Creo que este es el problema. Has asignado que la función se ejecute nada más crear el Form. Si lo que quieres es asignar la función debes escibiri tu codigo en el evento click del ratón.

Para llegar a dicho evento puedes buscarlo en el inspector de eventos o bien pulsar doble clic directamente encima del botón de la Form (en edición)

Espero te sea de ayuda, ya que yo aún soy un principiante de Delphi.

Saludos!

[Neftali [Germán.Estévez]]

Coloca un breakpoint al inicio de la función y cuando se pare la ejecución en ese punto visualiza la ventana de "Call stack" (pila de llamadas) y tal vez veas quien ha hecho la llamada y te de pistas de porqué se está lanzando la función en ese punto.

[adonias]

Gracias por su ayuda, pero aun asi no funciona...

pegare el codigo completo:

Código Delphi [-]
function Ejecutor(const var1:string ;var2:string ) : tnotifyevent;
begin
//alerto cuando cliqueo el boton
showMessage('Esta es una funcion desde un boton con varias variables');
end;

{$R *.dfm}

procedure TForm1.FormCreate(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;

gracias

[[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