Schnittstellenproperty für das selbständige Besorgenvon Tex

[mirage228]

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