Jump to content
Fórum Script Brasil
  • 0

Como determinar um tanto de button em...


Guest Robinho_Inciante

Question

Guest Robinho_Inciante

Olá, sou novo em programação, e estou fazendo uns botões em tempo de execução, mas eu queria colocar tipo um total de button que quero que aparecessa fiz dessa maneira, e como eu faço isso?

procedure TForm1.FormCreate(Sender: TObject);
var  Button : TButton;
    i : Integer;
begin

   For i := 1 To  6 do
      begin
         Button := TButton.Create (Self);
         With Button do
            begin
               Left := 48;
               Parent := Form1;
               end;
       end;
end;

Link to comment
Share on other sites

4 answers to this question

Recommended Posts

  • 0

procedure TForm1.FormCreate(Sender: TObject);
var  Button : TButton;
    i, a, b  : Integer;
begin
   a := 10;
   b := 40;
   For i := 1 To  6 do
      begin
         Button := TButton.Create (Self);
         With Button do
            begin
               Top := a;
               Left := b;
               Parent := Form1;
            end;
         a := a + 30;  // 06 botoes na vertical
         //b := b + 75; // 06 botoes na horizontal
       end;

end;

OBS: o codigo acima mostra 6 botoes na vertical, se desabilitar a linha de codigo a:= a+ 30 e habilitar a linha b := b+75 voce tera 6 botoes na horizontal, e se deixar as duas linhas habilitadas tera 06 botoes na diagonal

abraço

Link to comment
Share on other sites

  • 0
Guest Robinho_Inciante
procedure TForm1.FormCreate(Sender: TObject);
var  Button : TButton;
    i, a, b  : Integer;
begin
   a := 10;
   b := 40;
   For i := 1 To  6 do
      begin
         Button := TButton.Create (Self);
         With Button do
            begin
               Top := a;
               Left := b;
               Parent := Form1;
            end;
         a := a + 30;  // 06 botoes na vertical
         //b := b + 75; // 06 botoes na horizontal
       end;

end;

OBS: o codigo acima mostra 6 botoes na vertical, se desabilitar a linha de codigo a:= a+ 30 e habilitar a linha b := b+75 voce tera 6 botoes na horizontal, e se deixar as duas linhas habilitadas tera 06 botoes na diagonal

abraço

Deu certo, sim!

Mas gostaria de saber se tem como eu colocar um icone nesses botões, tem que fazer tipo assim:

Glyph := \c:arquivos.....

Tem que colocar o caminho e o nome do icone, como eu faço?

Link to comment
Share on other sites

  • 0

Opa

Basta trocar o tipo para TBitBtn e utilizar a propriedade Glyph

uses

Buttons;

procedure TForm1.FormCreate(Sender: TObject);
var
  Button : TBitBtn;
  i, a, b : Integer;
begin
   a := 10;
   b := 40;
   For i := 1 To  6 do
      begin
         Button := TBitBtn.Create(Self);
         With Button do
            begin
               Top := a;
               Left := b;
               Parent := Form1;
               Caption := 'Botão ' + IntToStr(i);
               Glyph.LoadFromFile('C:\Glyph.bmp');
            end;
         a := a + 30;  // 06 botoes na vertical
         //b := b + 75; // 06 botoes na horizontal
       end;

end;

abracos

Link to comment
Share on other sites

  • 0
Guest Robinho_Inciante
Opa

Basta trocar o tipo para TBitBtn e utilizar a propriedade Glyph

uses

Buttons;

procedure TForm1.FormCreate(Sender: TObject);
var
  Button : TBitBtn;
  i, a, b : Integer;
begin
   a := 10;
   b := 40;
   For i := 1 To  6 do
      begin
         Button := TBitBtn.Create(Self);
         With Button do
            begin
               Top := a;
               Left := b;
               Parent := Form1;
               Caption := 'Botão ' + IntToStr(i);
               Glyph.LoadFromFile('C:\Glyph.bmp');
            end;
         a := a + 30;  // 06 botoes na vertical
         //b := b + 75; // 06 botoes na horizontal
       end;

end;

abracos

Tá dando esse erro:

Project Project1.exe raised exception class EFOpenError with message 'Cannot open file "C:\Obs". O sistema não pode encontrar o arquivo especificado'.Process stopped. Use Step or Run to continue.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152k
    • Total Posts
      651.6k
×
×
  • Create New...