komponent eksisterer
Hej, hvordan tjekker jeg om et bestemt komponent findes. Der er her tale om et TMenuItem. Jeg har prøvet at løse det baseret på dette:http://www.eksperten.dk/spm/495641.
Men hos mig bliver Eksisterer aldrig forskellig fra nul. Her er koden:
procedure TForm1.ListboxClick(Sender: TObject);
var
Eksisterer,Opslag: TMenuItem;
i: integer;
begin
...
MemoHent.Clear;
MemoHent.Lines.LoadFromFile(Sti+'data\opslagsbog'+IntToStr(Ordbognummer)+'.txt');
For i:=1 to 5 do//MemoHent.Lines.Count do
begin
Eksisterer:=Tmenuitem(FindComponent('menuopslag'+IntToStr(i)));
if Eksisterer<>nil then /////////////////HER!!
begin
if MemoHent.Lines[Listbox.ItemIndex+1]=MemoHent.Lines[i] then
exit;
ShowMessage(MemoHent.Lines[Listbox.Itemindex+1]);
ShowMessage(MemoHent.Lines[i]);
end;
end;
Opslag:=TMenuItem.Create(MainMenu);
Opsledeord1.Add(Opslag);
Opslag.Name:='menuopslag'+IntToStr(Listbox.ItemIndex+1);
Opslag.Caption:=MemoHent.Lines[Listbox.ItemIndex];
Opslag.Tag:=Listbox.ItemIndex+1;
Opslag.OnClick:=OpslagNummerValg;
...
Håber I kan hjælpe.
