DGL • Thema anzeigen - Objekte Einfügen zur Laufzeit

Objekte Einfügen zur Laufzeit

Moderator: DGL-Team

Seite 1 von 1

[ 3 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Escudo

Betreff des Beitrags: Objekte Einfügen zur Laufzeit

Verfasst: Do Okt 14, 2004 20:11

DGL Member

Registriert: Do Okt 09, 2003 15:28
Beiträge: 14
Wohnort: Bochum

Hallo allerseits.
Für ein Projekt, das ich jetzt starte, muss ich zur Laufzeit eine dynamisch Anzahl von TScrollBars auf einem Formular erstellen. Die sollen dann untereinander angeordnet sein und beim Change eine gemeinsame Prozedur ausführen, an die dann der Index übergeben wird. So nach dem Motto:

procedure TForm1.SBChange(SEnder:TObject);
var index:Integer;
begin
index := (Sender as TScrollBar).Tag;
end;

[Constructor]
SB.Tag := n;
SB.Top := n * 30;
SB.onChange := SBChange;

Wie kann ich zur Laufzeit eine solche Scrollbar erstellen und an das Formular binden und später wieder freigeben?
Der Hendrik

Nach oben

Billi Berserker

Betreff des Beitrags:

Verfasst: Do Okt 14, 2004 20:39

DGL Member

Registriert: Di Jun 24, 2003 19:09
Beiträge: 732

wenn ich dich richtig verstanden habe dann sieht das was du brauchst so aus :

erstmal ne neue variable für die Scrollbars :

Code:

var
  sbarray : array of TScrollBar;
 

Dann in deiner procedur wo du die Scrollbars erstellen willst :

Code:

var
 n: integer;
begin
  for n:=1 to BarCount do //so viele wie du brauchst;
  begin
    setlength(sbarray,length(sbarray)+1);
    sbarray[High(sbarray)] := TScrollBar.Create(Form1); //Handle zu deinem Formular;
    with sbarray[High(sbarray)] do
    begin
      parent := Form1;
      Tag := length(sbarray);
      Top := length(sbarray) * 30;
      OnChange := SBChange; 
    end;
  end;
end;
 

und zum freigeben :

Code:

var
 n : integer;
begin
  for n:=0 to high(sbarray) do
  begin
    sbarray[n].Free;
    sbarray[n] := nil;
  end;
 

ps. Ich hab den Code jetzt nur hier schnell ohne ihn zu testen zusammengeschrieben - können durchaus noch Fehler drin sein

Nach oben

Escudo

Betreff des Beitrags:

Verfasst: Do Okt 14, 2004 21:25

DGL Member

Registriert: Do Okt 09, 2003 15:28
Beiträge: 14
Wohnort: Bochum

Danke!
Das ist lieb von dir, dass du mir so schnell und zuverlässig antwortest! :-)

Bin echt schon 'ne ganze Weile am Probieren gewesen und hab alle möglichen Funktionen durchgetestet.

Obj.Parent := Form1;
war die Zeile, die mir im Endeffekt die ganze Zeit gefehlt hat.
Du bist mein Retter! Danke!
:-)

Der Hendrik

Nach oben

Seite 1 von 1

[ 3 Beiträge ]

Foren-Übersicht » Programmierung » Allgemein

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 5 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.