Thema: With Test do

Einzelnen Beitrag anzeigen

Benutzerbild von Neutral General
Neutral General

Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#10

AW: With Test do

  Alt 2. Mär 2011, 11:59
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!
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."
  Mit Zitat antworten Zitat