Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

"Антоним" процедуры на событи Create

Страницы: < 1 2 3 >
Mariya © (2007-10-12 07:47:00)
Подскажите, плз, вот Create создать, а какая есть процедура, наоборот не создавать

clickmaker (2007-10-12 10:38:00) [21]

> Типа, юзеров несколько, у кого-то 7 программ ему нужных
> (вообще баз), а ненужные у него не установлены, у кого-то
> 5 и т.д....

а это не user ли profile, часом?
зачем делать лишнюю работу, если она операционной системой уже проделывается?

Ega23 (2007-10-12 10:37:00) [22]

> Mariya (12.10.07 10:31) [28]

Посмотрите почту

Mariya (2007-10-12 10:31:00) [23]

> предназначена эта чудо-программа

навигатор, фигов, зачем, не знаю! Типа, юзеров несколько, у кого-то 7 программ ему нужных (вообще баз), а ненужные у него не установлены, у кого-то 5 и т.д.... И вот, надо, чтобы каждый открывал, у него на форме были только те кнопки с названиями программ, которые у него есть, а остальные чтобы даже не рисовались!
> Кнопки не создаются? Программы не запускаются?

Кнопки создаюся, все! А мне не все нужны! Которым нет записи в ини файле, всмысле Prog не написан или написанное не существует, не создавались!
for i:=1 to 8 do
if FileExists(Ini.ReadString('Prog', 'Prog'+InttoStr(i)+'', ' ')) then
else

begin
btn[i]:=TMyButton.Create(Form1);
btn[i].Parent:=Form1;
btn[i].Caption:=Ini.ReadString('Button', 'Cap'+IntToStr(i)+'', ' ');
btn[i].Left:=Cons.ReadInteger('Button', 'left', 200 );
btn[i].Top:=Cons.ReadInteger('Button', 'Top'+InttoStr(i)+'', 70 + (45*(i-1)));
btn[i].Height:=Cons.ReadInteger('Button', 'Height', 30);
btn[i].Width:=Cons.ReadInteger('Button', 'Width', 160);
btn[i].Visible:=True;
btn[i].OnClick:=ButtonClick;
btn[i].Prog:=Ini.ReadString('Prog', 'Prog'+InttoStr(i)+'', ' ');

ЮЮ (2007-10-12 10:23:00) [24]
> В общем не работает, перепробывала все варианты, что-то
> неправильно делаю...

Что не работает то?
Кнопки не создаются? Программы не запускаются?

clickmaker (2007-10-12 10:21:00) [25]

> [25] Mariya (12.10.07 10:17)

так а все-таки: для чего предназначена эта чудо-программа?
неужели нет готовых аналогов, возможно даже бесплатных?

Mariya (2007-10-12 10:17:00) [26]
В общем не работает, перепробывала все варианты, что-то неправильно делаю... При заработной плате 1 доллар в день, нанимать программиста? Не могу себе позволить такое!!!

ЮЮ (2007-10-12 09:54:00) [27]
Удалено модератором

Kolan (2007-10-12 09:46:00) [28]
> Сама бы рада!

*Шепотом* Нанять программиста можно и через интернет. :)

> FileExists(Ini.ReadString('Prog', 'Prog'+InttoStr(i)+'',
> ' ')) что насчет этого? Как мне обратиться к Prog[i]?

Так ты же уже научилась? Сама написала InttoStr( i), в чем вопрос?

ЮЮ (2007-10-12 09:46:00) [29]
> В городок в Киргизстане, где численность населения 2000
> человек??? И откуда здесь программисты?

А зачем компьютер?

В конце концов в папку Windows набросай ярлыков нужных программ - и не нужна будет твоя супер-пупер программв.

> [19] Ega23 © (12.10.07 09:41)
> Не трогайте Марину, она меня целовать обещала!

Выезжай в Киргизстане, на месте и программу сбацаете !!!

clickmaker (2007-10-12 09:43:00) [30]

> [20] Mariya (12.10.07 09:41)

а для чего программа?

Mariya (2007-10-12 09:41:00) [31]
FileExists(Ini.ReadString('Prog', 'Prog'+InttoStr(i)+'', ' ')) что насчет этого? Как мне обратиться к Prog[i]?

Ega23 (2007-10-12 09:41:00) [32]
Удалено модератором

ЮЮ (2007-10-12 09:40:00) [33]
> У меня if FileExists(.........) then не создавать
> else создавать

Т.е. кнопочки создаем для несуществующих и не найденных программ, а по нажатии на них их будем пытаться выполнить? Странная логика :)

Mariya (2007-10-12 09:38:00) [34]

> НАЙМИТЕ УЖЕ ПРОГРАММИСТА!!!

Сама бы рада! Никто не хочет, вот Вы к нам приедете? В городок в Киргизстане, где численность населения 2000 человек??? И откуда здесь программисты?

Kolan (2007-10-12 09:36:00) [35]
Вопревых тебя наверно то, что считано из ини еще понадобится, поэтому лучьше его сразу сохранить, чтобы сто раз не читать:

Сранно что такое ' '— непонятно… Наверно лучьше ''?
Value := Ini.ReadString('Prog', 'Prog'+InttoStr(i)+'', '');

Далее
if (Value '') and (Value 'несуществующая программа') then TButton.Create(…)

Или если я не правильно понял про «несуществующая программа», то

if (Value '') and (FileExists(Value)) then TButton.Create(…)

ЮЮ (2007-10-12 09:35:00) [36]
> если написан Prog1="несуществующая программа", чтобы тоже
> не создавал

Надеюсь, при этом файла 'несуществующая программа' на диске нет? :)
Чего тогда боишься?

Игорь Шевченко (2007-10-12 09:34:00) [37]

> Подскажите, плз, вот Create создать, а какая есть процедура,
> наоборот не создавать

TButton.DontCreate(AOwner: TComponent);

НАЙМИТЕ УЖЕ ПРОГРАММИСТА!!!

clickmaker (2007-10-12 09:32:00) [38]
if FileExists() then
Btn := TButton.Create(Self);

Mariya (2007-10-12 09:28:00) [39]
Подскажите, if not FileExists(Ini.ReadString('Prog', 'Prog'+InttoStr(i)+'', ' ')) then так можно? Вообще Мне нужно проверить в секции [Prog] есть ли Prog1=... и вот мне надо если этого Prog1=... нет, не прописан, то кнопку не рисовать. Или вообще идеальный вариант, если написан Prog1="несуществующая программа", чтобы тоже не создавал

Ega23 (2007-10-12 09:11:00) [40]

> Ложится программист спать, ставит на тумбочку 2 стакана
> - с водой и пустой. Полный - если пить захочет, пустой -
> а вдруг не захочет...

А админ 4 ставит. 2 пустых и 2 полных. Один полный - если захочет пить. Один пустой - если не захочет. А остальные два - бэкап.

Страницы: < 1 2 3 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »