WestByte Support Forum

Code: Select all

procedure EventRaised(eventType: string; eventData: string);
begin
  if eventType = 'dm_download_added' then
    ShowMessage('Added ID = ' + eventData);
end;
begin
end.

Code: Select all

var
  f: TForm;
  b: TButton;
  
procedure EventRaised(eventType: string; eventData: string);
begin
  if eventType = 'dm_download_added' then
    ShowMessage('Added ID = ' + eventData);
end;

procedure ButtonClick(Sender: TButton);
begin
  ShowMessage(DoAction('GetDownloadIDsList', '2'));
  f.ModalResult := mrOk;
end;

begin
  f := TForm.Create(nil);
  f.Caption := 'Test it!';
  f.BorderStyle := bsDialog;
  f.Position := poScreenCenter;
  b := TButton.Create(f);
  b.Name := 'Button1';
  b.Parent := f;
  b.SetBounds(10, 10, 75, 25);
  b.Caption := 'Test';
  b.OnClick := @ButtonClick;
  f.ShowModal;
  f.Free;
end.