Hi!
ich brauche eure Hilfe ,ich komme nicht weiter mit meinem Programm.
Ich habe ein "Zettel-Programm" erstellt, mit dem man durch einen Button Zettel erstellen kann (also im grunde neue Formulare Component = TZettel )
nun möchte ich mithilfe eines zweiten buttons den zuletzt aktiven Zettel löschen
da ich nicht die ActiveForm zerstören kann ,weil diese ja beim Klicken auf den Button das Hauptformular wäre ,muss ich des über eine Variable machen
Diese habe ich AktiverZettel getauft
Delphi-Quellcode:
procedure TNotiz.ZettelMerken(Sender: TObject);
begin
if Screen.ActiveForm is TZettel
then
begin
AktiverZettel:=Screen.ActiveForm.Name;
Notiz.Caption:='Aktiver Zettel:' + AktiverZettel;
end;
end;
Jetzt muss ich irgendwie mithilfe dieser Variable den sogenannten Aktiven Zettel löschen
ich habe da schon einiges Probiert
von RemoveComponent ,FindComponent und nicht zu vergessen
Delphi-Quellcode:
IF Components[i].Name=AktiverZettel
then FindComponent(AktiverZettel).Destroy;
so sieht meine prozedur ungefähr aus :
Delphi-Quellcode:
{i:=Notiz.ComponentCount;
IF Components[i].Name=AktiverZettel
then FindComponent(AktiverZettel).Destroy;
//TZettel(Notiz.FindComponent(AktiverZettel)).Destroy;
//Components[i].FindComponent(AktiverZettel).Destroy;
// then TZettel(Components[i]).Destroy;
}
//n:=Notiz.ComponentCount;
//i:=Zettelliste.Count;
//IF Zettelliste.Items.Names[i]=Components[n].Name
//then Components
{ N:=Notiz.ComponentCount ;
While N >0 do
begin
n:=n-1;
if Components[N] is TZettel
then
begin
IF Components[N].Name=AktiverZettel
then TZettel(Components[N]).Destroy;
end;
end;
Zettelliste.Items.Clear; }
wie ihr seht hab ich da einiges versucht
ich würde es am liebsten über den Listbox eintrag den man angeklickt hat versuchen zu löschen ,aber dafür hab ich auch noch nicht den richtigen Befehl gefunden
BITTE HELFT MIR!
danke schon mal im vorraus für eure hilfe
Gruß
Flo
Zitat
Baum-Darstellung
