Aplicação sem Form
Galera eu estou querendo criar uma aplicação com um unico form e esse form deve ser criado em run-time. alguem sabe me dizer como eu faço isso?
Desde já valeu
Desde já valeu
Toshio Bruno
Curtidas 0
Respostas
Obubiba
13/07/2003
Talvez esse código lhe ajude:
____________________________________________________________
program Project1;
uses
Forms,
Unit1 in ´Unit1.pas´ ;
{$R *.res}
begin
Application.Initialize;
Application.Run;
end.
____________________________________________________________
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
[b:cd37cf3d81]initialization
if messagedlg(´Criar o form?´,mtConfirmation,mbOKCancel, 0) = mrOk then
Application.CreateForm(TForm1, Form1);[/b:cd37cf3d81]
end.
_______________________________________________________
____________________________________________________________
program Project1;
uses
Forms,
Unit1 in ´Unit1.pas´ ;
{$R *.res}
begin
Application.Initialize;
Application.Run;
end.
____________________________________________________________
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
[b:cd37cf3d81]initialization
if messagedlg(´Criar o form?´,mtConfirmation,mbOKCancel, 0) = mrOk then
Application.CreateForm(TForm1, Form1);[/b:cd37cf3d81]
end.
_______________________________________________________
GOSTEI 0
Toshio Bruno
13/07/2003
Talvez esse código lhe ajude:
____________________________________________________________
program Project1;
uses
Forms,
Unit1 in ´Unit1.pas´ ;
{$R *.res}
begin
Application.Initialize;
Application.Run;
end.
____________________________________________________________
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
[b:e572945578]initialization
if messagedlg(´Criar o form?´,mtConfirmation,mbOKCancel, 0) = mrOk then
Application.CreateForm(TForm1, Form1);[/b:e572945578]
end.
_______________________________________________________
amigo valeu pela dica mas não deu certo
o delphi deu o erro a seguir:
Project Project1.exe raised exception class EClassNotFoundWith Message ´Class TButton not Found´. Process stopped. Use Step or Run to continue.
que erro é esse e como resolver?
Desde já agradeço.
GOSTEI 0
Obubiba
13/07/2003
[i:edab481e6e]Project Project1.exe raised exception class EClassNotFoundWith Message ´Class TButton not Found´. Process stopped. Use Step or Run to continue.[/i:edab481e6e]
Este erro não tem a ver com o código que lhe passei, é algo no seu projeto. Provavelmente você está tentando instanciar/usar um botão não declarado na unit do Form. Vá ao menu [b:edab481e6e]Project[/b:edab481e6e] - [b:edab481e6e]Sintax Check[/b:edab481e6e], e veja quais erros o Compilador aponta.
Este erro não tem a ver com o código que lhe passei, é algo no seu projeto. Provavelmente você está tentando instanciar/usar um botão não declarado na unit do Form. Vá ao menu [b:edab481e6e]Project[/b:edab481e6e] - [b:edab481e6e]Sintax Check[/b:edab481e6e], e veja quais erros o Compilador aponta.
GOSTEI 0
Toshio Bruno
13/07/2003
[i:67c4765a95]Project Project1.exe raised exception class EClassNotFoundWith Message ´Class TButton not Found´. Process stopped. Use Step or Run to continue.[/i:67c4765a95]
Este erro não tem a ver com o código que lhe passei, é algo no seu projeto. Provavelmente você está tentando instanciar/usar um botão não declarado na unit do Form. Vá ao menu [b:67c4765a95]Project[/b:67c4765a95] - [b:67c4765a95]Sintax Check[/b:67c4765a95], e veja quais erros o Compilador aponta.
No sintax ckeck ele não diz nada e não estou com botão nenhum só a rotina que você me passou.
GOSTEI 0
Roger_malk
13/07/2003
Toshio Bruno
No meu caso (D6) funcionou com a UNIT StdCtrls no USES do Form1.
Espero q te ajude....
roger_malk
No meu caso (D6) funcionou com a UNIT StdCtrls no USES do Form1.
Espero q te ajude....
roger_malk
GOSTEI 0