@Daniela.S: Das ist schon eingestellt. Leider geht das auch nicht.
Hier nur noch kurz die Lösung mit der es funktioniert:
Delphi-Quellcode:
const
C_AnzahlHilfe_LST = 13;
var
C_Hilfe_LST : array[0..C_AnzahlHilfe_LST - 1] of TC_Hilfe_Link;
..
procedure initHelpKeys(ProgNr: integer);
implementation
procedure initHelpKeys(ProgNr: integer);
begin
case ProgNr of
I_PROGNR_LST :
begin
C_Hilfe_LST[00].Create('' , 4001, false);
C_Hilfe_LST[01].Create('Filter' , 4062, false);
C_Hilfe_LST[02].Create(rcCaptionForm , 4064, false);
// Achtung C_AnzahlHilfe_LST muß aktuell gehalten werden
end;
..
end;
Und initHelpKeys wird beim Programmstart einmal aufgerufen. Ist jetzt erstmal eine schnelle (quickanddirty) Umsetzung. Ich werde wohl noch auf eine Globale Liste umstellen...
Gruß David