mostrar un mensaje al abrir un form

[shinopeat87]

buenas amigos como estan queria compartirles mi problema: lo que necesito hacer es mostrar un mensaje cuando un form se abra, es decir tengo un form llamado productos donde tengo un dbgrid enlazado a la tabla productos de mi base de datos, necesito mostrar un mensaje de aviso para cuando el campo stock_productos sea igual a '0', osea que me avise que no hay stock de exis productos, y esto lo quiero hacer inmediatamente se abra el form productos, espero hayan entendido mi problema. saludos amigos y gracias.

[Javierus]

Das poca información, por lo que solo te puedo dar una respuesta genérica que quizás no te valga

Puedes ponerlo en el OnShow del form
Además, para evitar problemas, yo haría lo siguiente:
1- añadir al form variable FAvisado: Boolean
2- en el OnCreate, añadir FAvisado:=false
3- en el OnShow, añadir:
If not FAvisado then begin
FAvisado:=True;
//Ahora miras si tienes que avisar, y lo haces si es necesario
End;

[Neftali [Germán.Estévez]]

Empezado por shinopeat87

buenas amigos como estan queria compartirles mi problema: lo que necesito hacer es mostrar un mensaje cuando un form se abra,
...
necesito mostrar un mensaje de aviso para cuando el campo stock_productos sea igual a '0', osea que me avise que no hay stock de exis productos,

Bueno, aquí estás mezclando 2 cosas. Uno el "cuando" y otro el "donde".
1) CUANDO: Cuando stock sea...
2) DONDE: Al abrir el formulario...

Esa condición afecta a la regla de negocio, piensa si quieres ponerla en la parte visual o en la parte de negocio (dataset/query/tabla...)

[Diego E.]

Yo haria algo parecido a los siguiente:

1.- Crear el siguiente query

'SELECT stock_productos FROM Productos'

2.- En el dataset que estés usando hacer un

Código Delphi [-]
 
if Dataset.RecordCount > 0 then
begin
//Poner lo que quieres hacer si si hay stock
end
else ShowMessage('No hay stock del producto');

3.- Colocar todo lo anterior en el evento OnShow de la Form