Cliquear boton desde un Edit

[YosvanyRL]

Buenos dias a todos los miembros de este club. Y antes que todo gracias porque este es un espacio especial donde siempre se puede encontrar respuestas a preguntas y dudas que ayudan no solo a nosotros los novatos que nos gusta programar sino tambien a otro nivel mas avanzado donde una duda puede retrazar un proyecto.
Gracias una ves mas a todos.

Mi pregunta hoy es si yo puedo ejecutar un boton que ya existe al seleccionar una opcion en un mainmenu o desde un edit para no tener que copiar dos veses el mismo codigo del boton al evento onclick del edit ya que el boton tiene que estar como esta y ya tiene el codigo incluido?

Gracias a todos y les deseo lo mejor
Disculpen si mi pregunta es tonta.

[Casimiro Notevi]

boton.click

[[movorack]]

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.

[YosvanyRL]

Gracias por su respuesta pero no entendi nada.
Recuerda que no estoy tan avanzado.

[Casimiro Notevi]

Empezado por YosvanyRL

Gracias por su respuesta pero no entendi nada.
Recuerda que no estoy tan avanzado.

https://www.clubdelphi.com/foros/showthread.php?t=85907

[YosvanyRL]

Gracias de todas maneras por la cantidad de informacion tan util que me ha dado, pero yo soy enfermero, no programador y ahora mismo estoy estudiando medicina. No creo que pueda leer todo eso para encontrar el codigo tan simple que necesito aunque para mi no lo es.
La programacion para mi es un entretenimiento. Yo no soy profecional como ustedes.
Yo solo pregunto algunas dudas para programas que hago para entretenerme.
Gracias por su ayuda. Que tenga buen dia y que Dios le siga bendiciendo su conocimiento.

[ecfisa]

Hola.

En el caso del TMainMenu, una opción es asignar el evento OnClick del TButton al evento Onclick del TMenuItem. Ejemplo en modo visual:



Sin embargo en caso del TEdit deberías indicarnos ante que situación (en que evento del TEdit) pretendes que se ejecute el código del evento TButton.OnClick.

Saludos

[YosvanyRL]

Gracias muchisimas gracias por su tiempo.
De verdad lo aprecio mucho pues aunque lo que estoy haciendo no es un programa empresarial, me da gusto hacerlo y lo disfruto y de verdad quisiera estudiar mas pero no tengo el tiempo suficiente a mi favor.

Esta es la situacion grave para mi
El programa tiene un Boton que al hacer click sobre el va a ejecutar un codigo, pero tengo un edit donde pondras lo que sera objetivo a analizar cuando se haga click en el boton.
Yo podria poner el codigo que esta en el boton en el evento onkeydown if key=VK_ENTER, pero tendria que poner el codigo 2 veses. Entonces estaria el mismo codigo repetido innesesariamente en el evento onclick del boton y en el vento onkeydown del edit.
Pero una ves yo encontre un simple codigo de una linea que hacia que el boton se clickeara, pero ahora no se donde esta ni tengo la menor idea y no lo encuentro ni en internet.
Creo que era algo como un sender o algo asi. De verdad no recuerdo pero se que existe.
Eso o algo asi es lo que nesesito hacer y cuento con su ayuda para poderlo lograr.
Yo estoy trabajando con Rad Studio Community Edition.
Gracias y de verdad apreciaria mucho su ayuda.

[[movorack]]

[TALKING_WITH_MYSELF]
- Respira, respira...
- Pero es que ya se le dio la respuesta de muchas maneras
- Lo mas probable es que sea un millenial de esos que solo quieren viajar
- Pues si! Pero entonces, en lugar de un lenguaje de programación podría divertirse viendo youtube
- ¿Así como aprenderá?
- Jummm, bueno!
[/TALKING_WITH_MYSELF]

Hola, Buenos días. YosvanyRL. El código que buscas es el que ya te dio Casimiro.

Empezado por YosvanyRL

.. Pero una ves yo encontre un simple codigo de una linea que hacia que el boton se clickeara, pero ahora no se donde esta ni tengo la menor idea y no lo encuentro ni en internet.

Empezado por Casimiro Notevi

boton.click

Y si te animas a aprender un poco del lenguaje, te recomiendo el link que ya te compartieron.

Empezado por Casimiro Notevi

https://www.clubdelphi.com/foros/showthread.php?t=85907

Saludos.

[Casimiro Notevi]

Empezado por YosvanyRL

Esta es la situacion grave para mi

En qué quedamos, ¿es algo sin importancia, que haces por gusto, en tus ratos libres... o es algo importante?

De todas formas, ya se te ha dado varias respuestas que son posibles soluciones a implementar.

¿O acaso quieres aprender, pero sin leer, estudiar, probar, perder tiempo... y quieres que el conocimiento te venta por arte de magia?
Esto último no puede ser, por desgracia, ojalá se pudiera.

[YosvanyRL]

Mira como ya dije no es importante como seria un programa que se hace para una empresa o por trabajo, pero si es importante porque aunque lo hago por placer lo estoy haciendo y es importante para mi aunque no tenga ningun sentido.
Ademas me gusta leer y lo hago contantemente ya que en mi profecion como en la suya hay que estar al dia.
He leido delphi pero no como ustedes de igual manera ustedes a no ser que sean medicos no tienen el conocimiento en esa rama como alguien que lleva 20 años ejerciendo esa profecion como yo en salas de cuidados intencivos.
Yo no podria presionarlos a ustedes que sepan de medicina lo que yo se como ustedes no pueden presionarme a que yo sepa o tenga el conosimiento de ustedes para programar en delphi.
Llamemoslo logica simple.

Pero si no lo he entendido pues les pido disculpas por la molestia y que tengan muy buen dia.

[ecfisa]

Hola.

Empezado por YosvanyRL

...
Yo podria poner el codigo que esta en el boton en el evento onkeydown if key=VK_ENTER, pero tendria que poner el codigo 2 veses. Entonces estaria el mismo codigo repetido innesesariamente en el evento onclick del boton y en el vento onkeydown del edit.
Pero una ves yo encontre un simple codigo de una linea que hacia que el boton se clickeara, pero ahora no se donde esta ni tengo la menor idea y no lo encuentro ni en internet.

En realidad no me queda claro si te han servido o no las sugerencias que te hemos hecho. Pero a riesgo de ser insistente te pongo un ejemplo usando el evento OnKeyDown del TEdit y el método que te indicó Casimiro allá por el mensaje #2.

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

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
    Button1.Click;   // <- Aquí se llama al evento 
end;
...

No tienes por que disculparte y si sigues sin entenderlo, por favor indicanos con toda claridad que es lo que no puedes lograr.

Saludos

[Casimiro Notevi]

Empezado por YosvanyRL

Mira como ya dije no es importante...

A ver, un ejemplo exagerado: imagina que en un foro de medicina, alguien pregunta cómo hacer un bypas de corazón, y dice que lo hace porque le gusta, por hobby, pero que no es importante. Tú, como especialista, intentarás explicárselo lo mejor posible para que no cometa un error y mande a alguien "al otro lado".

Y luego va esa persona y se molesta porque le han contestado que tiene que estudiar mucho, hacer muchas prácticas, etc.
En ese caso debería de haber preguntado cómo tomar una aspirina.

Comparaciones y bromas aparte, los compañeros te han explicado cómo hacer exactamente lo que has preguntado, no sé por qué te molestas, es que no hay otra forma de hacerlo, intenta seguir las indicaciones que te han dado, verás que es fácil.
Y si te surge cualquier duda, vuelves a preguntar aquí, y paso a paso lo conseguiremos

[YosvanyRL]

Gracias por sus respuestas.
Y estubo muy bueno eso del bypass porque asi es.
Yo se que no voy a entender mucha de las cosas que me expliquen a no ser que las estudie a profundidad. En mi corazon de verdad admiro el conocimiento que ustedes tienen sobre programacion y se que solo con muchas horas de estudio se podria llegar a ese nivel.
Pero mi nivel es muy basico. y no creo que tenga el tiempo suficiente para aprender demaciado mas.
Yo se como arrancar un carro y manejarlo pero no todo lo que pasa en un motor desde que abro el chucho hasta que hago el primer cambio de velocidad.
Yo se de programacion en delphi solamente de como encender el carro y cambiar las velocidades.
Ustedes son los mecanicos expertos.
Que Dios los Bendiga mucho y les siga dando sabiduria
Una ve mas gracias por todo.
Estoy muy agradecido por su ayuda.
De hecho tengo muy buena opinion de este club.

[YosvanyRL]

Gracias a todos por su gran esfuerzo en ayudarme.
Al fin lo logre usando este codigo en el evento keydown del edit

Código Delphi [-]
Case Key of
        VK_RETURN: begin
            btGo.Perform(WM_LButtonDown,0,0);
            btGo.Perform(WM_LButtonUp,0,0);
        end;
end;

Gracias por su ayuda.
Que tengan buen dia