Einzelnen Beitrag anzeigen

Neumann

Registriert seit: 6. Feb 2006
Ort: Moers
529 Beiträge
 
Delphi 11 Alexandria
 
#6

Re: Button´s aus Datenbank Daten erstellen

  Alt 10. Mai 2010, 20:20
Hallo,

ich würde das so machen:

1. bei Programmstart ein Array mit Buttons erstellen:

Delphi-Quellcode:
MeineButtons:array[0..100] of tbutton;
Anlegen und Zuweisen:
for i:=0 to 100 do
begin
  MeineButtons[i]:=tbutton.create;
  // Eigenschaften setzen parent, left, top caption usw.
  // Tag=i zum leichter finden
  Meinebuttons[i].onclick=buttonclick; // Eine Methode für alle Buttons, identifizieren mit Tag und Sender
end;
procedure tmainform.buttonclick(Sender:TObject);
begin
  tButton(Sender).Caption:='Angeklickt';
  
end;
Jetzt kann man zur Laufzeit die Buttons sichtbar/unsichtbar machen, Caption ändern usw.
Ist natürlich alles stark verkürzt; real braucht man etwas mehr Programmtext.

Gruß

Ralf
Ralf
Gruß vom Niederrhein
  Mit Zitat antworten Zitat