Como fazer uma procedure em tempo de execu��o

Question

Estou fazendo um programa onde preciso inserir objetos images em um panel em tempo de execu��o. Isso eu j� consegui fazer, o problema � que eu n�o sei como devo fazer para implementar os eventos deste...

Rafael Heise · Answer

voc� deve criar uma procedure para cada evento que voc� quer...
e ent�o, quando uma determinada figura for desenhada, voc� associa tamb�m a sua procedure ao evento...
Panel.OnMouseDown := SuaProcedure;
lembrando que a sua procedure deve ter os mesmos par�metros do evento ao qual voc� quer associar...

Marcelo Saviski · Answer

Exemplo B�sico:[code:1:0866a36509]  TForm = class    .....  protected    {protected declaration}  public    //DIGITE ISSO ABAIXO    procedure ImageMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);    procedure ImageMouseUp(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);    procedure ImageMouseMove(Sender: TObject;Button: TMouseButton;Shift: TShiftState; X, Y: Integer);  //DEPOIS TECLE CTRL+SHIFT+C  end;[/code:1:0866a36509]Depois disso ser�o criados os procedimentos, vc coloca o c�digo nescessario nelas, Sender � o Objeto que chamou o evento, ou seja, o que foi clicadona hora em que voc� criar os Images, faca assim:[code:1:0866a36509]ImageCriado.OnMouseDown := IMageMouseDown;ImageCriado.InMouseUp := ImageMouseUp;ImageCriado.OnMouseMove := ImageCriadoMouseMove;[/code:1:0866a36509]OK?...

F�rum Como fazer uma procedure em tempo de execu��o #224498