problema al llamar a un procedure desde otro

[sidneyb]

Buenas tardes foro, un cordial saludo a todos.

De antemano gracias por su atencion. Acudo a uds por el siguiente detalle;

estoy tratando de llamar al siguiente procedure:

Procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
if (Msg.CmdType = SC_MINIMIZE) then begin
with IconData do
begin
cbSize := sizeof(IconData);
Wnd := Handle;
uID := 100;
uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
uCallbackMessage := WM_USER + 1;
hIcon := Application.Icon.Handle;
StrPCopy(szTip, Application.Title);
end;
Shell_NotifyIcon(NIM_ADD, @IconData);
Hide;
end else DefaultHandler(Msg);
end;

dentro del siguiente procedure:

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

en el primero estoy ocultando de la barra de tareas para colocar, al minimizar, el form a un lado del reloj, pero el solo lo hace al minimizar, lo que quiero dentro del segundo procedure es ocultarlo de la misma manera pero al crear el formulario, podrian ayudarme a llamar el procedimiento? les agradezco de antemano, feliz tarde.

En todo caso, lo que realmente deseo es que la aplicacion se inicie oculto minimizado a un lado del reloj. muchas gracias

[[BlueSteel]]

Hola.

no estoy seguro, pero te puede servir este truco

Salu2

[dec]

Hola,

¿No podrías usar, directamente, "Application.Minimize()" dentro de "FormCreate"?

[[cHackAll]]

Lo que Dec comenta funciona exceptuando que no oculta el boton de la barra de tareas, para solucionar ésto y darle un efecto adicional (el de minimizado) hago un par de modificaciones a tu codigo (al que supongo que es porque no lo copiaste completo);

Código Delphi [-]
//...
 
uses ShellAPI;
 
var
 IconData: TNotifyIconData = (cbSize: SizeOf(IconData); uID: 100;
                              uFlags: NIF_MESSAGE + NIF_ICON + NIF_TIP;
                              uCallbackMessage: WM_USER + 1);
 
procedure TForm1.FormMinimize(Sender: TObject);
begin
 with IconData do
  begin
   Wnd := Handle;
   hIcon := Application.Icon.Handle;
   StrPCopy(szTip, Application.Title);
   Shell_NotifyIcon(NIM_ADD, @IconData);
   ShowWindow(Application.Handle, SW_HIDE);
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 Application.OnMinimize := FormMinimize;
 Application.Minimize;
end;

Saludos

[sidneyb]

Buenas tardes colegas, como les va? intente de tres maneras distintas lo cual me funcion, pero me persiste un pequeño detalle prueba tras prueba y cambio tras cambio del codigo, el detalle es el siguiente, le coloque un popupmenu de manera que al darle un click al icono minimizado aparezca las opciones de configurar y cerrar... el detalle esta que al hacerle el primer y solo el primer click el formulario completo se muestra en pantalla, cosa que quiero prevenir, me imagino que es por que estoy ejecutando un application.minimize en el procedimiento onCreate. Es lo unico que me falta, creen que podrian ayudarme? un saludo, gracias a todos

[[cHackAll]]

Quizá sería mas facil (para nosotros), si pegas la parte en que recives el mensaje "WM_USER + 1", para ver como estas manejando los mensajes provenientes del SysTray...

PD; tambien seria de utilidad saber si nunca piensas mostrar alguna ventana en tu aplicacion.