-----Mensaje original-----
De: Direccion [mailto:director@...]
Enviado el: viernes, 30 de abril de 2004 02:05 pm
Para: DesarrolloDelphi@...
Asunto: RE: [Delphi] Al minimizar el formulario

Amigo,

 pero es que la prueba la estoy haciendo para, poder hacerlo desde un grid en Delphi, donde no me deja ingresar la fecha con el formato dd/mm/yyyy

 

Saludos

Oscar

 

-----Mensaje original-----
De: Chande [mailto:aldacm2001@...]
Enviado el: viernes, 30 de abril de 2004 04:04 pm
Para: DesarrolloDelphi@...
Asunto: Re: [Delphi] Al minimizar el formulario

Hola, verifica el formato de fecha de tu sistema e inserta la fecha en el mismo formato, otra forma es que no pases el valor sino un parametro y que sea el SQL el que se encargue de darle el formato que necesita

 

INSERT INTO control VALUES (:CONTROL,:FECHA);

 

cuando ejecutes el script, te pedirá el valor de los parametros CONTROL y FECHA

 

Saludos

 

Alexander

----- Original Message -----

From: Direccion

To: DesarrolloDelphi@...

Sent: Thursday, April 29, 2004 12:57 PM

Subject: RE: [Delphi] Al minimizar el formulario

Amigos:
También voy a pensar que esto

For example, the following INSERT statements all insert the date "January 22, 1943":
INSERT INTO t1 VALUES ('1943-01-22');
INSERT INTO t1 VALUES ('01/22/1943');
INSERT INTO t1 VALUES ('22.01.1943');
INSERT INTO t1 VALUES ('jan 22 1943');

Tomado de GetStart (la documentación de interbase) página 33 es un embuste porque he tratado de hacer

CREATE TABLE control(ctrl int, fecha date)

y luego al hacer

INSERT INTO control VALUES (1, '17/7/1961')
es lo mismo que
INSERT INTO control(ctrl,fecha) VALUES (1, '17/7/1961')

me suelta un enorme error que dice

¿Cual es la solución?

 

Saludos

Oscar

 

------------------------------
DesarrolloDelphi:
Desarrollo de Software en Borland Delphi
------------------------------
Direcciones de la lista:
Publicar un mensaje: DesarrolloDelphi@...
Suscribirse........: DesarrolloDelphi-Subscribe@...
Desuscribirse......: DesarrolloDelphi-Unsubscribe@...
Administrador......: DesarrolloDelphi-Owner@...
Página de la lista.: http://www.gruposyahoo.com.ar/group/DesarrolloDelphi
------------------------------



------------------------------
DesarrolloDelphi:
Desarrollo de Software en Borland Delphi
------------------------------
Direcciones de la lista:
Publicar un mensaje: DesarrolloDelphi@...
Suscribirse........: DesarrolloDelphi-Subscribe@...
Desuscribirse......: DesarrolloDelphi-Unsubscribe@...
Administrador......: DesarrolloDelphi-Owner@...
Página de la lista.: http://www.gruposyahoo.com.ar/group/DesarrolloDelphi
------------------------------

------------------------------
DesarrolloDelphi:
Desarrollo de Software en Borland Delphi
------------------------------
Direcciones de la lista:
Publicar un mensaje: DesarrolloDelphi@...
Suscribirse........: DesarrolloDelphi-Subscribe@...
Desuscribirse......: DesarrolloDelphi-Unsubscribe@...
Administrador......: DesarrolloDelphi-Owner@...
Página de la lista.: http://www.gruposyahoo.com.ar/group/DesarrolloDelphi
------------------------------

-----Mensaje original-----
De: Chande [mailto:aldacm2001@...]
Enviado el: viernes, 30 de abril de 2004 04:04 pm
Para: DesarrolloDelphi@...
Asunto: Re: [Delphi] Al minimizar el formulario

Hola, verifica el formato de fecha de tu sistema e inserta la fecha en el mismo formato, otra forma es que no pases el valor sino un parametro y que sea el SQL el que se encargue de darle el formato que necesita

 

INSERT INTO control VALUES (:CONTROL,:FECHA);

 

cuando ejecutes el script, te pedirá el valor de los parametros CONTROL y FECHA

 

Saludos

 

Alexander

----- Original Message -----

From: Direccion

To: DesarrolloDelphi@...

Sent: Thursday, April 29, 2004 12:57 PM

Subject: RE: [Delphi] Al minimizar el formulario

Amigos:
También voy a pensar que esto

For example, the following INSERT statements all insert the date "January 22, 1943":
INSERT INTO t1 VALUES ('1943-01-22');
INSERT INTO t1 VALUES ('01/22/1943');
INSERT INTO t1 VALUES ('22.01.1943');
INSERT INTO t1 VALUES ('jan 22 1943');

Tomado de GetStart (la documentación de interbase) página 33 es un embuste porque he tratado de hacer

CREATE TABLE control(ctrl int, fecha date)

y luego al hacer

INSERT INTO control VALUES (1, '17/7/1961')
es lo mismo que
INSERT INTO control(ctrl,fecha) VALUES (1, '17/7/1961')

me suelta un enorme error que dice

¿Cual es la solución?

 

Saludos

Oscar

 

------------------------------
DesarrolloDelphi:
Desarrollo de Software en Borland Delphi
------------------------------
Direcciones de la lista:
Publicar un mensaje: DesarrolloDelphi@...
Suscribirse........: DesarrolloDelphi-Subscribe@...
Desuscribirse......: DesarrolloDelphi-Unsubscribe@...
Administrador......: DesarrolloDelphi-Owner@...
Página de la lista.: http://www.gruposyahoo.com.ar/group/DesarrolloDelphi
------------------------------



------------------------------
DesarrolloDelphi:
Desarrollo de Software en Borland Delphi
------------------------------
Direcciones de la lista:
Publicar un mensaje: DesarrolloDelphi@...
Suscribirse........: DesarrolloDelphi-Subscribe@...
Desuscribirse......: DesarrolloDelphi-Unsubscribe@...
Administrador......: DesarrolloDelphi-Owner@...
Página de la lista.: http://www.gruposyahoo.com.ar/group/DesarrolloDelphi
------------------------------

----- Original Message -----

From: Direccion

To: DesarrolloDelphi@...

Sent: Thursday, April 29, 2004 12:57 PM

Subject: RE: [Delphi] Al minimizar el formulario

Amigos:
También voy a pensar que esto

For example, the following INSERT statements all insert the date "January 22, 1943":
INSERT INTO t1 VALUES ('1943-01-22');
INSERT INTO t1 VALUES ('01/22/1943');
INSERT INTO t1 VALUES ('22.01.1943');
INSERT INTO t1 VALUES ('jan 22 1943');

Tomado de GetStart (la documentación de interbase) página 33 es un embuste porque he tratado de hacer

CREATE TABLE control(ctrl int, fecha date)

y luego al hacer

INSERT INTO control VALUES (1, '17/7/1961')
es lo mismo que
INSERT INTO control(ctrl,fecha) VALUES (1, '17/7/1961')

me suelta un enorme error que dice

¿Cual es la solución?

 

Saludos

Oscar

 

------------------------------
DesarrolloDelphi:
Desarrollo de Software en Borland Delphi
------------------------------
Direcciones de la lista:
Publicar un mensaje: DesarrolloDelphi@...
Suscribirse........: DesarrolloDelphi-Subscribe@...
Desuscribirse......: DesarrolloDelphi-Unsubscribe@...
Administrador......: DesarrolloDelphi-Owner@...
Página de la lista.: http://www.gruposyahoo.com.ar/group/DesarrolloDelphi
------------------------------

Amigos:
También voy a pensar que esto

For example, the following INSERT statements all insert the date "January 22, 1943":
INSERT INTO t1 VALUES ('1943-01-22');
INSERT INTO t1 VALUES ('01/22/1943');
INSERT INTO t1 VALUES ('22.01.1943');
INSERT INTO t1 VALUES ('jan 22 1943');

Tomado de GetStart (la documentación de interbase) página 33 es un embuste porque he tratado de hacer

CREATE TABLE control(ctrl int, fecha date)

y luego al hacer

INSERT INTO control VALUES (1, '17/7/1961')
es lo mismo que
INSERT INTO control(ctrl,fecha) VALUES (1, '17/7/1961')

me suelta un enorme error que dice

¿Cual es la solución?

Saludos

Oscar

Hola :

He estado haciendo pruebas con un TToolbar y he visto en la ayuda que
existe la propiedad Customizable que permite que un usuario configure
los botones de la barra.

El caso es que tras ponerlo a true.... el usuario hace doble click y
se muestra un dialogo en el cual se le permite ocultar o mostrar los
botones. Una vez cerrado .... si volvemos a hacer dobleclick.... los
botones que habiamos quitado ya no hay forma de insertarlos....

Como se soluciona esto?

Y para terminar.... es posible que se pueda almacenar la configuracion
de estos botones para que en la proxima ejecucion se mantenga la
configuraion?


Un saludo.
Fco. Andrade

Searches for a record containing specified field values.

Delphi syntax:

function FindKey(const KeyValues: array of const): Boolean;

The following code uses the EditKey and GotoKey methods to move to a particular
record. The actual field values are not changed when making the assignments
because of the call to EditKey.

with StateData do

begin
   EditKey;
   FieldByName('State').AsString := 'CA';
   FieldByName('City').AsString := 'Santa Barbara';
   GotoKey;

end;

The following example performs an incremental search on a table.  The form
contains a db grid, an edit box, a data source, and a client dataset. As the
user types in the edit box, the cursor of the grid moves to the nearest match in
the dataset.

procedure TForm1.FormActivate(Sender: TObject);

begin
   ClientDataSet1.FileName := 'Customer.xml';
   ClientDataSet1.Active := True;
   ClientDataSet1.IndexName := 'ByCompany';
end;

procedure TForm1.Edit1Change(Sender: TObject);

begin
   ClientDataSet1.FindNearest([Edit1.Text]);
end;

with Table1 do

begin
   SetKey;
   FieldByName('State').AsString := 'CA';
   FieldByName('City').AsString := 'Santana';
   GotoNearest;
end;

Creo que aqui está todo lo que pides amigo

Saludos
Oscar



Buenos días,

Saludos querido Foro de Delphi,

Por favor quiero que me aclaren esta duda:
El método locate lo se utilizar de forma correcta para localizar un registro
en una tabla interbase.
Pero me gustaría saber, ¿Puedo utilizar los otros métodos de búsqueda
llamados GotoKey, FindKey, Gotonearest y Findnearest en una tabla que tengo
en una base de datos interbase?

He visto que estos métodos lo usan en tablas paradox, pero quiero saber si
estos métodos son aplicables a interbase ya que no uso paradox. Si la
respuesta a esta interrogante es afirmativa entonces, ¿como debo usarlos o
cual es su uso?
Les agradecería mucho si pueden ilustrarme estos métodos mediante ejemplos
de código.

