Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Основна";
Поточний архів: 2002.01.08;
Завантажити: [xml.tar.bz2];

Вниз

Кадр Знайти схожі гілки


Sand Worm   (2001-12-19 14:55) [0]

Можно РєР ° Рє-РЅРёР ± СѓРґСЊ РёР · РѕСЃРЅРѕРІРЅРѕР№ С "РѕСЂРјС <РїРѕР» СѓС ‡ РёС,СЊ РґРѕСЃС,СѓРї Рє РєРѕРјРїРѕРЅРμРЅС,Р ° Рј СЂР ° СЃРїРѕР »РѕР¶РμРЅРЅС <Рј РЅР ° С" СЂСЌР№РјРμ СЃРѕР · РґР ° РЅРЅРѕРј РЅР ° СЌС,РѕР№ Р¶Рμ С "РѕСЂРјРμ. Рў.Рμ. РЅР ° С "РѕСЂРјРμ СЃРѕР · РґР ° РЅ С" СЂРμР№Рј, РЅР ° РєРѕС,РѕСЂРѕРј РμСЃС,СЊ РЅР ° РїСЂРёРјРμСЂ Label1, можно Р »Ре РёР · РІР» Р ° РІРЅРѕР№ С "РѕСЂРјС <РёР · РјРμРЅРёС , СЊ СЃРІРѕР№СЃС,РІРѕ Caption СЌС,РѕР№ Label1? Frame1.Label1.Caption: = "123"; - РїР ° РґР ° РμС, СЃ РјР ° С,Р ° РјРё :-( ПоможиС,Рμ З ‡ Р ° Р№РЅРёРєСѓ РїР »РёР ·.



Digitman   (2001-12-19 14:58) [1]

Label1 - СЃРІ-РІРѕ С "РѕСЂРјС <, Р ° РЅРμ С" СЂРμР№РјР °. Ре РѕР ± СЂР ° С ‰ Р ° С,СЊСЃСЏ Рє РЅРμРјСѓ нужно С ‡ РμСЂРμР · Form1, Р ° РЅРμ С ‡ РμСЂРμР · Frame1



SergVlad   (2001-12-19 15:13) [2]

РС,Рѕ С ‡ С,Рѕ-С,Рѕ РЅРѕРІРѕРμ - Рѕ РІР · Р ° РёРјРѕРѕС,РЅРѕС € РμРЅРёСЏС ... С "РѕСЂРјС <Ре С" СЂРμР№РјР °.
РќР ° РїСЂРёРјРμСЂ, РЅР ° С "РѕСЂРјРμ Р» РμжиС, С "СЂРμР№Рј frDBTree, РІРѕ С" СЂРμР№РјРμ РЅР ° С ... РѕРґРёС,СЃСЏ TQuery.
Роблю ось так:

with frDBTree do begin
quTree.DatabaseName: = DBName;
pSQL: = TStringList.Create;
pSQL.Add ( "SELECT * FROM" + pTbName + "R");
pSQL.Add ( "ORDER BY R.NAME");
m_SetView;
m_SetStatus;
tv.ReBuildTree;
end;

Р РЅРёРєР ° Рє РїРѕ РґСЂСѓРіРѕРјСѓ.



Digitman   (2001-12-19 15:31) [3]

> Sand Worm
РЇ, РјРѕР¶РμС,, РЅРμ РїРѕРЅСЏР »- С,С <СЂРμС ‡ СЊ РІРμРґРμС € СЊ Рѕ TFrame РёР» Ре Рѕ РєР ° РєРѕР№-РЅРёР ± СѓРґСЊ РїР ° РЅРμР »СЊРєРμ РёР · РїР ° Р» РёС,СЂС < , РєРѕС,РѕСЂСѓСЋ РёРЅРѕРіРґР ° С,РѕР¶Рμ С "СЂРμР№РјРѕРј РЅР ° Р · С <РІР ° СЋС,? Р • СЃР »Ре Рѕ TFrame, С,Рѕ
Frame1.Label1.Caption РґРѕР »Р¶РЅРѕ РєРѕСЂСЂРμРєС,РЅРѕ РѕР ± СЂР ° С ‰ Р ° С,СЊСЃСЏ Рє СЃРІ-РІСѓ (РμСЃР» Ре Self РІ СЌС,РѕС, РјРѕРјРμРЅС, = С "РѕСЂРјРμ, РєРѕС,РѕСЂРѕР№ С "СЂРμР№Рј РїСЂРёРЅР ° РґР» РμжиС,)



Sand Worm   (2001-12-20 07:03) [4]

ПжР° Р »СЃС,Р ° РёРјРμРμРј СЃР» РμРґСѓСЋС ‰ РёР№ РєРѕРґ:
приватний
FFrame: TFrame;
end;
було
Form1: TForm1;
реалізація
Uses unit2; - РС,Рѕ СЋРЅРёС, С "СЂРμР№РјР °, С,Р ° Рј РμСЃС,СЊ var Frame: TFrame2;
{$ R * .DFM}
/ РўСѓС, СЃРѕР · РґР ° РμРј С "СЂРμР№Рј /
procedure TForm1.Button1Click (Sender: TObject);
починати
if FFrame <> nil then FFrame.Free;
FFRame: = TFrame2.Create (Panel1);
FFRame.Parent: = Panel1;
FFRame.Align: = alClient;
end;

procedure TForm1.Button2Click (Sender: TObject);
починати
ShowMessage (Frame.Label1.Caption);
end;

Так ось при натисканні батона2, природно після натискання батона1 прога випадає з exception. Скажіть де собака порилася плиз. Найцікавіше, що Компільо все на ура, хоч пов не показник, але все ж.



Digitman   (2001-12-20 08:06) [5]

а що таке Frame в ShowMessage (Frame.Label1.Caption)? Де і як ця змінна визначена? Адже посилання на екземпляр створеного фрейму, судячи з FFRame: = TFrame2.Create (Panel1) зберігається в FFRame, а не Frame!




Vitaly   (2001-12-20 09:32) [6]

Можна опис класу TFrame2?



сторінки: 1 вся гілка

Форум: "Основна";
Поточний архів: 2002.01.08;
Завантажити: [xml.tar.bz2];

наверх









Пам'ять: 0.57 MB
Час: 0.059 c
14-22320
Олександр
2001-11-14 14:13
2002.01.08
Wow


1-22129
Aleksandr
2001-12-19 16:04
2002.01.08
Як прибрати мерехтіння свого скроллбар?


4-22476
царство
2001-11-02 19:42
2002.01.08
Допоможіть, UpdateResource не працює з BPL файлами!


6-22276
Lamok
2001-10-05 23:13
2002.01.08
Відправка даних в інтернет


14-22358
дрімучий
2001-11-07 19:08
2002.01.08
Де є фрішний НЕБОЛЬШОЙ, але ШВИДКІСНИЙ хостинг?





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська