Hola,

Alguien ha usado los componentes de suiPack 5? tengo un problema... Este es
codigo actual incluido el codigo bajo comentario...

delDialog.ShowModal;
if delDialog.Button1ModalResult = mrOk then

{if application.MessageBox('Estás a punto de borrar todos los datos de
la'+
(chr(13))+'Tabla. De continuar, los datos y/o registros'+
(chr(13))+'se perderán de forma PERMANENTE.'+
(chr(13))+'¿Deseas continuar?',
'¡Atención!',mb_IconExclamation + mb_YesNo) = idYes then}
begin
for i:= 0 to Tabla.recordCount -1 do
begin
delBar.Visible:= true;
delBar.Position:= i+1;
Delete;
popButton.Enabled:= false;
end;
refresh;
end
else
if delDialog.Button2ModalResult = mrCancel then
exit;

El problema es, que no actua como si se usara el Application.messageBox,
sino que comprueba si el modo de cada boton es 'mrOk' o 'mrCancel' y claro
como se da ambos casos, pulse uno u otro boton, me borra la bese de datos
completa cuando no debería pasar si pulsara sobre 'Cancelar'
Si alguien sabe como arreglar esto... le estaría agradecido.

Saludos y gracias de antemano.
D.

Hola...

Creo que no tienes que usar "if delDialog.Button1ModalResult = mrOk then"

sino "if delDialog.ModalResult = mrOk"

El ModalResult del botón siempre va a ser el mismo, el el ModalResult del
Dialog el que cambia según que botón hayas pulsado.
Siempre y cuando sea esto a lo que te refieras, porque a lo mejor te he
entendido mal.

De todas formas, si lo que quieres usar es un diálogo que pregunte al
usuario "Sí o No"... ¿por qué no usas simplemente un MessageDlg? Así no
tendrás que crear un Form ni abrirlo con Showmodal. En una sola línea de
código lo tendrías resuelto.



"DanielM" <guiallarhorn***yahoo.es> escribió en el mensaje
news:BONbd.10921$4W6.10496***news.ono.com...
> Hola,
>
> Alguien ha usado los componentes de suiPack 5? tengo un problema... Este
> es
> codigo actual incluido el codigo bajo comentario...
>
> delDialog.ShowModal;
> if delDialog.Button1ModalResult = mrOk then
>
> {if application.MessageBox('Estás a punto de borrar todos los datos de
> la'+
> (chr(13))+'Tabla. De continuar, los datos y/o registros'+
> (chr(13))+'se perderán de forma PERMANENTE.'+
> (chr(13))+'¿Deseas continuar?',
> '¡Atención!',mb_IconExclamation + mb_YesNo) = idYes then}
> begin
> for i:= 0 to Tabla.recordCount -1 do
> begin
> delBar.Visible:= true;
> delBar.Position:= i+1;
> Delete;
> popButton.Enabled:= false;
> end;
> refresh;
> end
> else
> if delDialog.Button2ModalResult = mrCancel then
> exit;
>
> El problema es, que no actua como si se usara el Application.messageBox,
> sino que comprueba si el modo de cada boton es 'mrOk' o 'mrCancel' y claro
> como se da ambos casos, pulse uno u otro boton, me borra la bese de datos
> completa cuando no debería pasar si pulsara sobre 'Cancelar'
> Si alguien sabe como arreglar esto... le estaría agradecido.
>
> Saludos y gracias de antemano.
> D.
>
>

Hola...

Creo que no tienes que usar "if delDialog.Button1ModalResult = mrOk then"

sino "if delDialog.ModalResult = mrOk"

El ModalResult del botón siempre va a ser el mismo, el el ModalResult del
Dialog el que cambia según que botón hayas pulsado.
Siempre y cuando sea esto a lo que te refieras, porque a lo mejor te he
entendido mal.

De todas formas, si lo que quieres usar es un diálogo que pregunte al
usuario "Sí o No"... ¿por qué no usas simplemente un MessageDlg? Así no
tendrás que crear un Form ni abrirlo con Showmodal. En una sola línea de
código lo tendrías resuelto.



"DanielM" <guiallarhorn***yahoo.es> escribió en el mensaje
news:BONbd.10921$4W6.10496***news.ono.com...
> Hola,
>
> Alguien ha usado los componentes de suiPack 5? tengo un problema... Este
> es
> codigo actual incluido el codigo bajo comentario...
>
> delDialog.ShowModal;
> if delDialog.Button1ModalResult = mrOk then
>
> {if application.MessageBox('Estás a punto de borrar todos los datos de
> la'+
> (chr(13))+'Tabla. De continuar, los datos y/o registros'+
> (chr(13))+'se perderán de forma PERMANENTE.'+
> (chr(13))+'¿Deseas continuar?',
> '¡Atención!',mb_IconExclamation + mb_YesNo) = idYes then}
> begin
> for i:= 0 to Tabla.recordCount -1 do
> begin
> delBar.Visible:= true;
> delBar.Position:= i+1;
> Delete;
> popButton.Enabled:= false;
> end;
> refresh;
> end
> else
> if delDialog.Button2ModalResult = mrCancel then
> exit;
>
> El problema es, que no actua como si se usara el Application.messageBox,
> sino que comprueba si el modo de cada boton es 'mrOk' o 'mrCancel' y claro
> como se da ambos casos, pulse uno u otro boton, me borra la bese de datos
> completa cuando no debería pasar si pulsara sobre 'Cancelar'
> Si alguien sabe como arreglar esto... le estaría agradecido.
>
> Saludos y gracias de antemano.
> D.
>
>

Hola...

Creo que no tienes que usar "if delDialog.Button1ModalResult = mrOk then"

sino "if delDialog.ModalResult = mrOk"

El ModalResult del botón siempre va a ser el mismo, el el ModalResult del
Dialog el que cambia según que botón hayas pulsado.
Siempre y cuando sea esto a lo que te refieras, porque a lo mejor te he
entendido mal.

De todas formas, si lo que quieres usar es un diálogo que pregunte al
usuario "Sí o No"... ¿por qué no usas simplemente un MessageDlg? Así no
tendrás que crear un Form ni abrirlo con Showmodal. En una sola línea de
código lo tendrías resuelto.



"DanielM" <guiallarhorn***yahoo.es> escribió en el mensaje
news:BONbd.10921$4W6.10496***news.ono.com...
> Hola,
>
> Alguien ha usado los componentes de suiPack 5? tengo un problema... Este
> es
> codigo actual incluido el codigo bajo comentario...
>
> delDialog.ShowModal;
> if delDialog.Button1ModalResult = mrOk then
>
> {if application.MessageBox('Estás a punto de borrar todos los datos de
> la'+
> (chr(13))+'Tabla. De continuar, los datos y/o registros'+
> (chr(13))+'se perderán de forma PERMANENTE.'+
> (chr(13))+'¿Deseas continuar?',
> '¡Atención!',mb_IconExclamation + mb_YesNo) = idYes then}
> begin
> for i:= 0 to Tabla.recordCount -1 do
> begin
> delBar.Visible:= true;
> delBar.Position:= i+1;
> Delete;
> popButton.Enabled:= false;
> end;
> refresh;
> end
> else
> if delDialog.Button2ModalResult = mrCancel then
> exit;
>
> El problema es, que no actua como si se usara el Application.messageBox,
> sino que comprueba si el modo de cada boton es 'mrOk' o 'mrCancel' y claro
> como se da ambos casos, pulse uno u otro boton, me borra la bese de datos
> completa cuando no debería pasar si pulsara sobre 'Cancelar'
> Si alguien sabe como arreglar esto... le estaría agradecido.
>
> Saludos y gracias de antemano.
> D.
>
>

Hola...

Creo que no tienes que usar "if delDialog.Button1ModalResult = mrOk then"

sino "if delDialog.ModalResult = mrOk"

El ModalResult del botón siempre va a ser el mismo, el el ModalResult del
Dialog el que cambia según que botón hayas pulsado.
Siempre y cuando sea esto a lo que te refieras, porque a lo mejor te he
entendido mal.

De todas formas, si lo que quieres usar es un diálogo que pregunte al
usuario "Sí o No"... ¿por qué no usas simplemente un MessageDlg? Así no
tendrás que crear un Form ni abrirlo con Showmodal. En una sola línea de
código lo tendrías resuelto.