Desde ya muchas gracias por su ayuda....

Att: Jorge Abel

Santo Domingo, Republica Dominicana



------------------------------
DesarrolloDelphi:
Desarrollo de Software en Borland Delphi
------------------------------
Direcciones de la lista:
Publicar un mensaje: DesarrolloDelphi@...
Suscribirse........: DesarrolloDelphi-Subscribe@...
Desuscribirse......: DesarrolloDelphi-Unsubscribe@...
Administrador......: DesarrolloDelphi-Owner@...
Página de la lista.: http://www.gruposyahoo.com.ar/group/DesarrolloDelphi
------------------------------
Yahoo! Grupos Enlaces

Para visitar tu grupo en Internet, vé a:
  http://ar.groups.yahoo.com/group/DesarrolloDelphi/

Para cancelar tu suscripción a este grupo, enviá un mensaje a:
  DesarrolloDelphi-unsubscribe@...

El uso de Yahoo! Grupos se rige por:
  http://ar.docs.yahoo.com/info/utos.html

Amigos:
¿Es posible que desde un DBGrid conectado a una Tabla, Consulta o cualquier otra
cosa con una base de datos en Interbase teclear las fechas con el formato
dd/mm/yyyy, mostrarla si es posible por la propiedad DisplayFormat del campo, lo
que no he encontrado, hasta ahora, es escribirlo en ese formato

Saludos
Oscar

¿Alguien sabe como hacer para detectar cuando el formulario es
minimizado?

----- Original Message -----

From: Jorge Abel Burgos Q.

To: DesarrolloDelphi@...

Cc: lDelphi@yahoogroups.com

Sent: Wednesday, April 28, 2004 11:17 PM

Subject: [Delphi] Metodos de Busqueda....

Buenos días,

Saludos querido Foro de Delphi,

Por favor quiero que me aclaren esta duda:
El método locate lo se utilizar de forma correcta para localizar un registro
en una tabla interbase.
Pero me gustaría saber, ¿Puedo utilizar los otros métodos de búsqueda
llamados GotoKey, FindKey, Gotonearest y Findnearest en una tabla que tengo
en una base de datos interbase?

He visto que estos métodos lo usan en tablas paradox, pero quiero saber si
estos métodos son aplicables a interbase ya que no uso paradox. Si la
respuesta a esta interrogante es afirmativa entonces, ¿como debo usarlos o
cual es su uso?
Les agradecería mucho si pueden ilustrarme estos métodos mediante ejemplos
de código.

Desde ya muchas gracias por su ayuda....

Att: Jorge Abel

Santo Domingo, Republica Dominicana



------------------------------
DesarrolloDelphi:
Desarrollo de Software en Borland Delphi
------------------------------
Direcciones de la lista:
Publicar un mensaje: DesarrolloDelphi@...
Suscribirse........: DesarrolloDelphi-Subscribe@...
Desuscribirse......: DesarrolloDelphi-Unsubscribe@...
Administrador......: DesarrolloDelphi-Owner@...
Página de la lista.: http://www.gruposyahoo.com.ar/group/DesarrolloDelphi
------------------------------

Buenos días,

Saludos querido Foro de Delphi,

Por favor quiero que me aclaren esta duda:
El método locate lo se utilizar de forma correcta para localizar un registro
en una tabla interbase.
Pero me gustaría saber, ¿Puedo utilizar los otros métodos de búsqueda
llamados GotoKey, FindKey, Gotonearest y Findnearest en una tabla que tengo
en una base de datos interbase?

He visto que estos métodos lo usan en tablas paradox, pero quiero saber si
estos métodos son aplicables a interbase ya que no uso paradox. Si la
respuesta a esta interrogante es afirmativa entonces, ¿como debo usarlos o
cual es su uso?
Les agradecería mucho si pueden ilustrarme estos métodos mediante ejemplos
de código.

Desde ya muchas gracias por su ayuda....

Att: Jorge Abel

Santo Domingo, Republica Dominicana

Hola Grupo,

   Gracias a todos los que me ayudaron con el tema del teclado, ya pude
   resolver el problema.

--
Saludos,
  Guille                          Correo: gruizdiaz@...

Para todos aquellos que se interesaron en mi problema y que aportaron
ideas para la solución del mismo, les comunico que éste asunto ha pasado
a mejor vida. Gracias a Salvador Santiago del Ciprés por su valiosísima
aportación a la solución.

Les explico, el ERP y MySQL, al procesar el registro de sus respectivos
ODBC's, inserta en el BDE una serie de cadenas de conexión, las cuales
solamente están activas cuando el respectivo controlador está activo en
memoria. En cualquier otra situación, BDE no tiene acceso a éstos ODBC's
y no permite ni muestra la conexión. Moraleja: A veces, la solución más
simple, eficiente y útil, se encuentra hasta abajo de la caja,
burlándose de nuestros vanos intentos de encontrar una solución
elegante.
_________________________________________
Felipe Eduardo Ortiz López,
Consultor.
Tiammat Software
tiammat@...
tiammatsoftware@...

-----Mensaje original-----
De: alxlopezm [mailto:alxlopezm@...]
Enviado el: Martes, 27 de Abril de 2004 17:25
Para: delphidf@...
Asunto: [delphidf] Re: ADO + SQL, comportamiento extraño.


¿Ya probaste la siguiente secuencias de ejecución?


>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
sSQLERP := 'SELECT COUNT(*) FROM ' + sNombreTabla;
adoqfuente.SQL.Add(sSQLERP); adoqfuente.Active;  (* O Open*) nRegistros
:= adoqFuente.FieldValues['EXPR_1'];

