With Test do

[mkinzler]

Eine Komponenet braucht auch einen Owner (Parameter der Create-Methode)

[EWeiss]

Zitat von mkinzler:

Eine Komponenet braucht auch einen Owner (Parameter der Create-Methode)

Du meinst Create(self) ?
Meine Komponente sind NONVCL..

Wer erbarmt sich und kann mir sagen was falsch ist .. so verstehe ich das nicht.
welche propertys sollen hier noch addiert werde.. hmm

Delphi-Quellcode:

  ISkinFrameButton = interface
    ['{810D9186-F618-4EE6-84C3-054CDBAE1496}']
  end;

Damit ich auf meine class von außen zugreifen kann.
Egal was ich eingebe.. die antwort ist!

[Pascal Error] uMaster.pas(56): E2003 Undeclared identifier: 'self'
oder
[Pascal Error] uMaster.pas(56): E2035 Not enough actual parameters

gebe ich sie ein werden sie nicht erkannt.

Delphi-Quellcode:

function SkinFrameButtonCreate: ISkinFrameButton;
begin
  Result := TSkinFrameButton.Create(hOwner, FullpathImageName,
      skLabel, x, y, xW, yH, ButID, StateMax, Enabled);
end;

Zitat:

[Pascal Error] uMaster.pas(56): E2003 Undeclared identifier: 'hOwner'
[Pascal Error] uMaster.pas(57): E2003 Undeclared identifier: 'skLabel'
[Pascal Error] uMaster.pas(57): E2003 Undeclared identifier: 'y'
[Pascal Error] uMaster.pas(57): E2003 Undeclared identifier: 'ButID'
[Pascal Error] uMaster.pas(57): E2003 Undeclared identifier: 'Enabled'
[Pascal Fatal Error] SK_Aero.dpr(40): F2063 Could not compile used unit '_main\uMaster.pas'

gruss

[mkinzler]

Und wie ist das Interface deklariert?

[EWeiss]

Zitat von mkinzler:

Und wie ist das Interface deklariert?

Delphi-Quellcode:

  ISkinFrameButton = interface
    ['{810D9186-F618-4EE6-84C3-054CDBAE1496}']
  end;

und die classe welche ich ansprechen will

Delphi-Quellcode:

  TSkinFrameButton = class(TInterfacedObject, ISkinFrameButton)
  private
    HFrameButton: HWND;
    Img: cardinal;
    Style: DWORD;
  public
    property Handle: HWND Read HFrameButton;
    constructor Create(hOwner: HWND; FullpathImageName: string;
      skLabel: PAnsiChar; x, y, xW, yH, ButID, StateMax: integer; Enabled: Boolean);
    destructor Destroy; override;
  end;

gruss

[Neutral General]

Naja du musst ja der Create-Methode auch tatsächliche Parameter übergeben also ungefähr so:

Delphi-Quellcode:

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:

Delphi-Quellcode:

function SkinFrameButtonCreate(hOwner: HWND; FullpathImageName: string; skLabel: PAnsiChar; x, y, xW, yH, ButID, StateMax: integer; Enabled: Boolean): ISkinFrameButton;
begin
  Result := TSkinFrameButton.Create(hOwner, FullpathImageName,
      skLabel, x, y, xW, yH, ButID, StateMax, Enabled);
end;

Beachte!

Du kannst dann im Hauptprogramm NUR auf Methoden der Klasse zugreifen, die auch im Interface deklariert sind. Da dein Interface keine Methoden besitzt, wirst du mit dem zurückgelieferten Interface nichts anfangen können!

[EWeiss]

Zitat:

Naja du musst ja der Create-Methode auch tatsächliche Parameter übergeben also ungefähr so:

Ja von außen nicht innerhalb der DLL..

Zitat:

Es sei denn du baust deine Funktion eben so um:

Ahhhhh... Das sieht schon anders aus.

So meckert der Compiler jedenfalls nicht mehr.

Danke werde mal versuchen diese jetzt von außen anzusprechen.
Muss ich da noch was besonderes berücksichtigen?

OK!
Export ist klar

Delphi-Quellcode:

export
SkinFrameButtonCreate

Und die Funktion muss jetzt in meiner API eingefügt werden.

Delphi-Quellcode:

function SkinFrameButtonCreate(hOwner: HWND; FullpathImageName: string; skLabel:
  PAnsiChar; x, y, xW, yH, ButID, StateMax: integer; Enabled: Boolean): ISkinFrameButton;

Sowie..

Delphi-Quellcode:

type
  ISkinFrameButton = interface
    ['{810D9186-F618-4EE6-84C3-054CDBAE1496}']
  end;

Das interface selbst.

Zitat:

Du kannst dann im Hauptprogramm NUR auf Methoden der Klasse zugreifen, die auch im Interface deklariert sind. Da dein Interface keine Methoden besitzt, wirst du mit dem zurückgelieferten Interface nichts anfangen können!

Ja sehe ich auch gerade ...
Ich brauche aber das Handle

müßte dann quasi nach dem erstellen das Handle zurückgeben

Delphi-Quellcode:

  ISkinFrameButton = interface
    ['{810D9186-F618-4EE6-84C3-054CDBAE1496}']
    property Handle: HWND Read HFrameButton;
  end;

Das will der Compiler wieder nicht.

Zitat:

[Pascal Error] uFrameButton.pas(10): E2168 Field or method identifier expected

gruss

[implementation]

Zitat von EWeiss:

Delphi-Quellcode:

  ISkinFrameButton = interface
    ['{810D9186-F618-4EE6-84C3-054CDBAE1496}']
    property Handle: HWND Read HFrameButton;
  end;

Das will der Compiler wieder nicht.

Im Interface kannst du keine Felder nutzen.
Du brauchst eine Getter-Methode: GetHandle.

Delphi-Quellcode:

ISkinFrameButton = interface
    ['{810D9186-F618-4EE6-84C3-054CDBAE1496}']
    function GetHandle: hWnd;
    property Handle: hWnd read GetHandle;
  end;

[EWeiss]

Das muss den Namen "GET" vorangesetzt haben?

so geht es nicht?

Delphi-Quellcode:

  ISkinFrameButton = interface
    ['{810D9186-F618-4EE6-84C3-054CDBAE1496}']
    function HFrameButton: hWnd;
    property Handle: HWND Read HFrameButton;
  end;

gruss

[Neutral General]

Delphi-Quellcode:

type
  ISkinFrameButton = interface
    ['{810D9186-F618-4EE6-84C3-054CDBAE1496}']
    function GetHandle: hWnd;
    property Handle: hWnd read GetHandle;
  end;

  TSkinFrameButton = class(TInterfacedObject, ISkinFrameButton)
  private
    HFrameButton: Hwnd;
    function GetHandle: Hwnd;
  end;

implementation
  
function TSkinFrameButton.GetHandle: Hwnd;
begin
  Result := HFrameButton;
end;