Problema con CoolTrayIcon

[Moises22]

Hola a todos.

Tengo un Form que contiene el complemente CoolTrayIcon y por si sirve también la libreria uiapp.pas que sirve para solo poder mantener una unica ejecucion de esta aplicacion.

Pues bien, cuando pulso un boton de este Form quiero que se habra otro Form donde e implementado un pequeño navegador.

El problema es que no solo no sale el Form2 (Form del navegador), sino que se cierra la aplicacion sola.Lo he intentado con Form2.ShowModal y con Form2.Show, ninguna de las dos funciona.

¿Alguien me podria mostrar una solucion para que cuando pulse este boton el se muestre el Form2, y si puediese ser que fuera de la forma ShowModal????

[dec]

Hola,

Si el formulario (Form2) está creado y disponible deberías poder mostrarlo tal como lo tratas de hacer. Lo que creo que ayudaría sería que indicases el error que se produce. Aparte de esto, ¿probaste a ejecutar el programa "línea por línea" (tecla "F7") y poner un punto de ruptura al momento de ir a mostrar el formulario, por ejemplo, a ver qué puedes ver de raro por ahí? En todo caso no dejes de indicar el error que puedes observar.

[Moises22]

He probado a hacer la traza con F7 y el unico problema que daba es que le falta la Unit1, que era un Form que anteriormente borre.

El problema es que cuando le doy a dicho boton lo unico que hace ese boton es Form2.ShowModal. Pero la consecuencia es que se cierra el programa sin errores ni problemas, se cierra de manera normal.

Por cierto la Unit1 la acabo de kitar del proyexto y ya no me da ese error, osea que la traza es limpia

[dec]

Hola,

Se me ocurre que el problema pudiera estar en el "Form2", entonces. ¿Codificaste algo en su evento "OnShow" que pudiera ocasionarlo?

[JXJ]

Moises22.

yo he usado los componenetes cooltrayicon, de la forma que
tu señalas, pero no he tenido problema como el tuyo.

muestro formas ya hechas. con show. y showmodal

¿no será esa unidad, para mantener solo una instancia.?
tambien puedes poner un zip con tu codigo tal cual
te da problemas. lo descargo y a ver que si me da el mismo
error.

o si no neceistas usar ese archivo busca en trucomania
por un truco o en torry.net por otra forma de dejar una sola
instancia.

[dec]

Hola,

Bueno. Al leer el mensaje yo también pensé que los componentes mencionados no tenían nada que ver. No pensé en la unidad "UIApp" porque hago uso de ella en algún que otro proyecto y no he tenido ningún tipo de problema. Afortunadamente, para comprobarlo bastaría con quitar temporalmente la unidad de donde esté: no es preciso nada más. Por otro lado también he usado los componentes mencionados en alguna ocasión e igualmente no encontré problema alguno, a lo menos del tipo que se comenta en este Hilo. Creo que el problema reside en otro lugar: como he dicho arriba, tal vez esté en el formulario que trata de mostrarse. A ver qué puede decir al respecto Moises22.

[Moises22]

El Codigo es el siguiente:

Código Delphi [-]
 
unit administracionvvs;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,ShellApi, ExtCtrls, Buttons,CoolTrayIcon, TextTrayIcon,
Menus,uiapp, BarMenus,Unit3 ;
type
TForm1 = class(TForm)
Image3: TImage;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
GroupBox1: TGroupBox;
Image2: TImage;
Image4: TImage;
fondo: TImage;
CoolTrayIcon1: TCoolTrayIcon;
PopupMenu1: TPopupMenu;
Salir2: TMenuItem;
popupvvs: TBcBarPopupMenu;
AbrirMenu1: TMenuItem;
sdfsdfsd1: TMenuItem;
sdfsdf1: TMenuItem;
sdfsd1: TMenuItem;
Salir3: TMenuItem;
BitBtn6: TBitBtn;
procedure Image3Click(Sender: TObject);
procedure Label3Click(Sender: TObject);
procedure Image2Click(Sender: TObject);
procedure Label4Click(Sender: TObject);
procedure Image4Click(Sender: TObject);
procedure Label2Click(Sender: TObject);
procedure Abrir1Click(Sender: TObject);
procedure Salir2Click(Sender: TObject);
procedure CoolTrayIcon1DblClick(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Image3Click(Sender: TObject);
begin
ShellExecute(Self.Handle, PCHar('open'), PChar('explorer.exe'),
PChar('http://www.viviendasdesevilla.com'), nil, SW_SHOWNORMAL);
end;
procedure TForm1.Label3Click(Sender: TObject);
begin
ShellExecute(Self.Handle, PCHar('open'), PChar('explorer.exe'),
PChar('http://www.viviendasdesevilla.com'), nil, SW_SHOWNORMAL);
end;
procedure TForm1.Image2Click(Sender: TObject);
begin
ShellExecute(Self.Handle, PCHar('open'), PChar('explorer.exe'),
PChar('http://www.viviendasdesevilla.com/inmo'), nil, SW_SHOWNORMAL);
end;
procedure TForm1.Label4Click(Sender: TObject);
begin
ShellExecute(Self.Handle, PCHar('open'), PChar('explorer.exe'),
PChar('http://www.viviendasdesevilla.com/inmo'), nil, SW_SHOWNORMAL);
end;
procedure TForm1.Image4Click(Sender: TObject);
begin
ShellExecute(Self.Handle, PCHar('open'), PChar('explorer.exe'),
PChar('http://www.viviendasdesevilla.com/contacta.htm'), nil, SW_SHOWNORMAL);
end;
procedure TForm1.Label2Click(Sender: TObject);
begin
ShellExecute(Self.Handle, PCHar('open'), PChar('explorer.exe'),
PChar('http://www.viviendasdesevilla.com/contacta.htm'), nil, SW_SHOWNORMAL);
end;
 
 
procedure TForm1.Abrir1Click(Sender: TObject);
begin
CoolTrayIcon1.ShowMainForm;
end;
procedure TForm1.Salir2Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.CoolTrayIcon1DblClick(Sender: TObject);
begin
CoolTrayIcon1.ShowMainForm;
end;
procedure TForm1.BitBtn6Click(Sender: TObject);
begin
Form3.Show;
end;
end.

Seguro que es alguna tonteria que se me ha pasado.Por cierto, en cuanto a la ultima respuesta, e quitado la unidad uiapp y hace lo mismo.

Con respecto a la Unit3, no tiene nada, es un Form vacio que se llama Form3.

[Moises22]

¿¿¿ Alguien puede ver cual es el problema que hay ???

[Moises22]

No se porque me ha pasado pero al quitar el GroupBox que contenia el Boton y poner otro boton nuevo con esa funcion me funciona, ¿¿ Alguien me podria decir por qué ??

Gracias por todo.