Criar componentes em tempo de execução - Interessante!

Delphi

08/07/2003

Boa tarde!!

Pessoal, tou desenvolvendo um sistema aonde o usuário pode disparar outros aplicativos apartir dele, basicamente ele estipula o path do executável e é criado no formulário um botão com o ícone do executável e ao clicar nele o programa é disparado ( ao menos era para funcionar assim se eu soubesse como fazê-lo), por exemplo: o usuário especifica como caminho para o executável o c:\windows\system32\calc.exe (calculadora) e então automaticamente será criado um botão no formulário com o ícone do aplicativo, no caso da calculadora e ao clicar nele ira disparar a calculadora. A grande dúvida é a seguinte : COMO FAZER ISSO? :D

Valeu!

Angelo


Angelo

Angelo

Curtidas 0

Respostas

E_gama

E_gama

08/07/2003

Crie um form com um componente TButton (bem a direita do form...), e
copie o codigo abaixo para sua Unit...
quando executar a aplicacao, clique no botao para testar...

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure CliqueBotao(Sender: TObject);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var Btn: TButton;
    Y: Integer;
begin
  Y           := 10;
  Btn         := TButton.Create(Self);
  Btn.Left    := 10;
  Btn.Top     := Y;
  Btn.Caption := ´Botão 001´;
  Btn.OnClick := CliqueBotao;
  Btn.Parent  := Self;
  Btn.Visible := True;

  Y           := Y + 30;
  Btn         := TButton.Create(Self);
  Btn.Left    := 10;
  Btn.Top     := Y;
  Btn.Caption := ´Botão 002´;
  Btn.OnClick := CliqueBotao;
  Btn.Parent  := Self;
  Btn.Visible := True;

  Y           := Y + 30;
  Btn         := TButton.Create(Self);
  Btn.Left    := 10;
  Btn.Top     := Y;
  Btn.Caption := ´Botão 003´;
  Btn.OnClick := CliqueBotao;
  Btn.Parent  := Self;
  Btn.Visible := True;
end;

procedure TForm1.CliqueBotao(Sender: TObject);
begin
  ShowMessage(´Clicou o botao: ´ + (Sender as TButton).Caption);
end;

end.



GOSTEI 0
E_gama

E_gama

08/07/2003

Baixe um exemplo:

[url]www.salesiano.com.br/egama/ClubeDelphi.zip[/url]


GOSTEI 0
POSTAR