QuickReport - Como Excluir os botão Minimizar , Load e Salva
Oque estou fazendo de errado...
Não consigo realizar esse evento..
O sistema informa esse erros....
//////////////////////////////
[Error] Unit1.pas(30): Undeclared identifier: ´QuickRep1´
[Error] Unit1.pas(32): Undeclared identifier: ´EnableOpenBtn´
[Error] Unit1.pas(33): Undeclared identifier: ´EnableSaveBtn´
[Error] Unit1.pas(13): Unsatisfied forward or external declaration: ´TForm1.QuickRep1Create´
[Fatal Error] Project1.dpr(5): Could not compile used unit ´Unit1.pas´
//////////////////////////////////////////////////////////////////////////////
nit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, QuickRpt;
type
TForm1 = class(TForm)
QuickRep1: TQuickRep;
procedure FormCreate(Sender: TObject);
procedure QuickRep1Create(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure QuickRep1Create(Sender: TObject);
begin
With QuickRep1 Do
begin
EnableOpenBtn := False;
EnableSaveBtn := False;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
//sdfasfasdfadf
end;
end.
Não consigo realizar esse evento..
O sistema informa esse erros....
//////////////////////////////
[Error] Unit1.pas(30): Undeclared identifier: ´QuickRep1´
[Error] Unit1.pas(32): Undeclared identifier: ´EnableOpenBtn´
[Error] Unit1.pas(33): Undeclared identifier: ´EnableSaveBtn´
[Error] Unit1.pas(13): Unsatisfied forward or external declaration: ´TForm1.QuickRep1Create´
[Fatal Error] Project1.dpr(5): Could not compile used unit ´Unit1.pas´
//////////////////////////////////////////////////////////////////////////////
nit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, QuickRpt;
type
TForm1 = class(TForm)
QuickRep1: TQuickRep;
procedure FormCreate(Sender: TObject);
procedure QuickRep1Create(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure QuickRep1Create(Sender: TObject);
begin
With QuickRep1 Do
begin
EnableOpenBtn := False;
EnableSaveBtn := False;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
//sdfasfasdfadf
end;
end.
Max.jgs
Curtidas 0
Respostas
Fabio.hc
24/12/2004
Dê uma olhada neste tópico. [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=45529&highlight=dfm]Clique aqui[/url]
GOSTEI 0