arrastar conte�do de um button para outro button

Question

Ol� caros colegas estou com um problema no meu projeto, tenho uma tela com 5 buttons cada button contem informa��es do aluno como c�digo
nome, a� vamos supor que ele queira mudar de m�quina, como farei para arrastar o conte�do do button para um outro button qualquer

Atenciosamente,
Izaias

Izaias · Answer

Quando me referi em arrastar o conte�do para outros buttons � q eu preciso que seja arrastado com o mouse para outro button atenciosamente         Izaias...

R�mulo Barros · Answer

Como??????????? Se vc n�o arrastar com o mouse, como � que voc� arrastaria??? com o teclado?Explica melhor isso da�, que eu quero te dar uma forcinha.... :P...

Beppe · Answer

Eu n�o te entendi muito bem, mas vamos l�...

Em cada bot�o de destino, configure o evento OnDragOver para:

procedure TForm1.Button1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := (Sender <> Source) and (Source is TButton);
end;

E no OnDragDrop dos mesmos:

procedure TForm1.Button1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  TButton(Sender).Caption := TButton(Source).Caption;
end;

Nos bot�es de origem, mude a propriedade DragMode para dmAutomatic.

Vale lembrar que o conjunto de origens pode ser igual ao conjunto de destinos.

Izaias · Answer

Obrigado beep pela for�a vou tentar para ver c vai dar certo, � um sisteminha tipico de lan house s� q para um col�gio onde s�o 5 m�quinas e refiro as m�quinas para os 5 buttons entendeu agora, onde cada aluno com sua referente matr�cula, nome e tempo logado na m�quina ficaram por isso q eu precisava desse c�digo pois c o aluno fosse mudar para uma outra m�quina eu s� arrataria o tempo e os dados dele para outro button, mas esse c�digo q vc me deu vou testa-lo amanh�

obrigado novamente,
izaias

Izaias · Answer

Obrigado beep pela for�a vou tentar para ver c vai dar certo, � um sisteminha tipico de lan house s� q para um col�gio onde s�o 5 m�quinas e refiro as m�quinas para os 5 buttons entendeu agora, onde cada aluno com sua referente matr�cula, nome e tempo logado na m�quina ficaram por isso q eu precisava desse c�digo pois c o aluno fosse mudar para uma outra m�quina eu s� arrataria o tempo e os dados dele para outro button, mas esse c�digo q vc me deu vou testa-lo amanh�

obrigado novamente,
izaias

Beppe · Answer

S� altera o DragDrop:[code:1:de0be2e72e]procedure TForm1.Button1DragDrop(Sender, Source: TObject; X, Y: Integer); var  Temp: String;begin   Temp := TButton(Sender).Caption;   TButton(Sender).Caption := TButton(Source).Caption;   TButton(Source).Caption := Temp; end;[/code:1:de0be2e72e]...

F�rum arrastar conte�do de um button para outro button #213378