Az osztály nincs regisztrálva registerclass
Van egy modul:
egység UFDCE;
felhasználások
# XA0, a Windows, az Üzenetek, SysUtils, osztályok, grafika, vezérlők, Forms, párbeszédablakok, # XA0; ComCtrls, StdCtrls;
típus
# XA0; TFDCE = osztály (TForm)
# XA0; # XA0; DateTimePicker1: TDateTimePicker;
# XA0; # XA0; eljárással FormResize (Sender: TObject);
# XA0; end;
eljárás TFDCE.FormResize (Sender: TObject);
kezdődik
# XA0; DateTimePicker1.Height: = ClientHeight;
# XA0; DateTimePicker1.Width: = ClientWidth;
végén;
Később a programot, ha megnézzük ezt az osztályt FindClass ( „FDCE”);
, akkor van egy hiba: „Class not found”.
Ha elvégzi az ellenőrzést, ha létrehoz egy fő formája, ugyanaz történik. Prompt hiba vagy csinálok valamit rosszul? Köszönöm.
de nem úgy gondolja, hogy TFDCE és FDCE két különböző dolog?
Úgy néz ki, mint amit én csinálok rosszul, vagy mi a helyzet az irányelv nem tudom: nincs osztály nincs regisztrálva, a TListBox példa.
Ha az osztály nem található, akkor a neve helytelen vagy a nyilvántartásban nem hívják egyáltalán
Úgy tűnik, persze, hogy nem hívják, hogy megértsük, hogy miért?
Például azért, mert a modul nem bármelyike yuzez
inicializálás
ShowMessage ( "bla bla bla");
RegisterClass (TFDCE);
> Például azért, mert a modul nem bármelyike yuzez
elég, ha szerepelni .dpr
Megjegyzés: a paraméter:
funkció RegisterClass (const lpWndClass: TWndClass): atom; stdcall;
és hogyan, hogy a regisztráció forms.pas
> _Guest_ # XA0; (01.07.08 13:39) [10]
> A kérdés egyszerűnek tűnik: létrehozni a fő ablakban végezze
> RegisterClass (TListBox);
> Next gombra: FindClass ( "TListBox"); - Minden hiba: class
> Nem találtam. Miért? Nyilván én vagyok a hiányzó valamit, de nem találom.
Mit nem mond el valamit.
> Ügyeljen arra, hogy a beállítás:
Ez egy kicsit más történet.
Itt egy példa, nézd meg a különbségeket
felhasználások
# XA0; Forms,
# XA0; fő az "main.pas"
# XA0; másik "other.pas";
kezdődik
# XA0; Application.Initialize;
# XA0; Application.CreateForm (TForm1, Form1);
# XA0; Application.Run;
végén.
felület
felhasználások
# XA0, a Windows, az Üzenetek, SysUtils, Változatok, osztályok, grafika, vezérlők, Forms,
# XA0; Párbeszédpanelek, StdCtrls;
típus
# XA0; TForm1 = osztály (TForm)
# XA0; # XA0; Button1: TButton;
# XA0; # XA0; eljárással Button1Click (Sender: TObject);
# XA0; end;
var
# XA0; Form1: TForm1;
eljárás TForm1.Button1Click (Sender: TObject);
var
# XA0; F: TCustomForm;
kezdődik
# XA0; F: = TFormClass (FindClass ( "TForm2")) létrehozása (Self) ;.
# XA0, próbálja
# XA0; # XA0; SetStrProp (F "StrProp", "Hello, world!");
# XA0; # XA0; F.ShowModal;
# XA0, végül
# XA0; # XA0; F.Free;
# XA0; end;
végén;
felület
felhasználások
# XA0, a Windows, az Üzenetek, SysUtils, Változatok, osztályok, grafika, vezérlők, Forms,
# XA0; Párbeszédpanelek, StdCtrls;
típus
# XA0; TForm2 = osztály (TForm)
# XA0; # XA0; Edit1: tSzerkesztés;
# XA0; # XA0; eljárással FormShow (Sender: TObject);
# XA0; magán-
# XA0; # XA0; FStrProp: string;
# XA0; közzé
# XA0; # XA0; tulajdon StrProp: string olvasni FStrProp levelet FStrProp;
# XA0; end;
var
# XA0; form2: TForm2;
eljárás TForm2.FormShow (Sender: TObject);
kezdődik
# XA0; Edit1.Text: = FStrProp;
végén;
> Abban az időben létrehozása formájában (nem automatikus), amely birtokolja
> Ez az összetevő az üzenetet: TFDCE osztály nem található.
> # XA0;
A felhasználási formák ismert egység ezt az összetevőt?
> _Guest_ # XA0; (01.07.08 14:12) [16]
> # XA0; nem egy egyszerű példát, már leírt [10], és még mindig
> Error.
Nem ugyanaz a dolog egy új projekt.
Ha vannak hibák keresésekor listboksa - kódot.
> A használt formája ismert egység ezt az összetevőt?
A fordító nem engedi RegisterClass.
> Abban az időben létrehozása formájában (nem automatikus), amely birtokolja
> Ez az összetevő az üzenetet: TFDCE osztály nem található
Az eset a kis -, hogy megtalálja valami baj van a fő projekt, amelyben egy tucat formák és egy csomó kódot, de nyilvánvaló, hogy ez az én szar. Köszönöm mindenkinek, nem szabadulnak sokat, ha egy idő után ismét zavart. Mert ahol ásni azt sem tudja képzelni: a projekt mellett megjeleníti az adatokat az adatbázisból TStringGrid semmit. Azzal kezdem, hogy dobja, amíg az összes sorozatban.
Minden vetette szét a fő formája - nem működik. Egészen véletlenül, senki sem ötleteket, mint akkor leüt egy csomó RegisterClass - FindClass?
nem fogjuk látni a kódot?
> _Guest_ # XA0; (01.07.08 15:17) [22]
> Minden kidobják, kivéve a fő formája - nem működik. teljesen
> Baleset bárki fogalmam sincs, mi lehet összetörni egy csomó RegisterClass
> - FindClass?
Tartsa lenyomva a Ctrl billentyűt, és kattintson a Bukavu Myshakov RegisterClass, miután megnézte a feltörekvő bukavui és sokan gondolják.
Crush lehet kódolni a kódot.
> A tapasztalatok szerint azt tapasztaltam, hogy ez a helyzet a felhasználási
> QControls # XA0; az egyik modul
Nos, azt hiszem ő a RegisterClass
Memória: 0,79 MB
Idő: 0.032 c