Текущий архив: 2005.07.31;
Скачать: CL | DM;

Вниз

Как перевести TreeView в режим редактирования?   Найти похожие ветки 

← →
Denis555   (2005-07-13 17:51) [0]

Доброго всем времени суток, не подскажет ли кто как програмно перевести TTreeView в режим редактирования узла, что то типа BeginEdit?

---

← →
Игорь Шевченко ©   (2005-07-13 18:05) [1]

SendMessage (TreeView.Handle, TVM_EDITLABEL, 0, ItemHandle)

---

← →
Denis555   (2005-07-14 11:16) [2]

Спасибо, но в Delphi2005 это не работает!
работает следующий код:
PostMessage(TreeView1.Handle, TVM_EDITLABEL, 0, LPARAM(TreeView1.Selected.ItemID));
для тех кто будет использовать константа TVM_EDITLABEL лежит в модуле Commctrl

---

← →
Ega23 ©   (2005-07-14 11:18) [3]

Спасибо, но в Delphi2005 это не работает!

А нафига тогда ты в сабже D7 поставил???

---

← →
Denis555   (2005-07-14 11:22) [4]

это максимум что там можно поставить ни D8 ни D9 там выбрать нельзя и честно говоря думал что от версии Делхи это не зависит

---

← →
Игорь Шевченко ©   (2005-07-14 12:42) [5]

Странно, у меня работает:

unit main;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, ComCtrls;

type
 TfMain = class(TForm)
   TreeView: TTreeView;
   Button: TButton;
   procedure ButtonClick(Sender: TObject);
 end;

var
 fMain: TfMain;

implementation
uses
 CommCtrl;

{$R *.dfm}

procedure TfMain.ButtonClick(Sender: TObject);
begin
 TreeView.SetFocus;
 SendMessage(TreeView.Handle, TVM_EDITLABEL, 0,
   LPARAM(TreeView.Selected.ItemId));
end;

end.

Delphi2005, Win32 personality

---

Страницы: 1 вся ветка

Текущий архив: 2005.07.31;
Скачать: CL | DM;

Наверх

Память: 0.45 MB
Время: 0.04 c