adoqfuente.Close;  {*Esto asegura que non traerá otro conjunto de
datos mas que lo que le indiques posteriormente*)

// Lees los datos de la tabla
sSQLERP := 'SELECT * FROM ' + sNombreTabla; adoqFuente.SQL.Clear;
adoqFuente.SQL.Add(sSQLERP); adoqFuente.Active := True;

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Como comentario adicional, tu código se vería mejor(solo por si es de
tu interes) si tu sentencia de count de access fuera

SELECT COUNT(*) AS CUANTOS FROM  TABLA;

Tu instruccion de Delphi quedaría más legible como

nRegistros := adoqFuente.FieldValues['CUANTOS'];


Espero sirva.

Saludos,
--- En delphidf@..., Felipe Eduardo Ortiz López
<tiammat@p...> escribió:
> Estimados colister@s:
>
> Trabajo con Delphi 6 Enterprise y ésta es una duda de ADO/ODBC que
me
> está volviendo loco. Tengo el siguiente código:
>
>       sNombreTabla := adoqIndicador.FieldValues['NOMTABLA'];
> (*
>       Primero, para contar los registros
> *)
>       sSQLERP := 'SELECT COUNT(*) FROM ' + sNombreTabla;
>       adoqFuente.SQL.Add(sSQLERP);
>       adoqFuente.Active := True;
>       nRegistros := adoqFuente.FieldValues['EXPR_1'];
> (*
>       Ahora, tomamos los registros que nos interesan
> *)
>       sSQLERP := 'SELECT * FROM ' + sNombreTabla;
>       adoqFuente.SQL.Clear;
>       adoqFuente.SQL.Add(sSQLERP);
>       adoqFuente.Active := True;
>
> Como verán, tengo dos TADOQuery's, de uno de ellos tomo el nombre
de una
> tabla y termino de construir un SELECT COUNT(*) para saber cuántos
> renglones puedo esperar recibir; en el segundo, ejecuto la
extracción de
> datos propiamente dicha. Más adelante, tengo lo siguiente:
>
>          adoqFuente.First;
> //         while not adoqFuente.EOF do begin
>          while j < nRegistros do begin
>
> Y aquí es dónde sucede (o más bien, no sucede) todo el problema;
como
> podrán darse cuenta, primeramente solicitaba el estado de EOF, y
siempre
> me devolvía TRUE (aunque en la ayuda de Delphi indicaba otra cosa,
que
> sí es posible utilizarlo como condicionamiento) y opté por tratar de
> hacer el loop de control a través de un contador. En resumen, el
segundo
> SELECT no devuelve absolutamente ningún dato, aunque el conteo me
dice
> que puede devolver 278 registros, comprobado mediante el conteo uno
por
> uno en la base de datos fuente mediante Excel y la misma cadena de
> conexión y los mismos comandos SQL. Es más, durante el colmo de mi
> desesperación intenté asignar directamente a un TADOTable y su
> respectivo DataSource la llamada a la tabla (o tablas) que me
interesa
> recorrer, mostrándome invariablemente un mensaje en el que decía
que el
> proveedor de datos mandaba un error de E_FAIL (que obviamente,
busqué en
> la ayuda de Delphi y encontré que se trata de un error de
TStreamAdapter
> o de la función DllRegisterServer [¡¡¡las cuales NUNCA utilizo!!!]),
> aunque en la cadena de conexión le marco claramente que solamente
> obtendré datos de lectura, que no actualizaré nada en la base de
datos
> ODBC.
>
> Por favor, sé que puede parecer una duda extremadamente tonta o algo
> así, pero les agradecería un poco de luz en éste respecto.
> Desafortunadamente, ADO no es mi fuerte y estoy a punto de tomar VB
como
> opción de desarrollo; ayúdenme a no dar un paso atrás tan
drástico ;) .
>
> _________________________________________
> Felipe Eduardo Ortiz López,
> Consultor.
> Tiammat Software
> tiammat@p...
> tiammatsoftware@y...



Para cancelar tu suscripción, envía un correo a:
delphidf-unsubscribe@egroups.com


Yahoo! Grupos Enlaces

Para visitar tu grupo en Internet, ve a:
http://mx.groups.yahoo.com/group/delphidf/

Para cancelar tu suscripción a este grupo, envía un mensaje a:
delphidf-unsubscribe@...

El uso de Yahoo! Grupos se rige por:
http://mx.yahoo.com/docs/info/utos.html

community.borland.com

Article #16500: Does Delphi have an equivalent to the Visual Basic SendKeys
function?

  Question and Answer Database

FAQ1500D.txt   Does Delphi have an equivalent to the Visual Basic SendKeys
function?
Category   :VCL
Platform    :All
Product    :All 32 bit

Question:
Does Delphi have an equivalent to the Visual Basic SendKeys
function?

Answer:
The following example demonstrates procedures that provide the
capibility of sending keystrokes to any window control capable of
receiving keyboard input. You may use this technique to toggle
the num lock, caps lock, and scroll lock keys under Windows NT.
This same technique works for toggling caps lock and scroll lock
keys under Windows 95, but it will not work for num lock.

Note that there are four procedures provided: SimulateKeyDown(),
SimulateKeyUp(), SimulateKeystroke(), and SendKeys(), to allow greater
control in your ability to send keystrokes.

The SimulateKeyDown(), SimulateKeyUp(), and SimulateKeystroke()
procedures expect a virtural key code (like VK_F1).
The SimulateKeystroke() procedure accepts an extra parameter that is
useful when simulating the PrintScreen key. When extra is set to zero,
the entire screen will be captured to the windows clipboard. When
extra is set to one, only the active window will be captured.

The four button click methods demonstrate the use of these functions:
ButtonClick1 -  Toggles the cap lock.
ButtonClick2 - Captures the entire screen to the clipboard.
ButtonClick3 - Capture the active window to the clipboard.
ButtonClick4 - Set the focus to an edit control and sends it a string.

Example:

procedure SimulateKeyDown(Key : byte);
begin
   keybd_event(Key, 0, 0, 0);
end;

procedure SimulateKeyUp(Key : byte);
begin
   keybd_event(Key, 0, KEYEVENTF_KEYUP, 0);
end;

procedure SimulateKeystroke(Key : byte;
                             extra : DWORD);
begin
   keybd_event(Key,
               extra,
               0,
               0);
   keybd_event(Key,
               extra,
               KEYEVENTF_KEYUP,
               0);
end;

procedure SendKeys(s : string);
var
   i : integer;
   flag : bool;
   w : word;
begin
  {Get the state of the caps lock key}
   flag := not GetKeyState(VK_CAPITAL) and 1 = 0;
  {If the caps lock key is on then turn it off}
   if flag then
     SimulateKeystroke(VK_CAPITAL, 0);
   for i := 1 to Length(s) do begin
     w := VkKeyScan(s[i]);
    {If there is not an error in the key translation}
     if ((HiByte(w) <> $FF) and
         (LoByte(w) <> $FF)) then begin
      {If the key requires the shift key down - hold it down}
       if HiByte(w) and 1 = 1 then
         SimulateKeyDown(VK_SHIFT);
      {Send the VK_KEY}
       SimulateKeystroke(LoByte(w), 0);
      {If the key required the shift key down - release it}
       if HiByte(w) and 1 = 1 then
         SimulateKeyUp(VK_SHIFT);
     end;
   end;
  {if the caps lock key was on at start, turn it back on}
   if flag then
     SimulateKeystroke(VK_CAPITAL, 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  {Toggle the cap lock}
   SimulateKeystroke(VK_CAPITAL, 0);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  {Capture the entire screen to the clipboard}
  {by simulating pressing the PrintScreen key}
   SimulateKeystroke(VK_SNAPSHOT, 0);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  {Capture the active window to the clipboard}
  {by simulating pressing the PrintScreen key}
   SimulateKeystroke(VK_SNAPSHOT, 1);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  {Set the focus to a window (edit control) and send it a string}
   Application.ProcessMessages;
   Edit1.SetFocus;
   SendKeys('Delphi Is RAD!');
end;

7/16/98 4:31:28 PM

Last Modified: 01-SEP-99
-----Mensaje original-----
De: Guille Ruiz Díaz [mailto:gruizdiaz@...]
Enviado el: martes, 27 de abril de 2004 07:54 pm
Para: Grupo Delphi
Asunto: [Delphi] Sobre el teclado


Colegas:
         Alguien me puede decir si existe en delphi un comando
         equivalente al SendKeys de Visual Basic. EL motivo es que
         estoy desarrollando una aplicación dónde el usuario elige
         valores en una ventana modal que al presionar el botón OK se
         insertan en un control richedit. Para ganar tiempo y agilizar
         la entrada quiero colocar el punto de inserción al final del
         último texto ingresado sin que tenga que hacerlo el usuario
         con Ctrl + End. En visual esto se hacía así
         SendKeys({Ctrl}+{End}+{Enter}). Alguien conoce en delphi
         alguna solución para esto. Desde ya muchas gracias por su
         atención.



--
Saludos,
  Guille                          Correo: gruizdiaz@...




------------------------------
DesarrolloDelphi:
Desarrollo de Software en Borland Delphi
------------------------------
Direcciones de la lista:
Publicar un mensaje: DesarrolloDelphi@...
Suscribirse........: DesarrolloDelphi-Subscribe@...
Desuscribirse......: DesarrolloDelphi-Unsubscribe@...
Administrador......: DesarrolloDelphi-Owner@...
Página de la lista.: http://www.gruposyahoo.com.ar/group/DesarrolloDelphi
------------------------------
Yahoo! Grupos Enlaces

Para visitar tu grupo en Internet, vé a:
  http://ar.groups.yahoo.com/group/DesarrolloDelphi/

Para cancelar tu suscripción a este grupo, enviá un mensaje a:
  DesarrolloDelphi-unsubscribe@...

El uso de Yahoo! Grupos se rige por:
  http://ar.docs.yahoo.com/info/utos.html

Guille:

De la API de Windows:

    keybd_event(VK_CONTROL, 0, 0, 0);
    keybd_event(VK_END, 0, 0, 0);

Las constantes de teclas y la función están definidas en windows.pas

Saludos
Carlos

--- En DesarrolloDelphi@..., Guille Ruiz Díaz
<gruizdiaz@c...> escribió:
> Colegas:
>         Alguien me puede decir si existe en delphi un comando
>         equivalente al SendKeys de Visual Basic. EL motivo es que
>         estoy desarrollando una aplicación dónde el usuario elige
>         valores en una ventana modal que al presionar el botón OK se
>         insertan en un control richedit. Para ganar tiempo y agilizar
>         la entrada quiero colocar el punto de inserción al final del
>         último texto ingresado sin que tenga que hacerlo el usuario
>         con Ctrl + End. En visual esto se hacía así
>         SendKeys({Ctrl}+{End}+{Enter}). Alguien conoce en delphi
>         alguna solución para esto. Desde ya muchas gracias por su
>         atención.
>
>
>
> --
> Saludos,
>  Guille                          Correo: gruizdiaz@c...

Hola a todos.

Los consulto por lo siguiente: Estoy trabajando con un TCheckListBox y
necesitaría que me marqu el Check no solo cuanod presiono la barra
espaciadora (por defecto), sino tambien si presiono otra tecla (ENTER o TAB
por ejemplo). Intenté hacerlo capturando alguno d elos eventos del teclado
(OnKeyPress, OnKeyUp, etc), peor me encuentro con el problema que no se en
cuál item del TCheckListBox estoy parado al momento que se presiona la
tecla.

¿Hay alguna forma de saber en cuàl estoy ubicado? ¿o de cambiar la tecla que
por defecto sirve para hacer los tildes en el Check?

Desde ya muchas gracias!!!
Saludos. Claudio.

Colegas:
         Alguien me puede decir si existe en delphi un comando
         equivalente al SendKeys de Visual Basic. EL motivo es que
         estoy desarrollando una aplicación dónde el usuario elige
         valores en una ventana modal que al presionar el botón OK se
         insertan en un control richedit. Para ganar tiempo y agilizar
         la entrada quiero colocar el punto de inserción al final del
         último texto ingresado sin que tenga que hacerlo el usuario
         con Ctrl + End. En visual esto se hacía así
         SendKeys({Ctrl}+{End}+{Enter}). Alguien conoce en delphi
         alguna solución para esto. Desde ya muchas gracias por su
         atención.



--
Saludos,
  Guille                          Correo: gruizdiaz@...

Si no pasás el fragmento de código fuente donde hiciste los cambios, poco
podemos hacer para ayudarte, más que tirar suposiciones.

________________________________________
De: Tito Arrieta [mailto:tarrieta@...]
Asunto: [Delphi] Problema con Eventos

Buenos dias, he creado una clase que deriva de un TPanel, este tiene entre
sus componentes un TSscrollbar y un TUpDown, a este ultimo le he definido un
procedimiento para el OnClick, el problema que tengo es que despues de hacer
click la primera vez en el TUpDown, este evento queda activo para toda la
clase, inclusive para el formulario, asi que si doy click en otra parte que
no sea el TUpDown, se ejecuta el OnClick.
 
Que puedo hacer?
 
Salu2
 
TAC

y estan definidos como constantes o sea que es
FontColor:= clGreen;


-----Mensaje original-----
De: Ernesto Cullen [mailto:ecullen@...]
Enviado el: domingo, 25 de abril de 2004 04:12 pm
Para: DesarrolloDelphi@...
Asunto: Re: [Delphi] Colores palabras


en Delphi los colores empiezan con las letras 'cl' -> FontColor = clGreen

Ernesto Cullen

----- Original Message -----
From: "papjara" <papjara@...>
To: <DesarrolloDelphi@...>
Sent: Friday, April 23, 2004 12:43 PM
Subject: [Delphi] Colores palabras


Hola grupo, estoy haciendo una aplicacion en modo consola, pero las
letras me aparecen un blanco, intente carbiarlas de color con
FontColor = "Green", del antiguo Pascal, pero no me dio resultado, y
haber si alguno sabe como hacerlo.



------------------------------
DesarrolloDelphi:
Desarrollo de Software en Borland Delphi
------------------------------
Direcciones de la lista:
Publicar un mensaje: DesarrolloDelphi@...
Suscribirse........: DesarrolloDelphi-Subscribe@...
Desuscribirse......: DesarrolloDelphi-Unsubscribe@...
Administrador......: DesarrolloDelphi-Owner@...
Página de la lista.: http://www.gruposyahoo.com.ar/group/DesarrolloDelphi
------------------------------
Yahoo! Grupos Enlaces

Para visitar tu grupo en Internet, vé a:
  http://ar.groups.yahoo.com/group/DesarrolloDelphi/

Para cancelar tu suscripción a este grupo, enviá un mensaje a:
  DesarrolloDelphi-unsubscribe@...

El uso de Yahoo! Grupos se rige por:
  http://ar.docs.yahoo.com/info/utos.html

Hola a todos...
Tengo una duda...
Estoy haciendo una consulta SQL sobre una tabla DBF que tiene registros
marcados como borrados, pero que fisicamente todavia están el la tabla.El
tema es que mi consulta los toma en cuenta como si no estuvieran borrados..
¿hay alguna forma de que la consulta no los procese o no los tenga en cuenta
al generarse ?...
Desde ya, muchas gracias...
Walter

en Delphi los colores empiezan con las letras 'cl' -> FontColor = clGreen

Ernesto Cullen

----- Original Message -----
From: "papjara" <papjara@...>
To: <DesarrolloDelphi@...>
Sent: Friday, April 23, 2004 12:43 PM
Subject: [Delphi] Colores palabras


Hola grupo, estoy haciendo una aplicacion en modo consola, pero las
letras me aparecen un blanco, intente carbiarlas de color con
FontColor = "Green", del antiguo Pascal, pero no me dio resultado, y
haber si alguno sabe como hacerlo.

Jesus

_________________________________________________________________
Reparaciones, servicios a domicilio, empresas, profesionales... Todo en la
guía telefónica de QDQ. http://qdq.msn.es/msn.cfm

Hola grupo, estoy haciendo una aplicacion en modo consola, pero las
letras me aparecen un blanco, intente carbiarlas de color con
FontColor = "Green", del antiguo Pascal, pero no me dio resultado, y
haber si alguno sabe como hacerlo.


Gracias.

No obstante es posible teóricamente, no creo sinceramente que exista. A
menos que lo generes vos mismo.

atte

Adrián

--
NEU : GMX Internet.FreeDSL
Ab sofort DSL-Tarif ohne Grundgebühr: http://www.gmx.net/dsl

Hola, quizás esto que voy a preguntar no tiene sentido(es lo más probable),
pero así ya salgo de la duda. Tengo un formulario en formato HTML, y quiero
reproducir el mismo formulario en Delphi. ¿No existe manera de importar un
formulario HTML en delphi , es decir, generar el formulario en delphi
automáticamente a partir del código html?.
Gracias

Gracias. Estoy totalmente seguro que sNombreTabla no es NULL, del otro
no estoy tan seguro.

_________________________________________
Felipe Eduardo Ortiz López,
Consultor.
Tiammat Software
tiammat@...
tiammatsoftware@...

-----Mensaje original-----
De: Direccion [mailto:director@...]
Enviado el: Viernes, 23 de Abril de 2004 1:10
Para: DesarrolloDelphi@...
Asunto: RE: [Delphi] ADO + SQL, comportamiento extraño.


Amigo:
Verifica el ADOQuery1.RecordCount y si te da -1 entonces tienes un
problema de conexión, también mira lo que se esta asignando a
sNombreTabla, puede ser NULL.

Solo sugerencias

Saludos
Oscar




-----Mensaje original-----
De: Felipe Eduardo Ortiz López [mailto:tiammat@...] Enviado
el: jueves, 22 de abril de 2004 09:19 pm
Para: delphi-abierto@...; LDelphi en Español;
delphi-intermedio@...; LDelphi México; LDelphiDF;
DesarrolloDelphi@...
Asunto: [Delphi] ADO + SQL, comportamiento extraño.


Estimados colister@s:

Trabajo con Delphi 6 Enterprise y ésta es una duda de ADO/ODBC que me
está volviendo loco. Tengo el siguiente código:

       sNombreTabla := adoqIndicador.FieldValues['NOMTABLA'];
(*
       Primero, para contar los registros
*)
       sSQLERP := 'SELECT COUNT(*) FROM ' + sNombreTabla;
       adoqFuente.SQL.Add(sSQLERP);
       adoqFuente.Active := True;
       nRegistros := adoqFuente.FieldValues['EXPR_1'];
(*
       Ahora, tomamos los registros que nos interesan
*)
       sSQLERP := 'SELECT * FROM ' + sNombreTabla;
       adoqFuente.SQL.Clear;
       adoqFuente.SQL.Add(sSQLERP);
       adoqFuente.Active := True;

Como verán, tengo dos TADOQuery's, de uno de ellos tomo el nombre de una
tabla y termino de construir un SELECT COUNT(*) para saber cuántos
renglones puedo esperar recibir; en el segundo, ejecuto la extracción de
datos propiamente dicha. Más adelante, tengo lo siguiente:

          adoqFuente.First;
//         while not adoqFuente.EOF do begin
          while j < nRegistros do begin

Y aquí es dónde sucede (o más bien, no sucede) todo el problema; como
podrán darse cuenta, primeramente solicitaba el estado de EOF, y siempre
me devolvía TRUE (aunque en la ayuda de Delphi indicaba otra cosa, que
sí es posible utilizarlo como condicionamiento) y opté por tratar de
hacer el loop de control a través de un contador. En resumen, el segundo
SELECT no devuelve absolutamente ningún dato, aunque el conteo me dice
que puede devolver 278 registros, comprobado mediante el conteo uno por
uno en la base de datos fuente mediante Excel y la misma cadena de
conexión y los mismos comandos SQL. Es más, durante el colmo de mi
desesperación intenté asignar directamente a un TADOTable y su
respectivo DataSource la llamada a la tabla (o tablas) que me interesa
recorrer, mostrándome invariablemente un mensaje en el que decía que el
proveedor de datos mandaba un error de E_FAIL (que obviamente, busqué en
la ayuda de Delphi y encontré que se trata de un error de TStreamAdapter
o de la función DllRegisterServer [¡¡¡las cuales NUNCA utilizo!!!]),
aunque en la cadena de conexión le marco claramente que solamente
obtendré datos de lectura, que no actualizaré nada en la base de datos
ODBC.

Por favor, sé que puede parecer una duda extremadamente tonta o algo
así, pero les agradecería un poco de luz en éste respecto.
Desafortunadamente, ADO no es mi fuerte y estoy a punto de tomar VB como
opción de desarrollo; ayúdenme a no dar un paso atrás tan drástico ;) .

