Duplo click

Delphi

03/04/2007

Ola Pessoal,

Tenho quatro Componetes do Tipo TPanel que efetuo DragDrop entre eles, porém os mesmos também possuem evento DblClick...

Se habilito o DragDrop o DblClick não funciona e vice-versa..

Alguem pode me ajudar uma vez q preciso destes dois eventos???

:)


Fernando Piccini

Fernando Piccini

Curtidas 0

Respostas

Adriano Santos

Adriano Santos

03/04/2007

Posta o codigo do evento de ambos pra olharmos, pois uma coisa não tem a ver com a outra. Os eventos funcionam individualmente.


GOSTEI 0
Fernando Piccini

Fernando Piccini

03/04/2007

Procurei resumir em um pequeno programinha minha rotina, ou seja, tenho dois panels, que o DragDrop funciona mas o DblClick nelas não...


var
  Form1  : TForm1;

implementation

{$R *.dfm}

procedure TForm1.Panel1DblClick(Sender: TObject);
begin
  ShowMessage(´Duplo clique no Panel << 1 >>´);
end;

procedure TForm1.Panel2DblClick(Sender: TObject);
begin
  ShowMessage(´Duplo clique no Panel << 2 >>´);
end;

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

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

procedure TForm1.Panel1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
if (TPanel(Source).Top > TPanel(Sender).Top) then
   TPanel(Source).Top := TPanel(Sender).Top - 1
else
   TPanel(Source).Top := TPanel(Sender).Top + 1;
end;

procedure TForm1.Panel2DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
if (TPanel(Source).Top > TPanel(Sender).Top) then
   TPanel(Source).Top := TPanel(Sender).Top - 1
else
   TPanel(Source).Top := TPanel(Sender).Top + 1;
end;

end.



GOSTEI 0
Fernando Piccini

Fernando Piccini

03/04/2007

Alguém pode dar um força ai...postei ai um trecho do que estou tentando fazer mas ainda não esta funcionando


vlw


GOSTEI 0
Fernando Piccini

Fernando Piccini

03/04/2007

Ola Adriano,

Enviei o codigo...será q pode ajudar??


GOSTEI 0
POSTAR