घर
Top.Mail.Ru Yandeks.Metrika
फोरम: "पकड़ो";
वर्तमान संग्रह: 2003.03.03;
डाउनलोड करें: [xml.tar.bz2];

नीचे

सभी को तुरंत कैसे साफ़ करें ?? इसी तरह की शाखाएँ खोजें


Zhenka   (2003-02-16 11:53) [0]

Или Присвоить хинтам всех Кнопок их Кэпшены.
धन्यवाद.



Cr@sh   (2003-02-16 11:56) [1]

если у всех эдитов имена типа edit1, edit2 и тд.
तो
i: = 1 से 10 करते हैं
(form1.findcomponent("edit"+inttostr(i)) as TEdit).text:="";



Cr@sh   (2003-02-16 11:58) [2]

2)

for i:=1 to 10 do
(form1.findcomponent("button"+inttostr(i)) as TButton).hint:=(form1.findcomponent("button"+inttostr(i)) as TButton).caption;



Zhenka   (2003-02-16 12:00) [3]

Спасибл за совет



Anatoly Podgoretsky   (2003-02-16 12:07) [4]

Оформить отдельным методом, потребуется два
ClearAllEdits
SetAllButtonsHints



Shadow   (2003-02-16 12:08) [5]

2Cr @ श


var
i: integer;
begin
for i:=0 to Form1.ComponentCount-1 do
if Form1.Components[i].ClassType=TEdit then (Form1.Components[i] as TEdit).Text:="";


А так не легче ????



Shadow   (2003-02-16 12:09) [6]

और तदनुसार:
var
i: integer;
begin
for i:=0 to Form1.ComponentCount-1 do
if Form1.Components[i].ClassType=TButton then (Form1.Components[i] as TButton).Hint:=(Form1.Components[i] as TButton).Caption;



Zhenka   (2003-02-16 12:10) [7]

