[delphi-br] Eventos de um Form Dinamico

Tue, 27 Mar 2007 12:41:27 -0800 

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]

Responder a