_________________________________________
Felipe Eduardo Ortiz López,
Consultor.
Tiammat Software
tiammat@...
tiammatsoftware@...




------------------------------
DesarrolloDelphi:
Desarrollo de Software en Borland Delphi
------------------------------
Direcciones de la lista:
Publicar un mensaje: DesarrolloDelphi@...
Suscribirse........: DesarrolloDelphi-Subscribe@...
Desuscribirse......: DesarrolloDelphi-Unsubscribe@...
Administrador......: DesarrolloDelphi-Owner@...
Página de la lista.:
http://www.gruposyahoo.com.ar/group/DesarrolloDelphi
------------------------------
Yahoo! Grupos Enlaces

Para visitar tu grupo en Internet, vé a:
http://ar.groups.yahoo.com/group/DesarrolloDelphi/

Para cancelar tu suscripción a este grupo, enviá un mensaje a:
DesarrolloDelphi-unsubscribe@...

El uso de Yahoo! Grupos se rige por:
http://ar.docs.yahoo.com/info/utos.html



------------------------------
DesarrolloDelphi:
Desarrollo de Software en Borland Delphi
------------------------------
Direcciones de la lista:
Publicar un mensaje: DesarrolloDelphi@...
Suscribirse........: DesarrolloDelphi-Subscribe@...
Desuscribirse......: DesarrolloDelphi-Unsubscribe@...
Administrador......: DesarrolloDelphi-Owner@...
Página de la lista.:
http://www.gruposyahoo.com.ar/group/DesarrolloDelphi
------------------------------
Yahoo! Grupos Enlaces

