unit PrimieroComponente;
interface
uses
SysUtils, Classes, Dialogs,IdMessage, IdSMTP, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdMessageClient, IdPOP3;
type
TMode = (tipo1, Tipo2);
TTesteEvent = procedure(var Vl: Integer) of object;
TPrimieroComponente = class(TComponent)
private
{ Private declarations }
FMode: TMode;
Fevent: TTesteEvent;
FAtivo: boolean;
FValor: Integer;
FResultado: string;
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
property Event: TTesteEvent read fEvent write fEvent;
property Mode: TMode read FMode write FMode;
property Resultado: string read FResultado write FResultado;
procedure Functiom(Value: boolean);
property Ativo: boolean read FAtivo write Functiom default true;
property Valor: integer read FValor write FValor default 0;
constructor Create(AOwner: TComponent); override;
end;
procedure Register;
implementation
procedure TPrimieroComponente.Functiom(Value: boolean);
var a: integer;
begin
Event(a);
FResultado := ('Teste ' + IntTostr(a + Valor + 12));
end;
function Enviar(De, CC, Assunto, UserNm, Senha, ServSmtp: string; Para, CorpoM:
TStringList): Boolean;
type
IdSMTP1 = TIdSMTP;
IdPOP31 = TIdPOP3;
IdMessage1 = TIdMessage;
var i: Integer;
begin
Result := True;
with IdMessage1 do //Composição da mensagem:
begin
//if not (LBAnexos.Items.Count = 0) then
//for i := 0 to LBAnexos.Count - 1 do
//TidAttachment.Create(MessageParts, TFileName(LBAnexos.Items[i]));
Body.Assign(CorpoM); //Corpo da mensagem
From.Text := '"Apelido" remente...@provedor.com.br'
ContentType := 'text/HTML'; // Aqui permite que seu email tenha tags html!
Recipients.EMailAddresses := Trim(lBDestinatario.items[Para]);
//Destinatários
//ReceiptRecipient.Text := From.Text; // Auto Resposta
Subject := Assunto; //Assunto
CCList.EMailAddresses := ''; //Com cópia para
end;
IdSMTP1.Host := ServSmtp; //endereço SMTP do servidor
IdSMTP1.Port := 25; //Porta do Servidor
IdSMTP1.Username := UserNm; //Sua conta no servidor
IdSMTP1.Password := Senha; //sua senha no servidor
IdSMTP1.Connect; //conecta ao servidor
try
try
IdSMTP1.Send(IdMessage1); //envia a mensagem
except
Result := false;
end;
finally //quando terminar de enviar
IdSMTP1.Disconnect; //disconecta
end;
end;
constructor TPrimieroComponente.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
//Envento ao criar componente no form
//Functiom(True);
end;
procedure Register;
begin
RegisterComponents('Coleção', [TPrimieroComponente]);
// RegisterPropertyEditor(TypeInfo(String), TSkinData,
'SkinStore',TWinSkinStore);
end;
end.
--- Em delphi-br@yahoogrupos.com.br, Ricardo Rocha <ricardo_r...@...> escreveu
>
> Olá,
> Alguém aqui do grupo já criou um componente para Delphi?
> Estou precisando de transformar um formulário em um componente, alguém sabe
> os
> procedimentos para fazer esse tipo de componente.
>
> Vou dar um exemplo.
> Tenho um componente feito pelo Luciano Pimenta da DevMedia onde, que executa
> um
> formulário de busca que está dentro do componente!
>
> Obrigado a todos.
>
>
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
