Hallo,
und zwar baue ich dynamisch ein Menü mit verschiedenen Sprachen auf.
Delphi-Quellcode:
procedure TfMenu.FormCreate(Sender: TObject);
var
SprachMenu : TMenuItem;
begin
qWork.Close;
qWork.SQL.Text := 'Select Sprache, Bezeichnung from Sprachen';
qWork.Open;
Sprache1.Clear;
while not qWork.Eof do
begin
SprachMenu := TMenuItem.Create(fMenu);
SprachMenu.Name := qWork.fieldbyname('Sprache').AsString;
SprachMenu.Caption := qWork.fieldbyname('Bezeichnung').AsString;
SprachMenu.OnClick := SpracheOnClick;
SprachMenu.GroupIndex := 1;
Sprache1.Add(SprachMenu);
qWork.Next;
end;
end;
Sprache1 ist ein TMenuItem innerhalb eines TVistaMenu
jetzt würde ich gerne die jeweils ausgewählte Sprache mit einem Haken davor markieren (so wie in abbildung: sprachmenu1.jpg)
aber es sieht aus wie in abbildung : sprachmenu2.jpg.
ich finde auch keinerlei weitere einstellungsmöglichkeit für Sprache1 oder die einzelnen SprachMenu Einträge, würde mich über einen tip sehr freuen
mfg
Freiwilderer