Головна сторінка
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.026 c
1-22105
Gonza
2001-12-19 16:35
2002.01.08
MDI Додаток ???


1-22099
Юляшка
2001-12-19 17:43
2002.01.08
Питання про DBGrid !!


14-22353
Кречет
2001-11-02 10:13
2002.01.08
Я в шоці


14-22395
чужий
2001-11-07 01:15
2002.01.08
Чим бардак відрізняється від порядку?


1-22067
DNT
2001-12-15 16:20
2002.01.08
Dialog & dll





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