"DanielM" <guiallarhorn***yahoo.es> escribió en el mensaje
news:BONbd.10921$4W6.10496***news.ono.com...
> Hola,
>
> Alguien ha usado los componentes de suiPack 5? tengo un problema... Este
> es
> codigo actual incluido el codigo bajo comentario...
>
> delDialog.ShowModal;
> if delDialog.Button1ModalResult = mrOk then
>
> {if application.MessageBox('Estás a punto de borrar todos los datos de
> la'+
> (chr(13))+'Tabla. De continuar, los datos y/o registros'+
> (chr(13))+'se perderán de forma PERMANENTE.'+
> (chr(13))+'¿Deseas continuar?',
> '¡Atención!',mb_IconExclamation + mb_YesNo) = idYes then}
> begin
> for i:= 0 to Tabla.recordCount -1 do
> begin
> delBar.Visible:= true;
> delBar.Position:= i+1;
> Delete;
> popButton.Enabled:= false;
> end;
> refresh;
> end
> else
> if delDialog.Button2ModalResult = mrCancel then
> exit;
>
> El problema es, que no actua como si se usara el Application.messageBox,
> sino que comprueba si el modo de cada boton es 'mrOk' o 'mrCancel' y claro
> como se da ambos casos, pulse uno u otro boton, me borra la bese de datos
> completa cuando no debería pasar si pulsara sobre 'Cancelar'
> Si alguien sabe como arreglar esto... le estaría agradecido.
>
> Saludos y gracias de antemano.
> D.
>
>

Hola...

Creo que no tienes que usar "if delDialog.Button1ModalResult = mrOk then"

sino "if delDialog.ModalResult = mrOk"

El ModalResult del botón siempre va a ser el mismo, el el ModalResult del
Dialog el que cambia según que botón hayas pulsado.
Siempre y cuando sea esto a lo que te refieras, porque a lo mejor te he
entendido mal.

De todas formas, si lo que quieres usar es un diálogo que pregunte al
usuario "Sí o No"... ¿por qué no usas simplemente un MessageDlg? Así no
tendrás que crear un Form ni abrirlo con Showmodal. En una sola línea de
código lo tendrías resuelto.



"DanielM" <guiallarhorn***yahoo.es> escribió en el mensaje
news:BONbd.10921$4W6.10496***news.ono.com...
> Hola,
>
> Alguien ha usado los componentes de suiPack 5? tengo un problema... Este
> es
> codigo actual incluido el codigo bajo comentario...
>
> delDialog.ShowModal;
> if delDialog.Button1ModalResult = mrOk then
>
> {if application.MessageBox('Estás a punto de borrar todos los datos de
> la'+
> (chr(13))+'Tabla. De continuar, los datos y/o registros'+
> (chr(13))+'se perderán de forma PERMANENTE.'+
> (chr(13))+'¿Deseas continuar?',
> '¡Atención!',mb_IconExclamation + mb_YesNo) = idYes then}
> begin
> for i:= 0 to Tabla.recordCount -1 do
> begin
> delBar.Visible:= true;
> delBar.Position:= i+1;
> Delete;
> popButton.Enabled:= false;
> end;
> refresh;
> end
> else
> if delDialog.Button2ModalResult = mrCancel then
> exit;
>
> El problema es, que no actua como si se usara el Application.messageBox,
> sino que comprueba si el modo de cada boton es 'mrOk' o 'mrCancel' y claro
> como se da ambos casos, pulse uno u otro boton, me borra la bese de datos
> completa cuando no debería pasar si pulsara sobre 'Cancelar'
> Si alguien sabe como arreglar esto... le estaría agradecido.
>
> Saludos y gracias de antemano.
> D.
>
>

Hola...

Creo que no tienes que usar "if delDialog.Button1ModalResult = mrOk then"

sino "if delDialog.ModalResult = mrOk"

El ModalResult del botón siempre va a ser el mismo, el el ModalResult del
Dialog el que cambia según que botón hayas pulsado.
Siempre y cuando sea esto a lo que te refieras, porque a lo mejor te he
entendido mal.

De todas formas, si lo que quieres usar es un diálogo que pregunte al
usuario "Sí o No"... ¿por qué no usas simplemente un MessageDlg? Así no
tendrás que crear un Form ni abrirlo con Showmodal. En una sola línea de
código lo tendrías resuelto.



