Forum: Object-Pascal / Delphi-Language
Delphi
by nobody_anfänger,
5. Mär 2006
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=1 to 47 do
begin
SKreis:=TShape.Create(self);
SKreis.SetBounds(i*2,i*2,30,30);
SKreis.brush.color:=clred;
SKreis.Visible:=True;
repaint;
Forum: Object-Pascal / Delphi-Language
Delphi
by nobody_anfänger,
5. Mär 2006
jetzt hab ich das problem, das der fehler not enought parapeters angezeigt wird.
procedure TForm1.FormClick(Sender: TObject);
var i:integer;
begin
for i:=1 to 47 do
begin
SKreis:= TShape.Create;
SKreis.SetBounds(i,i,30,30);
Forum: Object-Pascal / Delphi-Language
Delphi
by nobody_anfänger,
4. Mär 2006
begin
for i:=1 to 47 do
begin
SKreis.visible:=true;
SKreis.width:=30;
Skreis.Height:=30;
SKreis.brush.color:=clred;
SKreis.Top:=i;
SKreis.left:=i;
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by nobody_anfänger,
4. Mär 2006
ich weiß ihr werdet mich ehr oder weniger für dumm erklären, aber ich hab keine ahnung wie ich die erstelltetn Shapes anzeigen soll, wenn ich sie als arry erstellt hab.