Fórum Personalização campos em execução programa #595861

31/07/2018

0

Delphi

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

Responder

Posts

31/07/2018

Felipe Morais

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!
Responder

Gostei + 0

31/07/2018

Marcelo Duarte

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.
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar