rafaelrneto

Você está trabalhado com aplicação MDI ? Se não estiver, procura nas propriedades do teu formulario a opção FormStyle e muda pra fsNormal que deve funcionar.

Eu acho que esse erro que acontece apenas quando se roda pelo delphi é disparado para que o programador saiba a exceção que gerou e trate no seu programa. Caso o programador não trate a exceção, o erro aparece tambem no executavel.

Explica o que tu ta querendo fazer com essa função pra vê se eu consigo te ajudar.

Testei e deu certo. Criei um form e adicionei um edit e um botão. No onClick do botão verifico se o edit é numero ou string. Abaixo segue o codigo. unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var isInteiro:Boolean; inteiro: Integer; begin isInteiro:=true; try inteiro := StrtoInt(Edit1.Text); Except on EConvertError do IsInteiro:= false; end; if (isInteiro) then showmessage('inteiro') else showmessage('string'); end; end.

É só tu tratar o erro assim: try inteiro := StrtoInt(Edit1.Text); Except on EConvertError do flag:= false; end;

Valeu, deu certo. Agora, tem como o QRshape se adptar ao tamanho ao numero de linha do QRDBText.

Tenta isso: isInteiro:=true; try inteiro := StrtoInt(Edit1.Text); Except on EConvertError do flag:= false; end; if (isInteiro) then showmessage('inteiro') else showmessage('string');

Tenho um qrdbtext no Quick Report que é muito grande e por isso ele bagunça o meu relatorio. Existe uma maneira de fazer com que esse qrdbtext desca para as proximas linhas caso exceda o limite lateral da pagina?

Quando se utiliza update, insert e delete, pra executar o sql você deve chamar o metodo ExecSQL e não Open. No teu caso ficaria assim: qryProdGrid2.ExecSQL.

Estou terminando de fazer uma aplicação e só agora me atentei pra um problema: a resolução. Fiz todo o programa com a resolução de 1024x768. Tenho que transforma-lo para 800x600. O que vocês acham que seria melhor: diminuir os componentes dos formularios para que possam caber na tela 800x600 ou usar alguma algum algoritmo para adaptação da resolução em tempo de execução.

Valeu, deu certo. Tentei fazer isso com um formulário que contenha o quickreport e não deu certo. tentei de duas formas: TQRLabel(Form.FindComponent('qrlabel10')).caption :='teste'; (Form.FindComponent('qrlabel10') as TQRLabel).caption :='teste'; Você sabe por que não funcionou?

Estou fazendo uma função que passa como parâmetro um formulário. Quero alterar alguns componentes do formulário, mas em tempo de compilação, não é reconhecido o nome das variáveis do formulário. Por exemplo: procedure teste(form: TForm); begin form.label10.caption := 'teste'; end; Dá erro no label10, pois ele só será conhecido em tempo de execução. Alguém sabe como resolver isso? Talvez passando o nome das variáveis do formulário como string, mas eu não sei como fazer.

No meu caso não posso optar por essa solução. Tenho que tentar descobrir o motivo desse problema. Se tiver alguma idéia ou palpite de onde possa estar o problema posta ai, valeu?