TVPlanit mit Lazarus v2.0.11 v2.0.12 v2.0.13

[charlytango]

In TVpSchedule kommt man über GetEvent(index) an das Event (TVpEvent) mit dem angegebenen Index. TVpEvent, schließlich, speichert alle betreffenden Parameter in internen Feldern (RecordID, StartTime, EndTime, Description, Title, etc).

Grundsätzlich habe ich alle von dir erwähnten Klassen gefunden, was aber noch nicht gelöst hat wie ich da zur Laufzeit drankomme.
Nach einigem hin und her hab ich versucht im DayView Control ein passendes Event zu finden.
Dann hab ich den Code für das Popup Menü gefunden und konnte direkt aufs aktive Event zugreifen.

Code: Alles auswählen

procedure TfrmVisualPlanIt.VpDayView1Click(Sender: TObject);
begin
   if  VpDayView1.ActiveEvent <> nil then  begin
    Edit1.Text:=inttostr(VpDayView1.ActiveEvent.RecordID);

   end;
end;

Nur falls das auch jemand brauchen kann.
Danke erstmal