Ver Mensaje Individual
  #1  
Antiguo 13-04-2013
juank1971 juank1971 is offline
Miembro
 
Registrado: feb 2008
Posts: 230
Reputación: 17
juank1971 Va por buen camino
Mover TSpeedButton en Runtime

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;
Responder Con Cita