Buttons per Programm entfernen [solved]

[wbeppler]

hi,

ich hab ne form in der ich 12 spalten buttons hab, darunter sind je tag ein button, also feb weniger und 30/31 wechsel
die buttons hab ich von TButton abgeleitet und per programm erstellt. nun sollte ich die buttons beim umschalten zu nem anderen jahr am besten entfernen und neu erstellen.
hat jemand ne idee wie ich die butttons entfernen kann ? (oder weiss jemand ne sache in der form die ich aufrufe und die dann alle bttons auch aufrufen, also dass ich die procedure des buttons (oder so was) mit destroy ueberschreiben kann ???)

gruss und dank

w

[Bitschubser]

Was spricht dagegen, die Tage da zu lassen wo sie sind und nur zu verstecken - Button.visible := false oder Button.Hide?
Dann brauchst du auch nachher nix neu zu erzeugen.

[wbeppler]

danke fuer die idee, aber wie spreche ich die buttons an ?

mein ding ist: klick auf den button, sucht den tag raus den ich zum bearbeiten brauche
beim erstellemn des button (create) mach ich danach caption:= '01.01.2015' etc. und den click hab ich ueberschrieben mit meintag:=caption

ich wuerde den buttons gerne andere tage zuteilen, aber wie heissen die ? ich hol die ja nicht mit drag-drop sondern erstell die in einem array, das array ist aber jedes jahr anders, der februar passt naechstes jahr nicht. mir faellt nur wegwerfen ein, ich weiss aber nicht wie ????

dennoch danke, oder hab ich nen bretterstapel vor dem kopf ?

[theo]

Keine Ahnung ob ich dich richtig verstehe, aber Komponenten auf dem Formular kann man mit
http://lazarus-ccr.sourceforge.net/docs ... onent.html
über ihren Namen ansprechen.

Ich würde das Problem aber eher mit einem Grid lösen statt mit einer Button Armada.

[wbeppler]

ne grid hatte ich auch mal ueberlegt, aber ich bau hier ein programm nach das ich vor 20 jahren in foxpro schon einmal erstellt habe. und bei ner grid ist der februar gleich lang wie der jan und das sieht halt nicht so gut aus. klar geht das zur not, aber ich will das was ich vor 20 jahren hingekriegt hab heute auch koennen.

mir fehlt ja nur ne idee welches event jedesmal wenn z.b. refresh des forms, ausgrfuehrt wird. ja unter foxpro heisst es .refresh, das ist prakktisch. kann ich so was in laz auch bauen ? wie? dann wuerd ich das in jedes element einbauen.

gruss und dank

w

[Soner]

"SubControls" eines "Controls" kannst du so ansprechen:
TWinControl.Controls[Index]

Ein "Control" bei dir Button kann du so entfernen:
Button1.Free;


Alle Steuerungen ("Controls") durchlaufen:

Code: Alles auswählen

 
for i:=0 to ControlCount-1 do 
  if Controls[i] is TButton then   //Wenn das Button is Freigeben
    Controls[i].Free; //.. Freigeben
 

Ich würde in deine Stelle nicht immer alle Buttons freigeben und neuerstellen das macht Programm langsam. Deshalb braucht man heutzutage ein PC mit 4 Kern Prozessor und min. 4 GB RAM damit einige Programme laufen weil viele Programmierer genau das machen.
Ich würde es so machen:
1. Für jeden Monat ein TPanel nehmen und Buttons da drin plazieren. Das macht es einfach und du kannst auch Buttons einfach align=alTop machen.
Ränder kannst du mit TPanel.BorderSpacing einstellen.
Buttons kannst du so ansprechen:

Code: Alles auswählen

 
for i:=0 to PanelJanuar.ControlCount-1 do 
  if PanelJanuar.Controls[i] is TButton then   //Wenn das Button is Freigeben
    PanelJanuar.Controls[i].Free; //.. Freigeben
 

2. Entweder für jeden Monat 31 Buttons erstellen und nicht benötigte verstecken/sichtbar machen oder nur nicht benötigte entfernen/erstellen.

[wbeppler]

hallo soner,

DANKE !
nicht nur dass du mir genau die loesung hast, du schreibst auch noch ne guute idee fuer die performance. ich werde es gleich heute noch ausprobieren

DANKE !
gruss Wolfgang

[wbeppler]

so, habs ausprobiert

funktioniert SUPER !
kleine wichtige aenderung ist aber
for i:=0 to ControlCount-1 do
wersetzen mit
for i:= ControlCount-1 downto 0 do

weil der controlcount staendig aktuell ist und deshalb verrueckte effekte auftreten (jedes 2. objekt wird geloescht dann fehlermeldung)

und weil es bei mir kein TButton ist sondern ein TMyButton sind die noch sehr einfach zu identifizieren . klasse !

DANKE nochmals