Tentei assim tambem :
type
TEventHandlers = class // create a dummy class
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState) ;
end;
....
var EvHandler:TEventHandlers;
implementation
.....
procedure TEventHandlers.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState) ;
begin
if key = VK_ESCAPE then
TForm(Sender).Close;
end;
.....
Frm.OnKeyDown := FormKeyDown;
Mas da erro dizendo que não conhece ...
Preciso dar um ESC e sair do formulário criado dinamicamente.
Obrigado
Rodrigo Bevilacqua Marcondes
----- Mensagem original ----
De: Rodrigo Bevilacqua Marcondes <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 27 de Março de 2007 17:40:07
Assunto: [delphi-br] Eventos de um Form Dinamico
Prezados colegas,
Como associo Evento ao meus form criado dinamicamente ? ? Estou fazendo em uma
unit separada !
Assim da erro!!!
procedure MostraObs(Caption: String; _Top, _Left : Integer; Obs : String);
var
Frm : TForm;
MM : TMemo;
function Frm_KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState) : TNotifyEvent;
begin
if key = VK_ESCAPE then
Frm.Close;
end;
begin //principal
Frm := TForm.Create(nil);
try
Frm.Width := 360;
Frm.Height := 240;
Frm.Top := _Top;
Frm.Left := _Left;
Frm.BorderStyle:= bsSizeable;
frm.BorderIcons := frm.BorderIcons - [biMaximize];
frm.BorderIcons := frm.BorderIcons - [biMinimize];
Frm.Caption := 'Observações de '+Caption;
MM := TMemo.Create(nil);
try
MM.Parent:= Frm;
MM.Align := alClient;
MM.Lines.Add(Obs);
Frm.OnKeyDown := Frm_KeyDown;
Frm.ShowModal;
finally
MM.Free;
end;
finally
Frm.Free;
end;
end; //MostraObs
Obrigado
Rodrigo Bevilacqua Marcondes
__________________________________________________
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
__________________________________________________
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
