3 små spørgsmål

1.
Det kunne lyder som om du bruger properitære Borland ting, jeg mener du skal medsende diver .dll filer for at folk kan afvikle dine programmer.
Dette undgår man f.eks. ved brug af Visual Studio da dens .dll filer allerede er i systemmet per default.

1>>
kan man ikke linke statisk med de filer ? - så vidt jeg husker havde man da muligheden i delphi til at sige "med eller uden dll".

3>>
lav programmet som et toolwindow

soreno:
Så fylder de af h. til hvilket er et af de store problemmer ved specielt delphi programmer.

2.
Når brugeren tryker musetast ned, tjekker du, i din kode, om punktet ligger inden for det område du vil have man skal kunne flytte vinduet med.
Hvis ja, sætter du en member-variabel til true, kald den fx m_bMoveWindow.
Ved mouse-move-events tjekker du om variablen er true og i så fald flytter du selv vinduet (brug fx MoveWindow).
Endelig, når brugeren slipper venstre musetast, sætter du variablen til false.

1)
  Du går ind i Project->Options. Vælger fanen pakages. Nede i bunden af den er der sat er flue ben i "Build with runtime pakages" det fjerner du, og sætter et "hak" i default. Så er det sådan for eftertiden.


2)
  Søg efter et eksempel  på  WM_NCHITTEST.

3)
  ShowWindow(Application->Handle, SW_SHOW);

Jens B

1) Og du skal derudover under 'Project->Options' fanen 'Linker' un-checke 'Use dynamic RTL'

2) Du bliver nødt til at kode en onMouseDown og OnMouseMove event handler, som simpelthen flytter din form sammen med musen - enten direkte på formen, eller på en lille TImage-component som man kan pege på. (Eksemple følger.)

3) Se jens' svar ovenfor.

2)
  Gå på Torry.net og download TJBForm den kan det du vil og meget mere. Så har du mulighed for at flytte din for vha ALLE componenterne på den. (Den er også skrevet af en flink mand)
http://www.torry.net/vcl/forms/other/tjbform.zip

Jens B

Du skal lave følgende private variable i din Form1 klasse:

private:    // User declarations
        bool    mouseIsDown;
        int    mouseX, mouseY;

Dernæst laver du følgende event-handlere:

void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
  mouseIsDown = true;
  mouseX      = X;
  mouseY      = Y;
}
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
  if (mouseIsDown)
  {
    int deltaX = Form1->Left + (X - mouseX);
    int deltaY = Form1->Top  + (Y - mouseY);
    if (deltaY >= 1 && deltaY <= (Screen->Height - Form1->Height))
      Form1->Top = deltaY;
    if (deltaX >= 1 && deltaX <= (Screen->Width - Form1->Width))
      Form1->Left = deltaX;
  };
}
void __fastcall TForm1::FormMouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
  mouseIsDown = false;
}

Som du tilnytter de respektive events til formen via Object-inspectoren. Nu kan du ved at trykke og holde musen nede, flytte formen rundt på skærmen.

3) Gem fra ikon-linien.
Du skal anvende den SysTray component der ligger under 'Examples\Controls\Tray'. Du skal bruge 'Component->Install Component' og så bruge 'Browse' knappen til 'Unit file name' til at navigere ned til 'traycomp.cpp'. Efter endt compilering af dclusr??.bpk vil du under 'System' tabben på components paletten have en 'TayComp'

Hvis du vil have en tray menu, skal du droppe en PopupMenu fra 'Standard' fanen først. Dernæst dropper du en TrayComp på formen, og retter følgende properties:

PopupMenu = PopupMenu1
PopupMenuOn = arRightClick
RestoreOn = arLeftDblClick

Derudover skal du lave en event til OnRestore, f.eks.:

void __fastcall TForm1::TrayComp1Restore(TObject *Sender)
{
  popShowClick(Sender); // Se nedenfor
}

Samt f.eks. følgende events til din popup-menu (mit eksemple har tre punkter popHide, popShow og popExit):

void __fastcall TForm1::popHideClick(TObject *Sender)
{
  popHide->Enabled = false;
  popShow->Enabled = true;
  Hide();
}
void __fastcall TForm1::popShowClick(TObject *Sender)
{
  popShow->Enabled = false;
  popHide->Enabled = true;
  Show();
}
void __fastcall TForm1::popExitClick(TObject *Sender)
{
  Close();
}

Hvor popHide's Enabled property som default er sat til false.

Du kan så ved at droppe en 'Timer' component fra 'System' fanen, lave en timer event med et Interval på f.eks. 10 ms, med følgende event handler:

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  Timer1->Enabled = false;
  popHideClick(Sender);       
}

Sådan at dit tool fra starten af er gemt.

Så tror jeg sørme det er lykkedes, juhuu :)

Takker alle sammen :)