Para visitar tu grupo en Internet, vé a:
http://ar.groups.yahoo.com/group/DesarrolloDelphi/

Para cancelar tu suscripción a este grupo, enviá un mensaje a:
DesarrolloDelphi-unsubscribe@...

El uso de Yahoo! Grupos se rige por:
http://ar.docs.yahoo.com/info/utos.html

Amigo:
Verifica el ADOQuery1.RecordCount y si te da -1 entonces tienes un problema de
conexión, también mira lo que se esta asignando a sNombreTabla, puede ser NULL.

Solo sugerencias

Saludos
Oscar




-----Mensaje original-----
De: Felipe Eduardo Ortiz López [mailto:tiammat@...]
Enviado el: jueves, 22 de abril de 2004 09:19 pm
Para: delphi-abierto@...; LDelphi en Español;
delphi-intermedio@...; LDelphi México; LDelphiDF;
DesarrolloDelphi@...
Asunto: [Delphi] ADO + SQL, comportamiento extraño.


Estimados colister@s:

Trabajo con Delphi 6 Enterprise y ésta es una duda de ADO/ODBC que me
está volviendo loco. Tengo el siguiente código:

       sNombreTabla := adoqIndicador.FieldValues['NOMTABLA'];
(*
       Primero, para contar los registros
*)
       sSQLERP := 'SELECT COUNT(*) FROM ' + sNombreTabla;
       adoqFuente.SQL.Add(sSQLERP);
       adoqFuente.Active := True;
       nRegistros := adoqFuente.FieldValues['EXPR_1'];
