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

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

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

With Tpanel.Create(scroolbox).... [D6, WinXP]

Страницы: < 1 2 3 4 5 6 >
Ragazor © (2005-09-09 11:37:00)
Делается следующее, n количетво раз:
With Tpanel.Create(scroolbox) do .....

на созданной панели нужно создать таким же макаром 2 едита
With TEdit.Create(???)
Как это сделать?

Игорь Шевченко (2005-09-09 13:35:00) [81]
Ragazor (09.09.05 13:32) [34]

Это все первое требование. Для этого извратов в исходном тексте не требуется - пользователи не покупают исходный код.

Ragazor (2005-09-09 13:32:00) [82]
для Игорь Шевченко ©
... удобна для пользователей, и обеспечивать тот уровень возможностей который они требуют ( для того чтобы её покупали, а не конкурентов).

Alexander Panov (2005-09-09 13:31:00) [83]
Ragazor (09.09.05 13:29) [31]
Закинь вот тот код, что я написал последним, в делфи и посмотри что он делает. Если то, что ты писал делает тоже самое и меньше писанины, тебе + мне -, а нет, тогда тебе - мне + :)

Тебе дана рабочая, опробованная не одну тысячу раз схема.

Tonich (2005-09-09 13:30:00) [84]
ндааа сам задал вопрос, сам ответили сам же себя и похвалил за такое обалденный код который написал))

Игорь Шевченко (2005-09-09 13:29:00) [85]

> Такому, есть требования "красивости", неписаные.

Есть только два требования - программа должна работать и быть удобочитаемой. Все остальные "требования" - ламерство.

Ragazor (2005-09-09 13:29:00) [86]
Закинь вот тот код, что я написал последним, в делфи и посмотри что он делает. Если то, что ты писал делает тоже самое и меньше писанины, тебе + мне -, а нет, тогда тебе - мне + :)

Alexander Panov (2005-09-09 13:28:00) [87]
Ragazor (09.09.05 13:20) [26]

Твоя задачка для всех здесь может представлять только теоретический интерес, да и он будет весьма сомнительным.

С практической точки зрения твои условия абсолютно не имеют смысла.
Лучше бы сказал, чего добиться хочешь от такой "оптимизации".

Ragazor (2005-09-09 13:26:00) [88]
для Digitman ©
я так понял, что ты не понял что мне нужно, а я соответственно не пойму что ты мне доказываешь...

Digitman (2005-09-09 13:24:00) [89]

> Ragazor (09.09.05 13:20) [26]

> есть требования "красивости", неписаные

какие такие требования ?!
просвети уж меня, тундру ..

Ragazor (2005-09-09 13:20:00) [90]
для Digitman ©

>>по какому такому "требованию" ?

>>кто и на каком основании мог потребовать от тебя не >>использовать переменные ?!

Такому, есть требования "красивости", неписаные. Я ж не шутки
пишу, для моей конкретной цели нужно только так и никак более и точка. Что за вопрос вообще. Нужно мне и все, зачем тебе знать знать кто от меня и что требует?. Можешь помочь помоги, не можешь не трепи нервы.
При твоих раскладах код будет множится как тараканы.

А то что ты написал попробуй запусти в делфи прежде чем сюда парить.

Digitman (2005-09-09 13:17:00) [91]

> Dilmo (09.09.05 13:13) [23]

да по колено, нужно или не нужно !)

суть не в этом ..

суть - в использовании переменной

Игорь Шевченко (2005-09-09 13:16:00) [92]

> А Digitman и кто там ещё, со своими переменными попробуйте
> реализуйте красиво на переменных

Красота вообще убийственная сила.

Мой совет по теме красоты - почитай исходники VCL, там достаточно красиво и без извратов.

Dilmo (2005-09-09 13:13:00) [93]
не уверен что TEdit.Create(Comp) это как раз то, что нужно
потому как таким макаром Owner выставляется, а ему нужен парент
owner'ом в полне может быть форма на которую все ложится.. и этого будет достаточно

Digitman (2005-09-09 13:12:00) [94]

> Ragazor (09.09.05 13:03) [18]

var Comp: TComponent;
..
Comp := Tpanel.Create(..);
with Tpanel(Comp) do
begin
..
end;
..

for .. to .. do
with TEdit.Create( Comp) do
begin
..
end;

Плохиш (2005-09-09 13:08:00) [95]
1. Ты просил 2 едита.
2. Result - это переменная.
3. Гланды можно вырезать по-разному.

Digitman (2005-09-09 13:05:00) [96]

> это делать не нужно по требованию

по какому такому "требованию" ?

кто и на каком основании мог потребовать от тебя не использовать переменные ?!

Alexander Panov (2005-09-09 13:05:00) [97]
Ragazor (09.09.05 13:03) [18]
Интересно сколько строк кода добавится в программу...

Ни одной. Только уменьшится.

Ragazor (2005-09-09 13:03:00) [98]
А Digitman и кто там ещё, со своими переменными попробуйте реализуйте красиво на переменных. Интересно сколько строк кода добавится в программу...

Ragazor (2005-09-09 13:01:00) [99]
Ничто не мешает, просто это делать не нужно по требованию.
Вот ещё лучший вариант:(Никаких переменных панел и эдит)

procedure CreatePnlEdt(APanel: Tpanel; ATTxt, ADtxt: Widestring);
begin
with TTntEdit.Create(APanel) do begin
Parent := APanel;
Left := 40;
Top := 5;
Text := ATTxt;
end;
//тут можно насоздавать всего что хочешь, и все будет на панели.
end;

function CreatePanel: TPanel;
begin
Result := TPanel.Create(ScrBx);
with Result do begin
Parent := ScrBx;
Align := alTop;
Width := 30;
BevelOuter := bvLowered;
BevelInner := bvRaised;
end;
end;

И теперь, скажем, в Button1Click пишем

CreatePnlEdt(CreatePanel,'some text', 'sometext');
и кликаем наздоровье (а не const
maxPanel = n;
maxEdit = m;) ...

Digitman (2005-09-09 12:42:00) [100]

> Ragazor (09.09.05 12:37) [14]
> имеются ввиду переменные для Tpanel & Tedit

и что ?

ЧТО мешает создать переменную типа TComponent ?

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

Наверх

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