Personalização campos em execução programa

Delphi

31/07/2018

Bom dia, alguém saberia me informar como personalizar campos do sistema em tempo de execução, o que queria fazer é isto https://youtu.be/BkxK_1q2s6o lá por 1m40s a personalização de campos em modo de execução alguém teria ideia de como fazer?
Marcelo Duarte

Marcelo Duarte

Curtidas 0

Respostas

Felipe Morais

Felipe Morais

31/07/2018

Mfdzerohour,

Se você está referindo o arraste dos campos, sugiro estudar o evento OnDragDrop do formulário. Por exemplo, o código abaixo arrasta um componente no formulário em tempo de execução:

procedure TForm1.FormDragDrop(Sender, Source: TObject; X, Y: Integer) ;
begin
  if Source is TImage then
  begin
    TImage(Source).Left := X;
    TImage(Source).Top := Y;
  end;
end;


É preciso ainda manipular o evento OnDragOver para que o formulário aceite o controle sendo arrastado, neste caso o componente Image1:

procedure TForm1.FormDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean) ;
begin
  Accept := (Source is TImage) ;
end;


Espero ter ajudado, abraços!
GOSTEI 0
Marcelo Duarte

Marcelo Duarte

31/07/2018

Boa tarde, tentei fazer mais não consegui, será que conseguiria fazer igual ao vide de poder mover os componentes?<br /><br />
O que consegui fazer foi
https://drive.google.com/open?id=1MHkcHtUzvmrkjEphF_h0TgE1hBgFDm2S
, mais sem nenhum tipo de movimentação.
GOSTEI 0
POSTAR