Un truc genre :
if Source is TControl then
begin
TControl(Source).X := X;
TControl(Source).Y := Y;
end;
Il faudra peut-être convertir les X et Y avec la méthode ClientToScreen de l'objet sur lequel tu déposes le contrôle puis ScreenToClient pour l'objet "parent" (panel, form, etc.)
Message édité par antp le 08-06-2004 à 12:20:19
---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire