6 respuestas en este tema

[Caral]

Hola
Tengo una duda, a ver si me podéis ayudar.
Estoy modificando un programa que me paso Egostar.
El programa recibe faxes y esta hecho en base a componentes, esto empezó en este HILO.
El asunto es:
El programa tiene un componente (ApdTapiDevice), este componente tiene un procedimiento que se llama SelectedDevice el que tiene un botón con tres puntos.
Cuando se presiona el botón sale una pantallita con un combo y se escoge una de las opciones presionando OK.
El programa una vez que funciona tiene un boton que es el que enlaza con este componente, osea, es el que muestra la pantallita con el combo.
El llamado es sencillo:

delphi

procedure TForm1.rfSelectPortClick(Sender: TObject);
begin
  ApdTapiDevice1.SelectDevice;
 
end;

El asunto es que quiero que el programa muestre la pantallita y presione el boton OK solo, sin necesidad que lo haga alguien, pero no se como acceder a este boton.
Espero que me entendáis lo que quiero hacer.
Saludos

[Caral]

Hola
Sigo investigando, según yo.
Si posiciono el raton sobre esta linea veo segun entiendo que esta ligado a TModalResult.
Osea creo que busca el resultado de este.
Viendo el help de delphi aparece esto:

TModalResult represents the return value from a modal dialog.

Unit

QForms

type TModalResult = Low(Integer)..High(Integer);

Description

TModalResult represents the value returned by a modal dialog.
An application can use any integer value as a modal result value.
For convenience, the QControls unit defines a set of constants for commonly used TModalResult values:

y luego muestra una lista que me parece que es de resultados:

Constant     Value   Meaning

mrNone       0             None. Used as a default value before the user exits.
mrOk           1         The user exited with OK button.
mrCancel       2           The user exited with the CANCEL button.
mrYes       3           The user exited with the YES button.
mrNo           4         The user exited with the NO button.
mrAbort     5         The user exited with the ABORT button.
mrRetry     6         The user exited with the RETRY button.
mrIgnore     7         The user exited with the IGNORE button.
mrAll             8         The user exited with the ALL button.
mrNoToAll     9         The user exited with the NO TO ALL button.
mrYesToAll     10         The user exited with the YES TO ALL button.

Note: If you are writing a cross-platform application, use the symbolic constants for the values in the table above. The numerical definitions of these constants differs between Windows and Linux.

Esto me hace pensar que el resultado es manejable, pero sigo sin saber como.
Saludos

[FGarcia]

mmmm no tengo el codigo a la mano pero algo asi :

delphi

if modalresult = mrOK then
   Button1.click;

[Caral]

Hola
Gracias amigo, pero para variar no entiendo.

este procedimiento llama al dialogo que tiene un combo y dos botones, uno OK y otro Cancel.

delphi

procedure TForm1.rfSelectPortClick(Sender: TObject);
begin
  ApdTapiDevice1.SelectDevice;
 
end;

Lo que pretendo es que al mostrarse el dialogo se presione el boton OK del dialogo automaticamente.
Saludos

[Caral]

Hola
Bueno lo resolví­ a lo novato.
El procedimiento anterior que mostré, generaba un dialogo, que a su vez generaba un string que se grababa en este otro procedimiento:

delphi

ApdTapiDevice1.SelectedDevice

Muy similares en escritura, por eso cuesta verlos.
Lo que hice fue llamar directamente a este nuevo procedimiento y grabar el string en un archivo ini y en un edit para mantenerlo como referencia.
Ahora cada vez que el programa entra verifica primero el ini y luego lo graba en ese procedimiento.
Bueno, ya creo que quedo, solo el lunes me dare cuenta si funciona bien o no.
Saludos

[enecumene]

Pues esperaremos los resultados

[egostar]

Que bien amigo Caral, me da gusto ver que ya eres autosuficiente

Salud OS