erro : tpanel is not found

[shananans 0]

Gente, na hora de complicar o projeto da esse erro :

 

Projeto clinica.exe raised exception class EClassnotFound whit message "Class TPanel is not found". Process stopped.Use step or run to continue.

 

 

O que eu faço pra resolver isso ??

 

valeww !!

[bdexterholland 0]

É, fica complicado mesmo. A classe TPanel está contida na Unit ExtCtrls, verifique se a mesma foi declarada na primeira seção Uses da Unit.

[shananans 0]

ta declarada sim ... olha o codigo ...

 

o form prinicpal da isso :

 

program Psicologia_Clinica; 

uses 
Forms, 
Unit_login in 'Unit_login.pas' {frm_login}, 
Unit_cadastro in 'Unit_cadastro.pas' {frm_cadastro}, 
Unit1 in 'Unit1.pas' {FRelatorio}, 
Unit2 in 'Unit2.pas' {frm_agenda}, 
Unit_locad in 'Unit_locad.pas' {frm_locag}, 
Unit_locap in 'Unit_locap.pas' {frm_localizar}, 
Unit_relag in 'Unit_relag.pas' {RAgendamento}, 
Unit_novasenha in 'Unit_novasenha.pas' {frm_senhanova}, 
Unit_menu in 'Unit_menu.pas' {frm_menu}, 
Unit_backup in 'Unit_backup.pas' {frm_backup}, 
Unit_restaurar in 'Unit_restaurar.pas' {frm_restaurar}; 

{$R *.res} 



begin 
Application.Initialize; 
Application.Title := 'Psicologia Clinica'; 
Application.CreateForm(Tfrm_login, frm_login); 
Application.CreateForm(Tfrm_cadastro, frm_cadastro); 
Application.CreateForm(TFRelatorio, FRelatorio); 
Application.CreateForm(Tfrm_localizar, frm_localizar); 
Application.CreateForm(Tfrm_agenda, frm_agenda); 
Application.CreateForm(Tfrm_locag, frm_locag); 
Application.CreateForm(TRAgendamento, RAgendamento); 
Application.CreateForm(Tfrm_senhanova, frm_senhanova); 
Application.CreateForm(Tfrm_menu, frm_menu); -> Quando complila ele para aqui e fica azul Application.CreateForm(Tfrm_backup, frm_backup); 
Application.CreateForm(Tfrm_restaurar, frm_restaurar); 
Application.Run; 
end. 


unit do form que da o erro : 

unit Unit_menu; 

interface 

uses 
Windows, Messages, SysUtils, ExtCtrls, Variants, Classes, Graphics, Controls, Forms, 
Dialogs, StdCtrls, Buttons, jpeg ; 

type 
Tfrm_menu = class(TForm) 
BitBtn1: TBitBtn; 
BitBtn2: TBitBtn; 
Image2: TImage; 
Image3: TImage; 
Label2: TLabel; 
Shape1: TShape; 

procedure BitBtn2Click(Sender: TObject); 
procedure BitBtn1Click(Sender: TObject); 


private 
{ Private declarations } 
public 
{ Public declarations } 
end; 

var 
frm_menu: Tfrm_menu; 

implementation 

uses Unit_cadastro, Unit2; 

{$R *.dfm} 

procedure Tfrm_menu.BitBtn2Click(Sender: TObject); 
begin 
frm_cadastro.Visible := true; 
frm_menu.Visible := false; 
end; 

procedure Tfrm_menu.BitBtn1Click(Sender: TObject); 
begin 
frm_agenda.Visible := true; 
frm_menu.Visible := false; 
end; 

end.

[bdexterholland 0]

Amigo, nesta unit que postou não tem declarado nenhum TPanel, das duas uma: Ou o erro está em outra unit ou no .dfm desta unit tem algum tpanel declarado erroneamente...