AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Listbox+ActiveForm Problematik

Ein Thema von Zock3r · begonnen am 11. Okt 2008 · letzter Beitrag vom 12. Okt 2008
 
Zock3r

Registriert seit: 11. Okt 2008
2 Beiträge
 
Delphi 6 Enterprise
 
#1

Listbox+ActiveForm Problematik

  Alt 11. Okt 2008, 18:05
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
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:47 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz