Curse4Life
Hi,
ich habe ein TabSet auf meinem Form, der beim Change etwas tut, ich möchte in einer Situation diese Procedure aber manuell aufrufen.
Die Dekleration der Change Procedure:
| code: |
1:
2:
3:
|
procedure TForm_Main.AdvTabSet_KategorienChange(Sender: TObject; NewTab: Integer; var AllowChange: Boolean);
|
|
Und manuell möchte ich es so aufrufen:
| code: |
1:
2:
3:
|
AdvTabSet_KategorienChange(self, 0, True);
|
|
Ich bekomme aber diese Fehlermeldung und die hatte ich noch nie:
| code: |
1:
2:
3:
|
[Fehler] Main.pas(102): Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen
|
|
mfg
Curse4Life
perle
das ist relativ einfach , guck dir doch nochmal die Deklaration an:
| code: |
1:
2:
3:
|
procedure TForm_Main.AdvTabSet_KategorienChange(Sender: TObject; NewTab: Integer; var AllowChange: Boolean);
|
|
Das VAR vor dem AllowChange zeigt an, dass man den Wert Variabel ändern kann, du kannst daher keinen Konstanten Wert übergeben.
mit
| code: |
1:
2:
3:
4:
5:
6:
7:
8:
|
[...]
var
HierDerWert : Boolean;
begin
AdvTabSet_KategorienChange(self, 0, HierDerWert);
[...]
|
|
sollte es eigentlich funktionieren.
LG Yvonne.