Na verdade a procedure que dispara o evento não está de fato no código, porque
não sei onde colocar ela. Onde declaro ela? Onde descrevo?
procedure EventoClick;
var DA: TJvDesktopAlert;
begin
DA.Close(FALSE) ;
end;
----- Mensagem original ----
De: dercino <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 20 de Setembro de 2007 11:10:12
Assunto: Fwd: Res: Res: [delphi-br] componentes criados dinamicamente
O que está acontecendo? E evento não está sendo executado?
--- Em [EMAIL PROTECTED] os.com.br, Fabinho <gatascheguei@ ...>
escreveu
Na verdade não é um TButton que estou trabalhando, é um
TJvDesktopAlert. Usei o TButton para tentar ser mais simples. Peço
desculpas pela explicação ruim. Vou tentar ser mais claro: copiei
apenas a parte relevante do código, na qual explico as partes em
negrito:
- JvDesktopalert: é o component do Project Jedi, que mostra um aviso
semelhante ao do MSN Messenger;
- Mens: registro que cria o JvDesktopalert. Como serão criados
vários dinamicamente, optei por fazer assim.
- alarmes: variável de referência ao record.
- OnMessageClick: Evento nativo do componente JvDesktopalert.
- EventoClick: é o meu evento em si, que teoricamente dispara o
OnMessageClick. Esse evento está perdido lá embaixo, pois não sei
onde colocá-lo.
Espero ter esclarecido. Agradeço antecipadamente qualquer ajuda.
unit un_hospedagens;
interface
uses
(...), JvDesktopAlert;
type
TDespertador = record
Mens : TJvDesktopAlert;
end;
Tfo_hospedagens = class(TForm)
private
{ Private declarations }
alarmes : array of Tdespertador;
public
{ Public declarations }
end;
var
fo_hospedagens: Tfo_hospedagens;
implementation
{$R *.dfm}
procedure Tfo_hospedagens. btAlarmeClick( Sender: TObject);
begin
setlength(alarmes, length(alarmes) + 1);
with alarmes[high( alarmes)] do
begin
Mens := TJvDesktopAlert. Create(self) ;
with Mens do
OnMessageClick := EventoClick;
end;
end;
end;
// segue o evento perdido
procedure EventoClick;
var DA: TJvDesktopAlert;
begin
DA.Close(FALSE) ;
end;
Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr.com.br/
[As partes desta mensagem que não continham texto foram removidas]
