quarta-feira, 25 de novembro de 2009

Criando evento em tempo de execução

Memo.onchange := memo1Change;

procedure TForm1.Memo1Change(Sender: TObject);
begin
panel1.caption:='Conteúdo alterado';
end;

Nenhum comentário:

Postar um comentário