Amigos se que este tema esta agotado para mover componentes en runtime, y hay algunos ejemplos en clubdelphi, ya he ebuscado bastante eso, pero no me funciona con el componente
TSpeedButton , necesito que sea ese componente porque ya tengo todo para el y he programado muchas cosas, pensé que la rutina de moverlo en corrida era igual que los demás y deje eso para ultimo y ahora cuando pruebo funciona, no hace nada, con un tbutton si, pero no en los TSpeedButton .
Pensé que era por tenerlo dentro de Tcontrol de esta forma
Código Delphi
[-]
tcontrol( SpeedButton1).Perform(WM_SYSCOMMAND, $F012, 0);
y lo puse
Código Delphi
[-]
SpeedButton1.Perform(WM_SYSCOMMAND, $F012, 0);
y de esta manera no hace nada tampoco, esto lo pruebo con cualquier otro componente y funciona perfecto. Alguna idea.
Código Delphi
[-]
procedure TForm1.SpeedButton1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
tcontrol( SpeedButton1).Perform(WM_SYSCOMMAND, $F012, 0);
end;