Hi all,
folgendes Problem:
Ich habe ein JvExpress Komponente. Dieser Komponente füge ich zur Laufzeit JvExpressButtons hinzu.
Den hinzugefügten Buttons gebe ich über die Data-Eigenschaft Pointer vom Typ integer mit.
Nun würde ich gerne die Werte der Pointer wieder auslesen, und das klappt nich so recht.
Hier mal ein bisschen Code:
Delphi-Quellcode:
// JvExpress zur Laufzeit die Buttons hinzufügen...
procedure TForm1.FormShow(Sender: TObject);
var
jahr : integer;
begin
while not DataModule1.q_projekt.Eof do
begin
JvExpress1.AddButton;
jahr := 10;
JvExpress1.Buttons[JvExpress1.ButtonCount-1].Data := @jahr;
DataModule1.q_projekt.Next;
end;
end;
// Bei Click auf einen TButton soll der Wert eines JvExpressButtons ausgelesen werden...
procedure TForm1.Button1Click(Sender: TObject);
var
pJahr : ^integer;
begin
pJahr := JvExpress1.Buttons[1].Data;
showmessage(intToStr(pJahr^)); // Ausgabe ist nicht 10, sondern 15010828
end;
Könnt ihr mir da helfen ?
Danke im vorraus,
Ben