freepascal.ru

dangreen писал(а):ути какие капризульки нашлись

dangreen писал(а):нафиг от таких помощь не нужна

v-t-l писал(а):

Код: Выделить всё

TreeView1.RightClickSelect:=True;

procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   if Button = mbRight then
   begin
    TreeView1.RightClickSelect:=True;
    TreeView1Click(Sender);
   end;
end;    

dangreen писал(а):итого результат

Код: Выделить всё

    procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    begin
       if Button = mbRight then
       begin
        TreeView1.RightClickSelect:=True;
        TreeView1Click(Sender);
       end;
    end;  

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
  if Node = nil then
    TreeView1.PopupMenu := nil
  else
    TreeView1.PopupMenu := PopupMenu1;
end;

Padre_Mortius писал(а):Я бы не рекомендовал пользоваться нестабильным и заброшенным компонентом... Лучше использовать Synapse для таких целей или libcurl

Padre_Mortius писал(а):Я бы не рекомендовал пользоваться нестабильным и заброшенным компонентом... Лучше использовать Synapse для таких целей или libcurl

так, поставил компонент, но что писать в юзесах!?