"DanielM" <guiallarhorn***yahoo.es> escribió en el mensaje
news:BONbd.10921$4W6.10496***news.ono.com...
> Hola,
>
> Alguien ha usado los componentes de suiPack 5? tengo un problema... Este
> es
> codigo actual incluido el codigo bajo comentario...
>
> delDialog.ShowModal;
> if delDialog.Button1ModalResult = mrOk then
>
> {if application.MessageBox('Estás a punto de borrar todos los datos de
> la'+
> (chr(13))+'Tabla. De continuar, los datos y/o registros'+
> (chr(13))+'se perderán de forma PERMANENTE.'+
> (chr(13))+'¿Deseas continuar?',
> '¡Atención!',mb_IconExclamation + mb_YesNo) = idYes then}
> begin
> for i:= 0 to Tabla.recordCount -1 do
> begin
> delBar.Visible:= true;
> delBar.Position:= i+1;
> Delete;
> popButton.Enabled:= false;
> end;
> refresh;
> end
> else
> if delDialog.Button2ModalResult = mrCancel then
> exit;
>
> El problema es, que no actua como si se usara el Application.messageBox,
> sino que comprueba si el modo de cada boton es 'mrOk' o 'mrCancel' y claro
> como se da ambos casos, pulse uno u otro boton, me borra la bese de datos
> completa cuando no debería pasar si pulsara sobre 'Cancelar'
> Si alguien sabe como arreglar esto... le estaría agradecido.
>
> Saludos y gracias de antemano.
> D.
>
>

Hola...

Creo que no tienes que usar "if delDialog.Button1ModalResult = mrOk then"

sino "if delDialog.ModalResult = mrOk"

El ModalResult del botón siempre va a ser el mismo, el el ModalResult del
Dialog el que cambia según que botón hayas pulsado.
Siempre y cuando sea esto a lo que te refieras, porque a lo mejor te he
entendido mal.

De todas formas, si lo que quieres usar es un diálogo que pregunte al
usuario "Sí o No"... ¿por qué no usas simplemente un MessageDlg? Así no
tendrás que crear un Form ni abrirlo con Showmodal. En una sola línea de
código lo tendrías resuelto.



"DanielM" <guiallarhorn***yahoo.es> escribió en el mensaje
news:BONbd.10921$4W6.10496***news.ono.com...
> Hola,
>
> Alguien ha usado los componentes de suiPack 5? tengo un problema... Este
> es
> codigo actual incluido el codigo bajo comentario...
>
> delDialog.ShowModal;
> if delDialog.Button1ModalResult = mrOk then
>
> {if application.MessageBox('Estás a punto de borrar todos los datos de
> la'+
> (chr(13))+'Tabla. De continuar, los datos y/o registros'+
> (chr(13))+'se perderán de forma PERMANENTE.'+
> (chr(13))+'¿Deseas continuar?',
> '¡Atención!',mb_IconExclamation + mb_YesNo) = idYes then}
> begin
> for i:= 0 to Tabla.recordCount -1 do
> begin
> delBar.Visible:= true;
> delBar.Position:= i+1;
> Delete;
> popButton.Enabled:= false;
> end;
> refresh;
> end
> else
> if delDialog.Button2ModalResult = mrCancel then
> exit;
>
> El problema es, que no actua como si se usara el Application.messageBox,
> sino que comprueba si el modo de cada boton es 'mrOk' o 'mrCancel' y claro
> como se da ambos casos, pulse uno u otro boton, me borra la bese de datos
> completa cuando no debería pasar si pulsara sobre 'Cancelar'
> Si alguien sabe como arreglar esto... le estaría agradecido.
>
> Saludos y gracias de antemano.
> D.
>
>

Hola santy,

Sí, con MessageBox podría hacerlo de echo funciona perfectamente, lo que
pasa es que con eso que intento no se necesita de ningun formulario, es como
messagedlg, pero con un skin propio. Y ya que toda la aplicación está
realizada con suiPack, prefiero conseguir esto que intento. Y por otra
parte, lo que me dices de solo escribir "if delDialog.ModalResult = mrOk..."
no funciona, vamos que no es conocido... en fin, seguire probando...
Saludos y gracias, D.


