Title: Message
In our system we see the application form every now and then, but most of the time it stays hidden. I haven't managed to track down when it appears and not.
 
The piece of code I gave you could be improved by removing the app form borders and making it 1 pixel by 1 pixel, but I haven't tried this.
 
If you do have a play one thing you need to know it that at least 1 pixel of the application form must be within the bounds of the screen.
 
Stacey
-----Original Message-----
From: Vaughan, Benjamin Carl [mailto:[EMAIL PROTECTED]
Sent: Monday, 6 October 2003 15:47
To: Multiple recipients of list delphi
Subject: RE: RE: [DUG]: Delphi Apps in a Seamless Citrix Environment

Thanks Stacey,

 

It works fine on Citrix like this, except it seems that the application form reappears after restoring from a minimize.

Still, a small price to pay.

 

Cheers

Ben

 

-----Original Message-----
From: Stacey Verner [mailto:[EMAIL PROTECTED]
Sent:
Monday, 6 October 2003 2:20 p.m.
To: Multiple recipients of list delphi
Subject: RE: [DUG]:
Delphi Apps in a Seamless Citrix Environment

 

There is a problem with Delphi and Citrix Metaframe, where delphi
applications don't show on the task bar.

I have found that you can make a change to
forms.pas to fix this.

In TApplication.CreateHandle find the CreateWindowEx call and replace
it with the following.

// Change -> 19/07/2001
// Updated to create the application form as visible (by removing WS_POPUP)
// but it is created transparent with 1 transparent pixel in the top
// left corner of the screen;
FHandle := CreateWindowEx(WS_EX_APPWINDOW or WS_EX_TRANSPARENT
    , WindowClass.lpszClassName, PChar(FTitle)
    , WS_CAPTION or WS_CLIPSIBLINGS or WS_SYSMENU or WS_MINIMIZEBOX
    //  or WS_POPUP
    //, GetSystemMetrics(SM_CXSCREEN) div 2
    //, GetSystemMetrics(SM_CYSCREEN) div 2, 0, 0
    , -199, -19, 200, 20
    , 0, 0
    , HInstance
    , nil);
// <- Change

-----Original Message-----
From: Vaughan, Benjamin Carl [mailto:[EMAIL PROTECTED]
Sent:
Monday, 6 October 2003 14:01
To: Multiple recipients of list delphi
Subject: [DUG]:
Delphi Apps in a Seamless Citrix Environment

Hi All,

 

Currently our applications are published through a Citrix environment in which most of our users are set up to use the “Seamless Window” option.

 

The problem that I have is that the application does not appear in the users taskbar unless the application is Minimised. I have experimented with other applications and it does seem to only be applications that are created in Delphi that exhibit this problem. (For example publishing Notepad or Office behaves normally showing up in the taskbar at all times).

 

Anyone have any ideas on this?

 

Regards

Ben Vaughan

Reply via email to