Hallo, ich habe folgendes gemacht:
Aus einer Datei werden Wörter gelesen und dynamisch in einem Untermenü verarbeitet.
Etwa so:
Code:
while (not Eof(f)) do
begin
readln(f, Line);
if Line <> '' then begin
NewMenuItem := TMenuItem.Create(self);
NewMenuItem.Caption := Line;
NewMenuItem.GroupIndex := 5;
NewMenuItem.RadioItem := True;
NewMenuItem.OnClick := miProfileClick;
miProfiles.Add(NewMenuItem);
end;
end;
Das funktioniert auch schon mal. Beim Anklicken eines dieser Einträge wird die Prozedur miProfileClick aufgerufen. Funzt auch. Aber da die Einträge alle RadioItems sind, soll davor auch ein dicker Punkt erscheinen, wenn der Menüeintrag selektiert ist.
Wie kann ich das machen?
Code:
procedure miProfileClick(Sender: TObject);
begin
Sender.Checked := True;
end;
So funktioniert es jedenfalls nicht. Ich brauche irgendwie den Inhalt von "Sender", um ihn als Variablennamen weiterzuverwenden.