Fórum Duplo click #339817

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.