|
![]() |
|
Registriert seit: 15. Jan 2006 Ort: Das schöne Enger nahe Bielefeld 809 Beiträge Delphi XE Professional |
#1
………………..,-~*’`¯lllllll`*~,
…………..,-~*`lllllllllllllllllllllllllll¯`*-, ………,-~*llllllllllllllllllllllllllllllllllllllllllll*-, ……,-*lllllllllllllllllllllllllllllllllllllllllllllllll lllll.\ ….;*`lllllllllllllllllllllllllll,-~*~-,llllllllllllllllllll\ …..\lllllllllllllllllllllllllll/………\;;;;llllllllllll,-`~-, …...\lllllllllllllllllllll,-*………..`~-~-,…(.(¯`*,`, …….\llllllllllll,-~*…………………)_-\..*`*;..) ……..\,-*`¯,*`)…………,-~*`~.………….../ ……...|/.../…/~,…...-~*,-~*`;……………./.\ ……../.../…/…/..,-,..*~,.`*~*…………….*...\ …….|.../…/…/.*`...\...……………………)….)¯`~, …….|./…/…./…….)……,.)`*~-,……….../….|..)…`~-, ……/./.../…,*`-,…..`-,…*`….,---…...\…./…../..|……...¯```*~- …...(……….)`*~-,….`*`.,-~*.,-*……|…/.…/…/…………\ …….*-,…….`*-,...`~,..``.,,,-*……….|.,*...,*…|…...\ ……….*,………`-,…)-,…………..,-*`...,-*….(`-,… |
![]() |
Registriert seit: 23. Jan 2008 3.687 Beiträge Delphi 2007 Enterprise |
#2
Delphi-Quellcode:
... 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*.
while foo.ControlCount>0 do
foo.Controls[0].Free;
"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)
|
![]() |
thomas2009
(Gast)
n/a Beiträge |
#3
Vielleicht besser testen
![]()
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
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. |
![]() |
Registriert seit: 5. Jan 2005 Ort: Stadthagen 9.454 Beiträge Delphi 10 Seattle Enterprise |
#4
![]() 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) |
![]() |
Registriert seit: 23. Jan 2008 3.687 Beiträge Delphi 2007 Enterprise |
#5
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)
|
![]() |
Ansicht |
![]() |
![]() |
![]() |
ForumregelnEs 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
|
|
Nützliche Links |
Heutige Beiträge |
Sitemap |
Suchen |
Code-Library |
Wer ist online |
Alle Foren als gelesen markieren |
Gehe zu... |
LinkBack |
![]() |
![]() |