Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: With Test do

   
    by Neutral General, 2. Mär 2011
  type
  ISkinFrameButton = interface
  
  function GetHandle: hWnd;
  property Handle: hWnd read GetHandle;
  end;
  
  TSkinFrameButton = class(TInterfacedObject, ISkinFrameButton)
  private
  HFrameButton: Hwnd;
• Forum: Programmieren allgemein

  AW: With Test do

   
    by Neutral General, 2. Mär 2011
  Naja du musst ja der Create-Methode auch tatsächliche Parameter übergeben also ungefähr so:
  
  function SkinFrameButtonCreate: ISkinFrameButton;
  begin
  BackgoundFrame := TSkinFrameButton.Create(hMain, SK_FOLDER +
  'Aero.png', '', 13, 41, XMIN_SIZE - 26, YMIN_SIZE - 55, ID_AEROBUTTON, 0);
  end;
  
  
  Es sei denn du baust deine Funktion eben so um:
• Forum: Programmieren allgemein

  AW: With Test do

   
    by Neutral General, 28. Feb 2011
  Hallo,
  
  Das was du vor hast, funktioniert mit Interfaces:
  
  DLL:
  
  
  library Demo;
  
  interface