`Спасибо всем за всё!!!!!! :ъ)



drpass   (2003-02-16 12:11) [8]

Если у всех эдитов имена любые, то
i: = 0 से कंपोनेंटकाउंट-1 करते हैं
if Components[i] is TEdit then TEdit(Components[i]).Text:="";



Юрий Зотов   (2003-02-16 12:11) [9]

i: = 0 से कंपोनेंटकाउंट - 1 करते हैं
if Сomponents[i] is TEdit then
TEdit(Сomponents[i]).Text := ""
अन्य
if Сomponents[i] is TButton then
with TButton(Сomponents[i]) do Hint := Caption;

Это вариант намного быстрее и не зависит от имен компонентов и их количества.



Shadow   (2003-02-16 12:11) [10]

2Zhenka
बिलकुल नहीं



drpass   (2003-02-16 12:12) [11]

Ну, кто еще чего посоветует :)



Zhenka   (2003-02-16 12:18) [12]

2drPass
Ага не думал, что так много способов реализации



Shadow   (2003-02-16 12:22) [13]

2Yury ज़ोटोव
Почти тоже, что и я предложил



Anatoly Podgoretsky   (2003-02-16 12:29) [14]

Эффективнее использовать метод Clear для TEdit и эстетичнее.

यूरी जोतोव © (16.02.03 12: 11)
Очистка может использоваться многократно и независимо от установки хинта, с этой точки зрения лучше разделить эти операции по отдельным методам.
Может еще потребоваться очистка и других компонент, тогда будет легко создать обобщенный метод из которого удобно вызывать специализированные.
В моей практике это часто встречается. По самому коду конечно нет возражений.



Anatoly Podgoretsky   (2003-02-16 12:31) [15]

Разве что еще в некоторых случаях лучше использовать Controls



Shadow   (2003-02-16 12:31) [16]

2Anatoly Podgoretsky
Мы ж не телепаты. На конкретный вопрос - конкретный ответ.



Юрий Зотов   (2003-02-16 12:36) [17]

> Shadow © (16.02.03 12:22)

Замечание относилось к двум первым ответам - когда я писал, других еще не было.

По Вашему варианту тоже есть 2 замечания.

1. Он сработает только для TButton и не сработает для потомков. Нужно использовать IS или InheritsFrom, а не прямое сравнение.

2. Если класс уже проверен, то зачем еще AS (к тому же, в двух местах)? Надо использовать прямое приведение типа, такой код будет быстрее и компактнее.



Zhenka   (2003-02-16 12:38) [18]

дА сКОЛЬКО МНОГО НЬЮАНСОВ



Shadow   (2003-02-16 12:42) [19]

2Yury ज़ोटोव
Вы эстет. Вы правы. Ну писал на скорую руку даже без проверки. Но в вопросе четко указано: Кнопок. Мы ж не телепаты.



Anatoly Podgoretsky   (2003-02-16 12:44) [20]

А насчет нюансос, вот два примера

with TButton.Create(Form1) do begin
जनक: = रूप 1;
...
अंत;

with TButton.Create(Application) do begin
जनक: = रूप 1;
...
अंत;

На досуге разобраться, что даст правильный результат Components или Controls



Юрий Зотов   (2003-02-16 12:45) [21]

> Shadow © (16.02.03 12:42)

TBitBtn - тоже кнопка.



Shadow   (2003-02-16 13:45) [22]

2Yury ज़ोटोव
Нет. Она называется - кнопка с картинкой(may be).



MsGuns   (2003-02-16 14:35) [23]

ИМХО, для достаточно "нагруженной" формы или для MDI-форм метод "повальной" модификации свойств однотипных контролов неудобен. Рекомендую использовать спец.процы типа SetStatusControls(opt: boolean), в которых просто перечисляются операторы присвоения ссотв.свойств нужным контролам, например, кнопкам, экшинам, и т.д. Лучше потому что:

1. Все делается "зряче"
2. Вполне читабелен алгоритм, что позволяет без особого труда контролировать отладку и вности изменения.
3. Просто правильнее с точки зрения семантики программы.



Юрий Зотов   (2003-02-16 14:47) [24]

> Shadow © (16.02.03 13:45)

Как она называется - неважно. Важно вот что:
TBitBtn = class(TButton).

और वह यह है।



पन्ने: 1 पूरी शाखा

फोरम: "पकड़ो";
वर्तमान संग्रह: 2003.03.03;
डाउनलोड करें: [xml.tar.bz2];

ऊपर





मेमोरी: 0.62 एमबी
समय: 0.035 c
14-5764
आप
2003-02-16 20:35
2003.03.03
गिनती की प्रक्रिया का समय


3-5444
Kaginava
2003-02-13 12:39
2003.03.03
यह निर्धारित करने के लिए कि IBDataBase डेटाबेस से कनेक्शन खो गया है या नहीं


1-5624
Ihtiandr
2003-02-20 10:18
2003.03.03
स्थानीय फ़िल्टरिंग


1-5579
Manulo
2003-02-19 17:34
2003.03.03
चेकबॉक्स ग्लिच ???


1-5536
Lenchik
2003-02-17 12:43
2003.03.03
वर्ड रैप - कैसे करें?





अफ्रीकी अल्बानियन अरबी भाषा अर्मेनियाई आज़रबाइजानी बस्क बेलारूसी बल्गेरियाई कैटलन सरलीकृत चीनी) चीनी पारंपरिक) क्रोएशियाई चेक डेनिश डच अंग्रेज़ी एस्तोनियावासी फिलिपिनो फिनिश फ्रेंच
गैलिशियन् जॉर्जियाई जर्मन यूनानी हाईटियन यहूदी हिंदी हंगरी आइसलैंड का इन्डोनेशियाई आयरिश इतालवी जापानी कोरियाई लात्वीयावासी लिथुआनियाई मेसीडोनियन मलायी मोलतिज़ नार्वेजियन
फ़ारसी पोलिश पुर्तगाली रोमानियाई रूसी सर्बियाई स्लोवाक स्लोवेनियाई स्पेनिश स्वाहिली स्वीडिश थाई तुर्की यूक्रेनी उर्दू वियतनामी वेल्श यहूदी बंगाली बोस्नियाई
सिबुआनो एस्पेरांतो गुजराती हौसा हमोंग ईग्बो जावानीस कन्नड़ खमेर लाओ लैटिन माओरी मराठी मंगोलियन नेपाली पंजाबी सोमाली तामिल तेलुगु योरूबा
ज़ुलु
Английский Французский Немецкий Итальянский Португальский Русский Испанский