Marker text!

EDIT1.SelectAll

Jens B

har jeg prøvet..

uden held..!

Jeg vil have det markeret når jeg klikker på et item i mit TreeView, som befinder sig i en GroupBox...

Min kode ser sårn her ud:

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
If not (TreeView1.Selected = nil) then
Edit1.SelectAll;

end;

end.

hvad giver den af fejl ?

den giver ingen fejl.. der sker bare ikke noget..

prøv at skrive

procedure TForm1.TreeView1Click(Sender: TObject);
begin
  If TreeView1.Selected= nil  then
    exit;

  Edit1.SelectAll;
end;

nope.. der sker stadig ingenting..!

så prøv onClick

Eller check om du kan sætte HideSelection på dit editfelt, jeg kan ikke lige huske om den er på en Edit-ctrl

Edit1.SetFocus;
Edit1.SelectAll;

.. lukker.. intet virkede :|