Help! I need input! :)

-
Help! I need input! :)

How can I make a TForm "interface-able"? :)
It'll only released when the Application terminates.

Test/Sample project:
http://data.hu/get/8452169/Test003.zip
http://data.hu/get/8452169/Test003.zip

Comments

  1. Bob DevineJanuary 27, 2015 at 12:08 PM

    See here: http://wiert.me/2009/08/10/delphi-using-fastmm4-part-2-tdatamodule-descendants-exposing-interfaces-or-the-introduction-of-a-tinterfaceddatamodule/

    ReplyDelete
  2. Nándor KissJanuary 27, 2015 at 12:15 PM

    Bob Devine 
    Thx, I'll check right now.

    ReplyDelete
  3. Jeroen Wiert PluimersJanuary 27, 2015 at 12:29 PM

    Bob Devine thanks!

    ReplyDelete
  4. Nándor KissJanuary 27, 2015 at 12:41 PM

    Checked, modified, Thank You Bob Devine ! :)

    What do You think? :)

    Modified source:
    http://data.hu/get/8452251/Test003Final.zip

    ReplyDelete
  5. Nándor KissJanuary 27, 2015 at 12:48 PM

    I modified the TForm2._Release:


    function TForm2._Release: Integer;
    begin
     Result := InterlockedDecrement(FRefCount);
     if (Result = 0) then
     begin
      if FOwnerIsComponent then
       Owner.RemoveComponent(Self);
      Destroy;
     end;
    end;


    ...so if FOwnerIsComponent is True:


     FOwnerIsComponent := Assigned(Owner) and (Owner is TComponent);


    ...then I'll call

     Owner.RemoveComponent(Self);

    too.

    ReplyDelete
  6. Nándor KissJanuary 27, 2015 at 12:49 PM


      Google+ need some code formatting routines :)

    ReplyDelete
  7. Lars FosdalJanuary 27, 2015 at 1:11 PM

    I've only been asking since launch.

    ReplyDelete
  8. Bob DevineJanuary 27, 2015 at 2:54 PM

    Nándor Kiss The zip file won't extract.

    ReplyDelete
  9. Bob DevineJanuary 27, 2015 at 2:55 PM

    Jeroen Wiert Pluimers No problem - was a very nice post.

    ReplyDelete
  10. Nándor KissJanuary 27, 2015 at 3:18 PM

    Bob Devine 
    With win7 and WinRAR too I can extract.

    ReplyDelete
  11. Bob DevineJanuary 28, 2015 at 2:17 AM

    Nándor Kiss Strange - I use 7-zip and zipgenius and neither of them can open it.

    ReplyDelete
  12. Nándor KissJanuary 28, 2015 at 2:27 AM

    Bob Devine 
    Yes, really strange.
    Now I downloaded at work and uncompressed win WinRAR 4.00 (64-bit)

    What version of 7-zip/zipgenius are You using?

    edit:
    Tried with 7-Zip [64] 4.65 - Works fine.

    ReplyDelete
  13. Bob DevineJanuary 28, 2015 at 1:08 PM

    Nándor Kiss I downloaded it on my other PC and it extracted fine this time.

    ReplyDelete
  14. Nándor KissJanuary 28, 2015 at 1:14 PM

    Ok :)

    ReplyDelete
  15. Jeroen Wiert PluimersJanuary 28, 2015 at 3:55 PM

    Post code as a Gist so people can view it online and don't need to download it. https://gist.github.com/

    ReplyDelete
  16. Nándor KissJanuary 29, 2015 at 12:10 AM

    Jeroen Wiert Pluimers nice, never knew that, thx! :)

    ReplyDelete
  17. Nándor KissJanuary 29, 2015 at 12:22 AM

    url:
    https://gist.github.com/xcluster/402d6fa5453f5fa6a060
    [ Is this what I have to share? :) ]

    https clone url:
    https://gist.github.com/402d6fa5453f5fa6a060.git

    ReplyDelete
  18. Jeroen Wiert PluimersJanuary 29, 2015 at 2:00 AM

    Indeed. Thanks for sharing.

    ReplyDelete
  19. Lars FosdalJanuary 29, 2015 at 4:00 AM

    Pastebin is another alternative to gist.github.com

    ReplyDelete
  20. Jeroen Wiert PluimersJanuary 29, 2015 at 6:18 AM

    For me there are two cool things about gist: it can have multiple files per entry, and it is version controlled.

    ReplyDelete

Post a Comment