Hola
He preparado esta calculadora para convertir un codigo cuenta cliente (CCC) a IBAN, pero...
Pretendo que la ventana esté siempre visible, al cambiar esta visibilidad la ventana se hace más grande. ????
Los mensajes salen siempre por debajo.
Adjunto fuente, por si podeis aportar ideas.

Saludos

Hola.

Solo se me ocurre esto:

/*
* Evento OnChange.
*/
METHOD RadioButton1OnChange( oSender ) CLASS TForm1

LOCAL nWidth, nHeight

nWidth := ::Width
nHeight := ::Height

If ::RadioButton1:Checked = .T.
::FormStyle := fsStayOnTop
else
::FormStyle := fsNormal
Endif

::Width := nWidth
::Height := nHeight

return

Parece que al cambiar el estilo de la ventana, se repinta y lo hace mal...????

_________________
Un saludo.
Jesús P. Melgar Velasco

Con respecto a los mensajes a mi me parece que funciona perfectamente, solo cuando está activado el radioButton los mensajes se muestran por detrás, pero eso es lógico porque el formulario tiene el estilo de 'siempre al frente'...

_________________
Un saludo.
Jesús P. Melgar Velasco

Hola,
la ventana de mensajes te saldrá por debajo siempre que el formulario lo definas con el estilo fsStayOnTop. Las propiedades Width y Height de un formulario contienen el tamaño real de la ventana, contienen la altura del título y de los bordes que son dependientes del tema utilizado, por eso cada vez que cambias el estilo se va haciendo más grande, si lo que quieres es conservar el tamaño del interior, del área cliente usa las propiedades ClientHeight y ClientWidth, de esta manera:

_________________
Un saludo,
Bruno Cantero
www.c3compiler.com

O incluso una versión más compacta:

_________________
Un saludo,
Bruno Cantero
www.c3compiler.com

Gracias
He cambiado la funcion MessageDlg por Aviso...

Function Aviso(para1,para2,para3)
local nClientWidth, nClientHeight, nClientForm

nClientWidth := Form1:ClientWidth
nClientHeight := Form1:ClientHeight
nClientForm := Form1:FormStyle
Form1:FormStyle := fsNormal

MessageDlg(para1, para2, para3)

Form1:FormStyle := nClientForm
Form1:ClientWidth := nClientWidth
Form1:ClientHeight := nClientHeight

Return Nil

Cambio el Stylo del form a normal, presento el mensaje y vuelvo a dejar el stylo como estaba.
ya hace lo que pretendia.
Saludos

Buenas tardes

Hace ya tiempo que programa esta calculadora de CCC a IBAN de las cuentas de bancos y aparentemente va bien, pero de un par de meses a esta parte los antivirus detectan virus, empezó el Karpesky le siguió el Panda, y acojona, lo volvió a compilar con la V2 y siguen detectando virus, con la V3 el antivirus Tencent (que ni lo conozco) dice que está infectado con Trojan.Win32.YY.Gen.2
Mosqueado subo el StringGrid1.exe de los proyectos de ejemplo de la V3 y "detecta" el mismo virus, lo he probado desde dos ordenadores y el resultado es el mismo.
¿que pasa, son falsos positivos?
Lo he revisado en la web https://www.virustotal.com/es que tampoco es para desinstalar e instalar otro distinto.
Echarle un vistazo

Saludos

Perdon, el fuente por si alguno quiere probar