"Santy Concepción" <SANTYCG*NO_SPAM****terra.es> escribió en el mensaje
news:yAPbd.3045830$A6.9800393***telenews.teleline.es ...
> Hola...
>
> Creo que no tienes que usar "if delDialog.Button1ModalResult = mrOk then"
>
> sino "if delDialog.ModalResult = mrOk"
>
> El ModalResult del botón siempre va a ser el mismo, el el ModalResult del
> Dialog el que cambia según que botón hayas pulsado.
> Siempre y cuando sea esto a lo que te refieras, porque a lo mejor te he
> entendido mal.
>
> De todas formas, si lo que quieres usar es un diálogo que pregunte al
> usuario "Sí o No"... ¿por qué no usas simplemente un MessageDlg? Así no
> tendrás que crear un Form ni abrirlo con Showmodal. En una sola línea de
> código lo tendrías resuelto.
>
>
>
> "DanielM" <guiallarhorn***yahoo.es> escribió en el mensaje
> news:BONbd.10921$4W6.10496***news.ono.com...
> > Hola,
> >
> > Alguien ha usado los componentes de suiPack 5? tengo un problema... Este
> > es
> > codigo actual incluido el codigo bajo comentario...
> >
> > delDialog.ShowModal;
> > if delDialog.Button1ModalResult = mrOk then
> >
> > {if application.MessageBox('Estás a punto de borrar todos los datos
de
> > la'+
> > (chr(13))+'Tabla. De continuar, los datos y/o registros'+
> > (chr(13))+'se perderán de forma PERMANENTE.'+
> > (chr(13))+'¿Deseas continuar?',
> > '¡Atención!',mb_IconExclamation + mb_YesNo) = idYes then}
> > begin
> > for i:= 0 to Tabla.recordCount -1 do
> > begin
> > delBar.Visible:= true;
> > delBar.Position:= i+1;
> > Delete;
> > popButton.Enabled:= false;
> > end;
> > refresh;
> > end
> > else
> > if delDialog.Button2ModalResult = mrCancel then
> > exit;
> >
> > El problema es, que no actua como si se usara el Application.messageBox,
> > sino que comprueba si el modo de cada boton es 'mrOk' o 'mrCancel' y
claro
> > como se da ambos casos, pulse uno u otro boton, me borra la bese de
datos
> > completa cuando no debería pasar si pulsara sobre 'Cancelar'
> > Si alguien sabe como arreglar esto... le estaría agradecido.
> >
> > Saludos y gracias de antemano.
> > D.
> >
> >
>
>

Hola santy,

Sí, con MessageBox podría hacerlo de echo funciona perfectamente, lo que
pasa es que con eso que intento no se necesita de ningun formulario, es como
messagedlg, pero con un skin propio. Y ya que toda la aplicación está
realizada con suiPack, prefiero conseguir esto que intento. Y por otra
parte, lo que me dices de solo escribir "if delDialog.ModalResult = mrOk..."
no funciona, vamos que no es conocido... en fin, seguire probando...
Saludos y gracias, D.


"Santy Concepción" <SANTYCG*NO_SPAM****terra.es> escribió en el mensaje
news:yAPbd.3045830$A6.9800393***telenews.teleline.es ...
> Hola...
>
> Creo que no tienes que usar "if delDialog.Button1ModalResult = mrOk then"
>
> sino "if delDialog.ModalResult = mrOk"
>
> El ModalResult del botón siempre va a ser el mismo, el el ModalResult del
> Dialog el que cambia según que botón hayas pulsado.
> Siempre y cuando sea esto a lo que te refieras, porque a lo mejor te he
> entendido mal.
>
> De todas formas, si lo que quieres usar es un diálogo que pregunte al
> usuario "Sí o No"... ¿por qué no usas simplemente un MessageDlg? Así no
> tendrás que crear un Form ni abrirlo con Showmodal. En una sola línea de
> código lo tendrías resuelto.
>
>
>
> "DanielM" <guiallarhorn***yahoo.es> escribió en el mensaje
> news:BONbd.10921$4W6.10496***news.ono.com...
> > Hola,
> >
> > Alguien ha usado los componentes de suiPack 5? tengo un problema... Este
> > es
> > codigo actual incluido el codigo bajo comentario...
> >
> > delDialog.ShowModal;
> > if delDialog.Button1ModalResult = mrOk then
> >
> > {if application.MessageBox('Estás a punto de borrar todos los datos
de
> > la'+
> > (chr(13))+'Tabla. De continuar, los datos y/o registros'+
> > (chr(13))+'se perderán de forma PERMANENTE.'+
> > (chr(13))+'¿Deseas continuar?',
> > '¡Atención!',mb_IconExclamation + mb_YesNo) = idYes then}
> > begin
> > for i:= 0 to Tabla.recordCount -1 do
> > begin
> > delBar.Visible:= true;
> > delBar.Position:= i+1;
> > Delete;
> > popButton.Enabled:= false;
> > end;
> > refresh;
> > end
> > else
> > if delDialog.Button2ModalResult = mrCancel then
> > exit;
> >
> > El problema es, que no actua como si se usara el Application.messageBox,
> > sino que comprueba si el modo de cada boton es 'mrOk' o 'mrCancel' y
claro
> > como se da ambos casos, pulse uno u otro boton, me borra la bese de
datos
> > completa cuando no debería pasar si pulsara sobre 'Cancelar'
> > Si alguien sabe como arreglar esto... le estaría agradecido.
> >
> > Saludos y gracias de antemano.
> > D.
> >
> >
>
>