AGB  ·  Datenschutz  ·  Impressum  







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

Controls suchen und löschen

Ein Thema von thomas2009 · begonnen am 17. Mär 2011 · letzter Beitrag vom 18. Mär 2011
Antwort Antwort
Seite 1 von 2  1 2      
thomas2009
(Gast)

n/a Beiträge
 
#1

Controls suchen und löschen

  Alt 17. Mär 2011, 22:36
Hi

ich möchte Controls (AlsBeispiel Images) in ScrollBox1 löschen
was komisch ist, von 4 Images werden nur 2 gelöscht und zwar,
die erste und die dritte !!!
Fehlermeldung sagt :
Listenindex überschreitet das maximum (2)

markieren
Delphi-Quellcode:
var
i: Integer;
begin

  for i := 0 to ScrollBox1.ComponentCount-1 do
  begin
    if (ScrollBox1.Components[i] is TImage) then
    ScrollBox1.Controls[i].Free;
  end;
end;
Woran liegt es ?
Geändert von Luckie (18. Mär 2011 um 05:56 Uhr) Grund: Titel korrigiert
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.452 Beiträge
 
Delphi 12 Athens
 
#2

AW: Contrals suchen und löschen

  Alt 17. Mär 2011, 22:41
Überleg mal!

Controls = [Image1, Image2, Image3, Image4, cmp1, cmp2, cmp3]

For-Schleife

I=0 [Image2, Image3, Image4, cmp1, cmp2, cmp3]

I=1 [Image2, Image4, cmp1, cmp2, cmp3]

Lösung: lass die Schleiife rückwärts laufen
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#3

AW: Contrals suchen und löschen

  Alt 17. Mär 2011, 22:44
oder als ketzerischer Ansatz erzeuge sie als Elemente einer TObjectlist und gib diese wieder frei...
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat
thomas2009
(Gast)

n/a Beiträge
 
#4

AW: Contrals suchen und löschen

  Alt 17. Mär 2011, 22:53

Lösung: lass die Schleiife rückwärts laufen
Dann passiert nichts :
markieren
Delphi-Quellcode:
var
i : Integer;
begin
for i:=self.ComponentCount-1 downto 0 do begin
if self.Components[i] is TImage then
self.Components[i].Free;
end;
end;
  Mit Zitat antworten Zitat
Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#5

AW: Contrals suchen und löschen

  Alt 17. Mär 2011, 23:08
