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:
Cita:
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:
Cita:
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