Eine property hast du schnell deklariert:
Delphi-Quellcode:
type
TForm1 = class(TForm)
private
ActiveFileIndex: Integer;
function GetActiveFile: TMarkFile;
public
property ActiveFile: TMarkFile read GetActiveFile;
end;
function TForm1.GetActiveFile: TMarkFile;
begin
Result := Files[ActiveFileIndex];
end;
Das Feld ActiveFileIndex musst du ständig in Übereinstimmung mit den Aktionen des Benutzers aktualisieren. Zuvor solltest du dir ein paar Gedanken zur Benutzerschnittstelle und zu deiner Programmstruktur machen. Ich vermisse ein Konzept. So läufst du Gefahr eine Menge überflüssigen Code zu schreiben, der später mühevoll raus operiert werden muss.
marabu