><((((º>
Du hattest Doch schon ScrollBox1.ComponentCount
wieso meinst Du jetzt das Self.ComponentCount etwas bewirken soll....
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat
Benutzerbild von wicht
wicht

Registriert seit: 15. Jan 2006
Ort: Das schöne Enger nahe Bielefeld
809 Beiträge
 
Delphi XE Professional
 
#6

AW: Contrals suchen und löschen

  Alt 17. Mär 2011, 23:11
………………..,-~*’`¯lllllll`*~,
…………..,-~*`lllllllllllllllllllllllllll¯`*-,
………,-~*llllllllllllllllllllllllllllllllllllllllllll*-,
……,-*lllllllllllllllllllllllllllllllllllllllllllllllll lllll.\
….;*`lllllllllllllllllllllllllll,-~*~-,llllllllllllllllllll\
…..\lllllllllllllllllllllllllll/………\;;;;llllllllllll,-`~-,
…...\lllllllllllllllllllll,-*………..`~-~-,…(.(¯`*,`,
…….\llllllllllll,-~*…………………)_-\..*`*;..)
……..\,-*`¯,*`)…………,-~*`~.………….../
……...|/.../…/~,…...-~*,-~*`;……………./.\
……../.../…/…/..,-,..*~,.`*~*…………….*...\
…….|.../…/…/.*`...\...……………………)….)¯`~,
…….|./…/…./…….)……,.)`*~-,……….../….|..)…`~-,
……/./.../…,*`-,…..`-,…*`….,---…...\…./…../..|……...¯```*~-
…...(……….)`*~-,….`*`.,-~*.,-*……|…/.…/…/…………\
…….*-,…….`*-,...`~,..``.,,,-*……….|.,*...,*…|…...\
……….*,………`-,…)-,…………..,-*`...,-*….(`-,…
http://streamwriter.org

"I make hits. Not the public. I tell the DJ’s what to play. Understand?"
  Mit Zitat antworten Zitat
Medium

Registriert seit: 23. Jan 2008
3.686 Beiträge
 
Delphi 2007 Enterprise
 
#7

AW: Contrals suchen und löschen

  Alt 17. Mär 2011, 23:45
markieren
Delphi-Quellcode:
while foo.ControlCount>0 do
  foo.Controls[0].Free;
... und wehe jetzt kommt "was ist foo?". Letzter ernst gemeinter Hilfsversuch von mir für dich thomas. Ach so: Sollten die Controls dort nicht mit dem entsprechenden Owner erzeugt worden sein, gibts das ggf. hübsches Feuerwerk. Das ist dann KEIN Fehler von Delphi *hinthint*.
"When one person suffers from a delusion, it is called insanity. When a million people suffer from a delusion, it is called religion." (Richard Dawkins)
  Mit Zitat antworten Zitat
thomas2009
(Gast)

n/a Beiträge
 
#8

AW: Contrals suchen und löschen

  Alt 17. Mär 2011, 23:50
Vielleicht besser testen
zusammenfalten · markieren
Delphi-Quellcode:
object Form1: TForm1
  Left = 192
  Top = 114
  Width = 783
  Height = 540
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  DesignSize = (
    775
    506)
  PixelsPerInch = 96
  TextHeight = 13
  object ScrollBox1: TScrollBox
    Left = 5
    Top = 0
    Width = 716
    Height = 331
    HorzScrollBar.Tracking = True
    VertScrollBar.Tracking = True
    Anchors = [akLeft, akTop, akBottom]
    TabOrder = 0
    object image1: TImage
      Left = 27
      Top = 46
      Width = 166
      Height = 161
      Center = True
      Picture.Data = {
        07544269746D6170D8090000424DD80900000000000076000000280000009001
        000090010000010004000200000062090000C40E0000C40E0000000000000000
        0000FFFFFF000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        00000001}
      Proportional = True
      Stretch = True
    end
    object Image2: TImage
      Left = 219
      Top = 54
      Width = 166
      Height = 161
      Center = True
      Picture.Data = {
        07544269746D6170D8090000424DD80900000000000076000000280000009001
        000090010000010004000200000062090000C40E0000C40E0000000000000000
        0000FFFFFF000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        00000001}
      Proportional = True
      Stretch = True
    end
    object Image3: TImage
      Left = 419
      Top = 54
      Width = 166
      Height = 161
      Center = True
      Picture.Data = {
        07544269746D6170D8090000424DD80900000000000076000000280000009001
        000090010000010004000200000062090000C40E0000C40E0000000000000000
        0000FFFFFF000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        0000FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000
        FE0092000000FE0092000000FE0092000000FE0092000000FE0092000000FE00
        92000000FE0092000000FE0092000000FE0092000000FE0092000000FE009200
        00000001}
      Proportional = True
      Stretch = True
    end
  end
  object Button1: TButton
    Left = 40
    Top = 344
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 1
    OnClick = Button1Click
  end
end
zusammenfalten · markieren
Delphi-Quellcode:
unit Unit1;


interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    image1: TImage;
    ScrollBox1: TScrollBox;
    Image2: TImage;
    Image3: TImage;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
          i : Integer;
begin
          for i:=ScrollBox1.ComponentCount-1 downto 0 do begin
              if ScrollBox1.Components[i] is TImage then
                 ScrollBox1.Components[i].Free;
          end;
end;

end.
  Mit Zitat antworten Zitat
Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#9

AW: Contrals suchen und löschen

  Alt 17. Mär 2011, 23:52


Was soll denn jetzt diese Quelltext-Tapete hier?
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat
Medium

Registriert seit: 23. Jan 2008
3.686 Beiträge
 
Delphi 2007 Enterprise
 
#10

AW: Contrals suchen und löschen

  Alt 17. Mär 2011, 23:54
Jo, mir reicht's dann wirklich. @SirRufo: Das ist vermutlich die Tapete für die Wand, mit der wir hier die letzten Tage reden. Bissl aufhübschen ist ja nie falsch, und es sind immerhin Bilder drauf!
"When one person suffers from a delusion, it is called insanity. When a million people suffer from a delusion, it is called religion." (Richard Dawkins)
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      

« Vorheriges Thema | Nächstes Thema »

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 08:20 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz