Progr'amador

Olá, Tenta assim: Na opção BorderStyle: bsNone e o código abaixo private { Private declarations } procedure WMNCHitTest(var Msg: TMessage); message WM_NCHitTest; public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.WMNCHitTest(var Msg: TMessage); begin if GetAsyncKeyState(VK_LBUTTON) < 0 then Msg.Result := HTCAPTION else Msg.Result := HTCLIENT; end; Abs. Progr'amador.

Ok! toda ajuda é bem vinda pro forum! e pode contar com agente tambem! Proplema Resolvido, Tópico Fechado Abs. Progr'amador.

É verdade! Eu tambem mechi muito com Access que usa VB e de vez em quando no delphi eu coloco uns End If Abs. Progr'amador

Olá kcris, Desculpe a pergunta, mas, qual finalidade disso, porque não tem como fazer isso com um dblookupcombobox. Abs. Progr'amador.

Como você ta fazendo a inicialização desse form de login, e no font do projeto? Abs. Progr'amador.

Olá Graymalkin, No VB sei que se usa aspas duplas, mas no delphi num seria Aspas simples?? Tipo: sSQL := 'Select nome from pessoal where codigo = ' + dbCod.text Abs. Progr'amador.

Olá Halan Lopes, tenta o isso: coloque uma variavel no seu form principal tipo: vLogoff : Boolean; e no click do login do menu coloque assim: Loginfrm := TLoginfrm.Create(Self); vLogoff := True; Loginfrm.ShowModal; Loginfrm.Free; no onShow do form coloque: Loginfrm.Hide; e por ultimo isso: procedure TLoginfrm.BitBtn1Click(Sender: TObject); var achou : boolean; begin if DBLookupComboBox1.Text = '' then begin ShowMessage('Informe o Nome do Usuário...'); DBLookupComboBox1.SetFocus; Exit; end; achou := Table1.Locate('Login',Trim(DBLookupComboBox1.Text),[]); if achou then begin if EditSenha.Text = '' then begin ShowMessage('Informe a Senha do Usuário...'); EditSenha.SetFocus; Exit; end; if EditSenha.Text <> Table1.FieldByName('Senha').AsString then begin ShowMessage('Senha incorreta...'); EditSenha.Text := ''; EditSenha.SetFocus; Exit; end else begin if not vlogoff then Application.Run; Close; end; end; acho que é só isso! Abs. Progr'amador.

Olá, Seja mas especifico, que banco de dados e componente, você ta usando pra fazer a gravação? Se você num quer usar nada visual, tem algo que identifique quando é entrada ou saida? Abs. Progr'amador.

Olá, quero dizer pra você excluir (deletar) essa query e fazer numa nova query, ou então dê dois cliques nesse query e limpe os fields da lista se houver, mas o mais aconselhavel é fazer em uma nova query. Abs. Progr'amador.

Olá Arlon!!! quanto tempo! É verdade o que você falou, mas ele andou pisando na bola em alguns tópicos ae (nada tão serio ), ele tá ajudando legal sim, mas isso só o tempo dirá. Abs. Progr'amador.

Olá, onde você ta executanto esse código? em qual evento? Quer dizer que a altura do band seria calculado de acordo com a altura do edt_alturaEtiqueta, e o que acontece, é que num mesmo relatório o tamanho desse edt_alturaEtiqueta varia de acordo com cada registro e o band não ta acomanhando esse tamanho, é isso??? PS. Outra coisa, realmente você pode usar sim o height no Size sim, eu que confundi as coisas mesmo. Abs. Progr'amador.

Olá, Num sei se entendi bem, mas nesse caso você teria que usar outra query pro bdcombobox. Posta ae sua select? Pra que eu possa entender melhor: qual seria a finalizadade do dbcombobox nesse form? Abs. Progr'amador.

E num seu se você leu essa parte: Maneiras eficientes de NUNCA se tornar um Mod: * floodar * brigar (ou seja, agredir diretamente a pessoa com que se está discutindo) * pedir pra ser moderador * abusar da boa vontade e paciência dos demais Abs. Progr'amador.

Olá, Esses computadores estão ligados em rede? Abs. Progr'amador.

Olá, mas qual é o erro que da mesmo? Posta ae a mensagem de erro que aparece! Abs. Progr'amador.

