Új hozzászólás Aktív témák

• #1644 Gyuri16 senior tag Prego #1643

  Új Válasz 2008-11-24 20:08:52 #1644

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Gyuri16

  senior tag

  válasz Prego #1643 üzenetére

  const max = 10;
  procedure TForm1.FormCreate(Sender: TObject);
  var
  i:integer;
  begin
  for i:=1 to max do
  with TButton.Create(self) do
  begin
  Caption:='Button '+IntToStr(i);
  Parent:=self;
  Name:='Button'+IntToStr(i);
  Left:=20;
  Top:=i*30;
  end;
  end;

Új hozzászólás Aktív témák