Forum: Object-Pascal / Delphi-Language
Delphi
by fkerber,
8. Mai 2006
Hi!
Dann versucht er aber folgendes:
dateinamen_label.parent:=dateinamen_label.scrollbox1;
Das geht dann wohl schief...
Forum: Object-Pascal / Delphi-Language
Delphi
by fkerber,
8. Mai 2006
Hi!
Sicher, dass es zu diesem Zeitpunkt die Scrollbox1 schon gibt. Außerdem könnte es sein, dass er da was falsches "sucht" wegen der with-Anweisung. Versuch mal ne Zuweisung nach dem Motto Form1.Scrollbox1.
Ciao Frederic
Forum: Object-Pascal / Delphi-Language
Delphi
by fkerber,
8. Mai 2006
HI!
Verrätst du uns auch, was für ein Fehler kommt?
Ciao Frederic
Forum: Object-Pascal / Delphi-Language
Delphi
by fkerber,
8. Mai 2006
Hi!
Ich hatte ja gemeint, in welcher Zeile des Codes der Fehler auftritt.
Aber stimmt, das Create will wissen, wem das neue Control jetzt gehören soll.
Kommt davon, wenn man was aus dem Kopf schreibt.
Ciao Frederic
Forum: Object-Pascal / Delphi-Language
Delphi
by fkerber,
8. Mai 2006
Hi!
Auf welche zeile bezieht sich der Fehler?
Ciao Frederic
Forum: Object-Pascal / Delphi-Language
Delphi
by fkerber,
8. Mai 2006
Hi!
Er will ja feststellen, welcher Button geklickt wurde, da alle die selbe Click-Procedure haben sollen.
Da geht das mit Sender sehr gut - mit FindComponent wohl eher nicht, er weiß nicht, was er "finden" soll.
Ciao Frederic
Forum: Object-Pascal / Delphi-Language
Delphi
by fkerber,
8. Mai 2006
Hi!
Dann kannst du das über den Sender auslesen.
z.B. kannst du jedem Button einen anderen Tag setzen (es handelt sich dabei um einen Integer)
//z.B. so auslesen
if Sender is TButton then
case (Sender as TButton).Tag of
1: //Button mit Tag 1
2: //Button mit Tag 2
Forum: Object-Pascal / Delphi-Language
Delphi
by fkerber,
8. Mai 2006
Hi!
Ich weiß ja nicht, wie du deine Buttons erstellst. Alternativ würde auch sowas gehen:
//beim erzeugen:
setlength(btnarray,0);
//VOR dem erzeugen eines neuen Buttons:
setlength(btnarray, length(btnarray)+1);
Forum: Object-Pascal / Delphi-Language
Delphi
by fkerber,
8. Mai 2006
Hi!
z.B. so:
var
BtnArray: Array of TButton;
i: integer;
begin
setlength(BtnArray, 3)