Einzelnen Beitrag anzeigen

Benutzerbild von mirage228
mirage228

Registriert seit: 23. Mär 2003
Ort: Münster
3.750 Beiträge
 
Delphi 2010 Professional
 
#2

Re: Schnittstellenproperty für das selbständige Besorgenvon

  Alt 19. Okt 2004, 08:09
Hi,

also die DialogBox kriegt Funktionen solchen Typs übergeben und arbeitet damit? Meinst Du das?

Dann müsst Du das so ähnlich lösen (z.B.)

In der DialogBox:
Delphi-Quellcode:
TDialogBox = class(TForm)
// ...
// ...
private
  FBoschResourceText: TBoschResourceText;
  function GetResourceText(anId: String): WideString;
public
  property BoschResourceText: TBoschResourceText read FBoschResourceText write FBoschResourceText;
end;

var
  DialogBox: TDialogBox;

implementation

function TDialogBox.GetResourceText(anId: String): WideString;
begin
  if Assigned(FBoschResourceText) then
    Result := FBoschResourceText(anId) else
  Result := '';
end;
In der DialogBox arbeitest Du dann mit "GetResourceText".

Dort, wo Du die DialogBox aufrufst:
Delphi-Quellcode:
  // einmalig:
  DialogBox.BoschResourceText := MeineBochResourceTextProzedur;
  // form anzeigen:
  DialogBox.ShowModal; // oder andere Methode
Ich hoffe ich habe das jetzt richtig verstanden...

mfG
mirage228
David F.

May the source be with you, stranger.
PHP Inspection Unit (Delphi-Unit zum Analysieren von PHP Code)
  Mit Zitat antworten Zitat