Форум: "Основная";
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];
ВнизThe Question. Simply Question. Найти похожие ветки
← →
PaRL (2002-04-18 18:06) [0]Есть два вопроса. Хотелось бы получить внятные ответы:)
Первый.
Старо как мир. Как сделать так, чтобы форма была всегда поверх главной.
Второй.
Есть TreeView. В нем допустим три узла один в другом:
Первый узел
|_Второй узел
|_Третий узел
Нажимаю два раза на третий - в TEdit выводится Первый узел, Второй и Третий через пробелы. Как сделать
ЗЫ PLZ
← →
vlv (2002-04-18 18:17) [1]1) FormStyle := fsStayOnTop
2)
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
Node : TTreeNode;
begin
Node := TreeView1.Selected;
if Assigned(Node) then begin
s := Node.Text;
while Assigned(Node.Parent) do begin
Node := Node.Parent;
s := Node.Text + " " + s;
end;
end;
ShowMessage(s);
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c