Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Eventos (https://www.clubdelphi.com/foros/showthread.php?t=36850)

Walcasar 26-10-2006 15:31:13

Eventos
 
Buenas:

He creado en runtime un objeto TShape el cual lo muestro en el Form. ¿Como puedo codificar el OnMouseMove del objeto TShape creado?

Saludos y gracias

maeyanes 26-10-2006 15:38:27

Este tema ya se ha tratado muchas veces en estos foros...

Aun así, aquí te va:

Creas un método con los mismos parámetros que espera el evento OnMouseMove:

Código Delphi [-]
procedure TForm1.ShapeMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  // Lo que desees que realice
end;

Luego, en tú código donde creas al TShape haces:

Código Delphi [-]
begin
  MyShape := TShape.Create(nil);
  MyShape.OnMouseMove := ShapeMouseMove;
  // Sigue tú código...
end;



Saludos...

Walcasar 26-10-2006 15:42:40

Muchas gracias maeyanes por la ayuda.


La franja horaria es GMT +2. Ahora son las 08:58:41.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi