Results 1 to 2 of 2

Thread: form wordt niet vrijgegeven

  1. #1
    John Kuiper
    Join Date
    Apr 2007
    Location
    Almere
    Posts
    8,747

    form wordt niet vrijgegeven

    Ik snap iets niet (komt vaker voor ) )
    Ik koppel een form aan een tabsheet. Deze tabsheet wordt @runtime aangemaakt. Het form heeft als parent de tabsheet. Nu kan ik via een mousebutton de tabsheet weer verwijderen van de pagecontrol.
    delphi Code:
    1. procedure TODPageControl.MouseDown(Button: TMouseButton; Shift: TShiftState; X,
    2.   Y: Integer);
    3. var r:TRect;
    4.     i, h2:integer;
    5. begin
    6.   if Button=mbLeft then begin
    7.     i:=TabIndexAtClientPos(Point(X,Y));
    8.     r:=TabRect(i);
    9.     h2:=((r.Bottom-r.Top) div 3) shl 1;
    10.     if (X>r.Right-h2) and (Y<r.Top+h2) then
    11.       self.RemovePage(i);
    12.   end;
    13. end;
    Echter zie ik niet dat mijn form ook wordt vrijgegeven. In een Onclose procedure heb ik een showmessage geplaatst om te kijken of deze wel wordt aangeroepen. Blijkbaar niet. Ik zou verwachten dat een release van de tabsheet ook de form wordt vrijgegeven en dat dan altijd een Onclose procedure wordt uitgevoerd.

    Is mijn veronderstelling wel juist. zo niet, hoe trigger ik anders die OnClose?
    Attached Files Attached Files

  2. #2
    Asl de TabSheet de owner is van de Form, dan wordt de Form gedestroyed (niet geclosed) gok ik zo.
    Kun je zo checken door een OnDestroy in je Form te zetten.

    Bart

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •