Form Position

brug dette fra borrisholt, kan det du vil:

http://www.borrisholt.com/ShellAPI/DelphiSource/TrayIcon.zip

/ZIRON

Et komplet eksempel: http://home1.inet.tele.dk/j-cgeert/tray.zip

Snowball

Jeg har vidst formuleret det lidt forkert :-)

Det er selve formen der skal ligge nede i højre hjørne af skærmen, men uden at den dækker over tray og taskbar, for trayicon har jeg.

[ NyFF ]

2 sek så er den der...

/ZIRON

prøv med dette:

procedure TForm1.FormCreate(Sender: TObject);
var
    SystrayRect : TRect; // We need this for calc\'ing the size of the System Tray Window
    TaskbarHwnd : HWND; // Skal bruges til at finde handle med.
    formrigth, formtop : Integer;
begin
// Her finder vi Taskbaren.
TaskbarHwnd := FindWindow(\'Shell_TrayWnd\',nil);

// Nu skal Størrelsen af Trayen findes.
GetWindowRect(TaskbarHwnd,SystrayRect);

Form1.Left := Screen.Width - Form1.Width;
form1.caption := inttostr(SystrayRect.bottom);
form1.top := screen.Height - (SystrayRect.bottom - SystrayRect.top) - Form1.Height;
end;

/ZIRON

Det virker, så mange tak for det ZIRON :-)






[ NyFF ]

jamen det var da så lidt...

/ZIRON