tetri

Alguém tem um código deste método?

Mesmo esquema da resposta anterior, mas agora não deixando que o primeiro número seja igual a 0 procedure TForm1.Button1Click(Sender: TObject); var temp:string; cont:integer; begin temp:=''; for cont:=1 to 8 do begin temp:=temp+IntToStr(random(9)); while temp[1]='0' do temp:=IntToStr(random(9)); end; Edit1.Text:=temp; end;

O código abaixo serve para um formulário contendo um botão (Button1) e um edit (Edit1)... Quando o botão é pressionado, o edit recebe o valor randômico (com 8 caracteres) assim como pedido: procedure TForm1.Button1Click(Sender: TObject); var temp:string; cont:integer; begin for cont:=1 to 8 do begin temp:=temp+IntToStr(Random(9)); end; Edit1.Text:=temp; end; sou iniciante, mas to manjando

São abas... Componente Win32 - TabControl ou PageControl (não sei qual usar...)