Einzelnen Beitrag anzeigen

Noobinator

Registriert seit: 9. Mai 2006
147 Beiträge
 
Delphi 7 Personal
 
#4

Re: Per Befehl Checkbox erstellen

  Alt 17. Feb 2008, 14:05
Dabei würde ich aber mindestens noch einen Namen setzen, damit man auf diese zugreifen kann.

Delphi-Quellcode:
with TCheckBox.Create(self) do
  begin
    Parent := self;
    Top := 10;
    Left := 10;
    Height := 10;
    Width := 10;
    name := 'mybox';
  end;

//Beispielzugriff per findcomponent.
...
Tcheckbox(findcomponent('mybox')).checked := not Tcheckbox(findcomponent('mybox')).checked;
...
wenn nicht sogar:

Delphi-Quellcode:
var mybox:Tcheckbox;

mybox := Tcheckbox.create(self);
with mybox do
  begin
    Parent := self;
    Top := 10;
    Left := 10;
    Height := 10;
    Width := 10;
    name := 'mybox';
  end;
  Mit Zitat antworten Zitat