danke für die tollen Hinweise. Ich habe bereits daran gedacht, den Doppelklick der TPerson an den Stammbaum weiterzuleiten, leider habe ich überhaupt keine Idee, wie ich das anstellen soll.
Delphi-Quellcode:
// Pseudocode:
TPerson = class
private
OnDblClickForFamilyTree: TNotifyEvent;
public
property _OnDblClickForFamilyTree: TNotifyEvent read F_OnDblClickForFamilyTree write OnDblClickForFamilyTree;
procedure DblClick; override;
end;
procedure TPerson.DblClick;
begin
inherited;
if Assigned(F_OnDblClickForFamilyTree) then
begin
F_OnDblClickForFamilyTree;
end;
end;
TFamilyTree.Somewhere;
begin
SomePerson._OnDblClickForFamilyTree := PersonDblClicked;
end;
procedure TFamilyTree.PersonDblClicked(Sender: TObject);
begin
makeProband(Sender as TPerson);
end;
Das ist in etwa Lösung b)
Zitat:
Warum nur 15 Personen dargestellt werden sollen? Das hängt mit den 4 Generationen zusammen, die ich darstellen möchte: [...]
Ja, das ist klar. Aber warum nur 4 Generationen?
Zitat:
Sollte eine Person Geschwister haben, so werden diese erstmal nicht in der Ansicht dargestellt, es sei denn sie werden über eine Auswahlliste (z.B. TListBox) ausgewählt, dann sind sie der neue Proband des Stammbaums.
Wie siehts mit Halbgeschwistern und Stiefgeschwistern aus?
mfg
Christian