Treeview botão direito do mouse

Delphi

22/08/2005

Pessoal como que eu faço pra selecionar o item dá treeview que está com o ponteiro do mouse sobre ele, porém quero selecionar com o botão direito, quando clico com botão direito ele sempre seleciona o primeiro...


Alexandre_sbo

Alexandre_sbo

Curtidas 0

Respostas

Alexandre_sbo

Alexandre_sbo

22/08/2005

solução :

procedure TForm1.TreeView1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if ( Button = mbRight  ) and Assigned(TTreeView(Sender).GetNodeAt(X,Y)) then
    TTreeView(Sender).GetNodeAt(X,Y).Selected:=True;
end;



GOSTEI 0
POSTAR