(*
       Ahora, tomamos los registros que nos interesan
*)
       sSQLERP := 'SELECT * FROM ' + sNombreTabla;
       adoqFuente.SQL.Clear;
       adoqFuente.SQL.Add(sSQLERP);
       adoqFuente.Active := True;

Como verán, tengo dos TADOQuery's, de uno de ellos tomo el nombre de una
tabla y termino de construir un SELECT COUNT(*) para saber cuántos
renglones puedo esperar recibir; en el segundo, ejecuto la extracción de
datos propiamente dicha. Más adelante, tengo lo siguiente:

          adoqFuente.First;
//         while not adoqFuente.EOF do begin
          while j < nRegistros do begin

Y aquí es dónde sucede (o más bien, no sucede) todo el problema; como
podrán darse cuenta, primeramente solicitaba el estado de EOF, y siempre
me devolvía TRUE (aunque en la ayuda de Delphi indicaba otra cosa, que
sí es posible utilizarlo como condicionamiento) y opté por tratar de
hacer el loop de control a través de un contador. En resumen, el segundo
SELECT no devuelve absolutamente ningún dato, aunque el conteo me dice
que puede devolver 278 registros, comprobado mediante el conteo uno por
uno en la base de datos fuente mediante Excel y la misma cadena de
conexión y los mismos comandos SQL. Es más, durante el colmo de mi
desesperación intenté asignar directamente a un TADOTable y su
respectivo DataSource la llamada a la tabla (o tablas) que me interesa
recorrer, mostrándome invariablemente un mensaje en el que decía que el
proveedor de datos mandaba un error de E_FAIL (que obviamente, busqué en
la ayuda de Delphi y encontré que se trata de un error de TStreamAdapter
o de la función DllRegisterServer [¡¡¡las cuales NUNCA utilizo!!!]),
aunque en la cadena de conexión le marco claramente que solamente
obtendré datos de lectura, que no actualizaré nada en la base de datos
ODBC.

Por favor, sé que puede parecer una duda extremadamente tonta o algo
así, pero les agradecería un poco de luz en éste respecto.
Desafortunadamente, ADO no es mi fuerte y estoy a punto de tomar VB como
opción de desarrollo; ayúdenme a no dar un paso atrás tan drástico ;) .

_________________________________________
Felipe Eduardo Ortiz López,
Consultor.
Tiammat Software
tiammat@...
tiammatsoftware@...




------------------------------
DesarrolloDelphi:
Desarrollo de Software en Borland Delphi
------------------------------
Direcciones de la lista:
Publicar un mensaje: DesarrolloDelphi@...
Suscribirse........: DesarrolloDelphi-Subscribe@...
Desuscribirse......: DesarrolloDelphi-Unsubscribe@...
Administrador......: DesarrolloDelphi-Owner@...
Página de la lista.: http://www.gruposyahoo.com.ar/group/DesarrolloDelphi
------------------------------
Yahoo! Grupos Enlaces

Para visitar tu grupo en Internet, vé a:
  http://ar.groups.yahoo.com/group/DesarrolloDelphi/

Para cancelar tu suscripción a este grupo, enviá un mensaje a:
  DesarrolloDelphi-unsubscribe@...

El uso de Yahoo! Grupos se rige por:
  http://ar.docs.yahoo.com/info/utos.html