The Question. Simply Question. [D6, WinXP]
PaRL © (2002-04-18 18:06:00)
Есть два вопроса. Хотелось бы получить внятные ответы:)
Первый.
Старо как мир. Как сделать так, чтобы форма была всегда
поверх главной.
Второй.
Есть TreeView. В нем допустим три узла один в другом:
Первый узел
|_Второй узел
|_Третий узел
Нажимаю два раза на третий - в TEdit выводится Первый узел,
Второй и Третий через пробелы. Как сделать
ЗЫ PLZ
vlv (2002-04-18 18:17:00) [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;
Наверх 
ЧАТ |
Орешник |
|
