Listbox+ActiveForm Problematik

[Zock3r]

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

[dataspider]

Hi,

du hast verschiedene Möglichkeiten.
Ich würde anstatt dem Namen des Formulares das Formular selbst abspeichern.

Also:

Delphi-Quellcode:

Var
  ActiveNote: TZettel;
  ActiveNoteName: String;
...
//Deine Methode dann halt
procedure TNotiz.ZettelMerken(Sender: TObject); 
begin 
  if Screen.ActiveForm is TZettel then 
  begin 
    ActiveNote     := Screen.ActiveForm;
    ActiveNoteName := ActiveNote.Name; 
    Notiz.Caption  :='Aktiver Zettel: ' + ActiveNoteName; 
  end; 
end;

Oder du iterierst über Screen.Forms und wenn Screen.Forms[i].Name = AktiverZettel dann Screen.Forms[i].Free.
Dass man nicht Destroy aufrufen soll, ist auch schon oft erwähnt wurden.

Aber, wenn du TForm für Zettel nimmst, dann würde ich einfach auf dem Zettel irgendwo ein Kreuz zum Löschen platzieren und den Zettel über Close löschen (Action im OnClose auf caClose).

Frank

[DEIT]und zum Abspeichern in der Listbox nur 2 Hinweise:
Formular mit speichern: Zettelliste.AddItem(Screen.ActiveForm.Caption, Screen.ActiveForm);
Formular referenzieren: TForm(Zettelliste.Items.Objects[i]).Free;
[/EDIT]

[Zock3r]

so danke schon mal für die Hilfe
es lag am Button ,der wollte irgendwie nicht so richtig
ich habe einen neuen erstellt und dann die entsprechenden Dinge eingefügt und dann ging es wie von zauberhand

die angaben zur listbox sind mir wohl bekannt auch wenn es nur gut gemeint war ,ich suche etwas anderes ...

--> Schön wäre es jetzt noch ,wenn ich mithilfe des Buttons den Zettel löschen könnte, den ich zuvor in der Listbox ausgewählt habe

mit Listbox.Selected klappt das irgendwie nicht so ganz

ich habe mir da schon so etwas überlegt brauche nur noch die richtigen Befehle dafür

also ich deklariere eine Variable ,die das ausgewählte Item der Listbox "speichert" (als String)
dann müsste ich ja eigentlich über FindComponent('hier kommt die Variable hinein'),den zugehörigen Zettel finden und löschen können
also die Listbox hieße dann Zettelliste
'
ZuLöschenderZettel:='ausgewähltes Item der Listbox'
FindComponent(ZuLöschenderZettel).Destroy /oder so ähnlich jedenfalls
'
ich hoffe so wird klar wie ich mir das gedacht habe

Was meint ihr ?

Ich würde mich über eine Antwort freuen
Danke schonmal
Gruß
Flo

[SirThornberry]

Könntest du bitte einen aussagekräftigen Titel wählen? der jetztige sagt leider gar nichts aus. Danke :-)