Olá Wesley, Que eu saiba não existe. Mas porque querer programar em portugues?, acredite! você é capaz! Abs. Progr'amador.

Olá, ainda não entendi direito, esse ajuste você ta fazendo em tempo de projeto? Posta ae o código que você ta usando, falou!!! Abs. Progr'amador.

Olá Carla, Num precisa disso não, coloque um DataSource linkado com o a sua query (qryCulturas) e no DBCombobox, na opção DataSource coloque esse DataSource que você incluiu, e na opção DataField o campo de você quer mostrar no DBComboBox. Abs. Progr'amador.

Ok! Problema resolvido, Tópico fechado!!! Abs. Progr'amador.

Olá, faz assim: Coloque um comando pra zerar essa variavel no BeforePrint do Band Title. variavel := 0; Abs. Progr'amador.

Olá, o Size é da linha, no object inspector você encontrarar a propriedade Height, é só alterá-la, ou arastando no proprio band. Abs. Progr'amador

Olá Paulo, Desde de que você postou isso, achei interessante, e isso me levou a pesquisar sobre o assunto e consegui uma resposta, na verdade não funcionava, então, tive que fazer algumas alterações, porem, essa função tem algumas limitações, tipo: - Usar fonte cujo os caracteres tenham o mesmo tamanho, como por exemplo a 'Courier New', 'Arial por exemplo não funciona legal'; - O tamanho do Memo (Width) deve ser compativel com o número de caracteres possiveis da linha (Length). Exemplo: Adicione um Memo e um button no form; Memo: font Courier New, Tam 8, Width = 281. declare duas variaveis no Var: nX e nCount, e use essa função (function Justifica) var Form1: TForm1; nx, nCount : integer; implementation {$R *.DFM} function Justifica(mCad:string;mMAx:integer):string; var mPos,mPont,mTam,mNr,mCont:integer; mStr:string; begin mTam:=Length(mCad); if mTam>=mMax then Result:=copy(mCad,1,mMax) else mStr:=''; mCont:=0; mPont:=1; mNr:=mMax-mTam; nx := nx + 1; while mCont<mNr do begin mPos:=pos(mStr,copy(mCad,mPont,100)); if mPos=0 then begin mStr:=mStr+' '; mPont:=1; end else begin mCont:=mCont+1; Insert(' ',mCad,mPos+mPont); mPont:=mPont+mPos+length(mStr); end; Result:=mCad; if nx = nCount then Exit; end; end; No Button coloque: procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin nx := 0; nCount := memo1.Lines.Count; for i := 0 to memo1.Lines.Count - 1 do begin Memo1.lines[i]:=justifica(memo1.lines[i],40); //Memo1.lines[i]:=justifica(texto da Linha, Nº de carac. possiveis da linha); end; end; estou usando esse texto com exemplo: "Delphi 3 works with the last release of Delphi 2. However, be sure to back up important data, including projects you intend to share between versions 2 and 3, before attempting to install the new version." veja o resultado: É isso!, espero que isso te ajude. Abs. Progr'amador.

Ae XdogX, Nada contra vc, mas você disse que leu as regras, é bom ler dinovo cara, nada de pirataria beleza!!! Abs. Progr'amador.

Olá, Exclua essa QueryMovimentacao e crie outra, e coloque essa select, ok! Eu num tenho nenhum exemplo desse não. Abs. Progr'amador.

Olá Lyan, Ae vai o Link: http://scriptbrasil.com.br/forum/index.php?act=Reg&CODE=00 Com relação ao seu tópico, realmente esse assunto não agrada ninguém, talvez você não queira usar para o mau, mas podem ter pessoas que façam mau uso desse programa, por isso esse tipo de assunto não é permitido, se eu sei que tem algo que me ajude, no entanto, pode ser usado contra mim mesmo, não vou publicar nem comentar sobre ele, entende! por favor, não me leve a mau! e você XdogX, vamos manerar ae falow! talvez ele realmente não esteje com mau entenção, não julge pessoas sem nem ao menos conhece-lás! E pra evitar discursões, e por se tratar de um assunto de risco, to fechando o tópico. qualquer coisa pode me mandar MP, falou!!! Abs. Progr'amador.