Hmm also ich denke ich poste den "gesamten" Code nochmal, eventuell ist im Zusammenhang alles etwas klarer...
Delphi-Quellcode:
constructor TLCComputer.Create(NName, NIP:
string; Column, Row: integer; NOwner: TWinControl);
begin
inherited Create(NOwner);
Parent := NOwner;
Width := cComputerWidth;
Height := cComputerHeight;
Name := TLabel.Create(self);
Name.Parent := self;
Name.Caption := NName;
Name.Left := Column * (cComputerWidth + cComputerSpaceV);
Name.Top := Row * (cComputerHeight + cComputerSpaceH);
IP := TLabel.Create(self);
IP.Parent := self;
IP.Caption := NIP;
IP.Left := Column * (cComputerWidth + cComputerSpaceV);
IP.Top := Row * (cComputerHeight + cComputerSpaceH) + 10;
end;
Und die Erstellung der Klasseninstanz:
Delphi-Quellcode:
procedure TFrmLC.BtnAddComputerClick(Sender: TObject);
var
Name,
IP:
string;
Column, Row: integer;
begin
Name := InputBox('
Computername', '
Bitte geben Sie einen Computernamen an:', '
');
IP := InputBox('
IP-Adresse', '
Bitte geben Sie die IP-Adresse des Computers an:', '
');
SetLength(Computers, Length(Computers) + 1);
Computers[Length(Computers)-1] := TLCComputer.Create(
Name,
IP, Column, Row, self);
end;
Keine Laufzeitfehler, keine Compilerfehler, läuft einwandfrei nur passieren tut nix ^^
//edit: mir ist bewusst dass durch fehlende Angabe von Column und Row die Left und Top-Werte der label 0 werden, aber das ist ja nicht schlimm