есть компонента OpenDialog1 нужно ей в Options выставить

← →
ossa (2003-08-07 10:08) [0]

для св-ва ofHideReadOnly true , как пргограммно(код в проге) это делаеться, не в окне Object Inspector

← →
icWasya (2003-08-07 10:10) [1]

а точно также
OpenDialog1.Options:=OpenDialog1.Options+[ofHideReadOnly];

← →
Reindeer Moss Eater (2003-08-07 10:11) [2]

Options := Options + [ofHideReadOnly];

← →
ossa (2003-08-07 10:20) [3]

Для icWasya & Reindeer Moss Eater
я так делал , а в инспекторе объектов показывает false(т.е почему то в инспекторе не выстовляеться 1), когда
в инспеторе стоит в этом св-ве 1 , а я OpenDialog1.Options:=OpenDialog1.Options-[ofHideReadOnly];
она не выставляет в 0, когда в инспеторе убираю в ручную или ставлю, то все работает корректно, а программно это сделать не получаеться

← →
Reindeer Moss Eater (2003-08-07 10:36) [4]

И
Options := Options + "ofHideReadOnly";
тоже пойдет.

← →
ossa (2003-08-07 10:37) [5]

Всем спасибо, но у вас все неправильно.

← →
Skier (2003-08-07 10:40) [6]

>ossa (07.08.03 10:37)
А Вы, батенька, не путаете случаем RunTime и DesignTime ?

← →
Reindeer Moss Eater (2003-08-07 10:42) [7]

Настоящий Reindeer Moss Eater никогда не постит с адреса
65.73.49.4

У настоящего Reindeer Moss Eater адрес постоянный и неизменный.

← →
Reindeer Moss Eater (2003-08-07 10:54) [8]

>Reindeer Moss Eater (07.08.03 10:42)

Не используй мой ник. Это некрасиво.

← →
Reindeer Moss Smoker (ex-RME) (2003-08-07 11:11) [9]

Reindeer Moss Eater, пользуйся, я тебе его дарю.

← →
ossa (2003-08-07 11:25) [10]

Ребята заменя кто-то подписывается, но он прав, например:
если скажем в инспекторе объектов выставить в
ofHideReadOnly:=false мы делаем так
OpenDialog1.Options:=OpenDialog1.Options+[ofHideReadOnly];
по идее он должен убрать значок только для чтения,
но этого не происходит, то есть управление происходит через инспетор объектов(там выставл. все получается)
Нужно сделать так чтобы она заработала когда набираешь исход.код
, т.е. в инспеторе показывала соответственно true или false, а в окне убиралось или появлялось,а OpenDialog1.Options:=OpenDialog1.Options+[ofHideReadOnly];
просто включило в множество без никакой обработки(?)
ofHideReadOnly должны както присвоить true

← →
Reindeer Moss Smoker (ex-RME) (2003-08-07 11:37) [11]

1. Код никак не влияет на инспектор объектов.
2. Что ты вообще ожидаешь от появления этого флага ? На основании чего сделан вывод, что код не работает?

← →
ossa (2003-08-07 11:50) [12]

например:
в окне диалога появляется "[]только чтение", если стоит
в инспекторе объектов
ofHideReadOnly - false,
а если поставить в инспекторе
ofHideReadOnly - true, то приоткрытии диолгового окна
"[]только чтение" не появиться, т.е.
нужно сделать то же самое в проге без инспектоа объетов
OpenDialog1.Options:=OpenDialog1.Options+[ofHideReadOnly];
OpenDialog1.Options:=OpenDialog1.Options-[ofHideReadOnly];
Это не делают(они дополняют options этим свойством, т.е. включае в множество при "+"). Нужно как то присвоить св-ву
ofHideReadOnly:=(true | false); тогда по идее она должна заработать

← →
Skier (2003-08-07 12:21) [13]

бррррррр...Бред какой-то...:)

← →
ossa (2003-08-07 12:41) [14]

Мне просто интересно, мне говорили что все что в инспекторе объектов, можно сделать в ручную, вот исходник
маленький чтобы показать для примера:
в инспекторе св-во (ofHideReadOnly-true, нет маленького дополнения внизу),ofHideReadOnly-false, есть "только чтение"

не почти те за труд посмотрите, если не верите!
А если OpenDialog1.Options:=OpenDialog1.Options+[ofHideReadOnly];
не для этого , то зачем он нужен (ничего не делает)
procedure TDdeForm.open1Click(Sender: TObject);
var f: Textfile;
s:string;
begin
//OpenDialog1.filter:="*.*";
//OpenDialog1.InitialDir:="C:\My Downloads";

if OpenDialog1.Execute and FileExists(OpenDialog1.FileName)
then
Begin
// OpenDialog1.Options:=OpenDialog1.Options+[ofHideReadOnly];
AssignFile(F,OpenDialog1.FileName);
Reset(F);
Memo1.Lines.Clear;
while not EOF(f) do
begin readln(f,s); Memo1.Lines.add(s);end;
( f) Мне просто интересно, мне говорили что все что в инспекторе объектов, можно сделать в ручную, вот исходник
маленький чтобы показать для примера:
в инспекторе св-во (ofHideReadOnly-true, нет маленького дополнения внизу),ofHideReadOnly-false, есть "только чтение"

не почти те за труд посмотрите, если не верите!
А если OpenDialog1.Options:=OpenDialog1.Options+[ofHideReadOnly];
не для этого , то зачем он нужен (ничего не делает)
procedure TDdeForm.open1Click(Sender: TObject);
var f: Textfile;
s:string;
begin
//OpenDialog1.filter:="*.*";
//OpenDialog1.InitialDir:="C:\My Downloads";

if OpenDialog1.Execute and FileExists(OpenDialog1.FileName)
then
Begin
// OpenDialog1.Options:=OpenDialog1.Options+[ofHideReadOnly];
AssignFile(F,OpenDialog1.FileName);
Reset(F);
Memo1.Lines.Clear;
while not EOF(f) do
begin readln(f,s); Memo1.Lines.add(s);end;
closefile(f);
end;
end;

← →
icWasya (2003-08-07 12:47) [15]

А где ты пишешь

OpenDialog1.Options:=OpenDialog1.Options+[ofHideReadOnly];

??????????????

← →
ossa (2003-08-07 12:56) [16]

Да Спасибо не внимателен.
Большое СПАСИБО, ВСЕ!

← →
Reindeer Moss Smoker (ex-RME) (2003-08-07 12:56) [17]

После того, как отработал Execute!

Разве не видно? :)))))))))

есть компонента OpenDialog1 нужно ей в Options выставить Найти похожие ветки