Помогите справиться с задачей

[Maxizar]

ути какие капризульки нашлись

Зря Вы так, я не хотел Вас обидеть. Но Вы подумайте, мы же не знаем толком, что вы хотите сделать, какой код, ну нет у нас телепатов

нафиг от таких помощь не нужна

Хорошо, больше не буду помогать.

[v-t-l]

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

TreeView1.RightClickSelect:=True;

[Ism]

Кажется надо вводить в правилах регистрации требование Сертификата пользователя Google , а так же свидетельство прохождения "курсов хороших манер"

[dangreen]

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

TreeView1.RightClickSelect:=True;

вот всем помощникам помощник! четкий ответ на вопрос

спасибо огромное , v-t-l !

итого результат

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

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;   

[v-t-l]

итого результат

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

    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; 

все это лишнее .
Достаточно в инспекторе объектов установить у TreeView1 свойство PopupMenu в PopupMenu1 (или как там у вас), а свойство RightClickSelect в значение True и никаких обработчиков TreeView1MouseDown и TreeView1Click не надо!!!

Добавлено спустя 16 минут 27 секунд:
Разве что, добавить обработчик, чтобы при щелчке правой кнопкой мыши мимо элементов дерева контекстное меню не появлялось:

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

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

[dangreen]

2xСпасибо!

Добавлено спустя 12 минут 32 секунды:
Select и Click разные вещи , а мне нужен именно Click так что то что у меня в моем случае правильно

[dangreen]

теперь пытаюсь к проге привязать фтп
решил поставить LNET
при установке пакета такая фигня http://puu.sh/17hE
на всяк случай пробывал в юзес писать lnet , не находит компанент
помогите плз

[Padre_Mortius]

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

[dangreen]

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

я пытался о них чтонить узнать, ну ни примеров и ничего толком оних найти не смог, а про lnet я нашел
если вам будет не трудно то можете скинуть ссылки где дана вся инфа о данных компонентах?

[Padre_Mortius]

где-то тут на форуме лежит пример работы с ftp через synapse

[Максим]

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

Не понял про нестабильность и заброшенность.
Версия LNet 0.6.4 была выпущена в мае прошлого года, и нормально ставится и работает как в Lazarus 0.9.30, так и в Lazarus 0.9.31 под Windows, например.

У dangreen, судя по всему, проблемы возникли из-за используемой им операционной системы. Ну никто не тестировал LNet под ней и не заявлял о её поддержке.

[dangreen]

synapse в лазаре по умолчанию есть?
если нет то где скачать и как поставить
и что в юзесах писать?
пример нашел на офф странице

Добавлено спустя 15 часов 37 минут 21 секунду:
так, поставил компонент, но что писать в юзесах!?

[dangreen]

ну ответьте уже ктонибуть плз

[kosteek]

http://www.ararat.cz/synapse/doku.php

Indy?

[Padre_Mortius]

dangreen
synapse это самостоятельные модули для работы в рантайм без оформления в компоненты, т.е. в блоке uses прописываются только необходимые модули

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

а что за компонент вы поставили?

P.S. может все-таки стоит что-нить почитать? Например, книжку по Lazarus, которая лежит на этом сайте.