Criar Componentes

[Guest - Tulio -]

E aí galera!

Estou criando um componente tipo PopupMenu que exporta dados do dbgrid para o excel. A linha d comando do constructor esta ai. Preciso saber como fazer para que quando clicar na opcao Exportar para Excel como dar o onclick dele.

constructor TExportToExcel.Create(AOwner : TComponent);

begin

inherited Create(AOwner);

TPopup := TPopupMenu.Create(Self);

MenuItem := TMenuItem.Create(TPopup);

MenuItem.Name := 'Exportar';

MenuItem.Caption := 'Exportar para Excel';

TPopup.Items.Insert(0,MenuItem);

end.

[Micheus]

Preciso saber como fazer para que quando clicar na opcao Exportar para Excel como dar o onclick dele.

constructor TExportToExcel.Create(AOwner : TComponent);
begin
  inherited Create(AOwner);

  TPopup := TPopupMenu.Create(Self);
  MenuItem := TMenuItem.Create(TPopup);

  MenuItem.Name := 'Exportar';
  MenuItem.Caption := 'Exportar para Excel';
  MenuItem.OnClick := ExportarClick;   // <<====
  TPopup.Items.Insert(0,MenuItem);
end;

procedure TExportToExcel.ExportarClick(Sender: TObject);
begin
  <aqui vai o código para exportação>
end;

você deverá criar um procedimento a ser executado quando a opção for selecionada. O evento OnClick é do tipo TNotifyEvent, o que nos diz que o procedimento deverá ser criado dentro da sua definição: procedure (Sender: TObject) of object;

Era isso?

[Guest Visitante]

é isso mesmo... vlw ai Micheus.

Funcionou certinho