Frage zu Pointer

[Gruber_Hans_12345]

eventuell mal so probieren ... (nicht getestet)

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 := Pointer(jahr);
    DataModule1.q_projekt.Next;
  end;
end;

// Bei Click auf einen TButton soll der Wert eines JvExpressButtons ausgelesen werden...
procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(intToStr(integer(JvExpress1.Buttons[1].Data))); // Ausgabe ist nicht 10, sondern 15010828
end;