Kikonanet

Olá V&A, você pode por no OnCreate begin Height := 250; Width := 200; Top := Screen.Height - Height; Left := Screen.Width - Width; Show; end; qualquer coisa posta ae... Abs. Kiko

Olá, Dê uma olhada neste exemplo var F: TextFile; Dados, Insere: string; Memo:TMemo; begin // Usa um Memo pra guardar as informaçoes do Arquivo Memo:= TMemo.Create(Self); with Memo do begin Parent := Form1; Visible:=False; end; Memo.Clear; //Lê o Arquivo AssignFile(F,'c:\arq.txt'); Reset(F); while Not Eof(F) do begin Readln(F,Dados); Memo.Lines.Add(Dados); end; CloseFile(F); // Limpa o Arquivo AssignFile(F,'c:\arq.txt'); Rewrite(F); Writeln(F,''); CloseFile(F); // Dado a ser Inserido Insere:=Edit1.Text; Memo.Lines.Text:= Memo.Text + Insere; Dados:=Memo.Text; // Escreve AssignFile(F,'c:\arq.txt'); Rewrite(F); Writeln(F,Dados); CloseFile(F); end; qualquer coisa posta ae. Abs. Kiko

Olá, você diz q ele substitui o q estava gravado no arquivo antes? Se for isso, primeiro você tem q ler o arquivo, salvar em uma string, concatenar com o q você quer adicionar e por último escrever. Abs. Kiko

Olá, Criar arquivo var F: TextFile; begin AssignFile(F,'c:\arq.txt'); Rewrite(F); Writeln(F,Dados); CloseFile(F); end; O erro pode ser porque você não esteja especificando o caminho c:\arq.txt Abs. Kiko

Olá, Tenta assim: var Data: string; begin Data:=Memo1.Text; If formatDateTime('dd/mm/yy',now) = Data Then // Codigo end; Só tome cuidado para não trazer caracter branco do memo! Abs. Kiko

Olá, No Uses, adicione a unit -> DateUtils Abs. Kiko

Olá, Para você mudar o nome que vem do Banco e o Alinhamento do Título. - Dê um duplo click no DBGrid; - Selecione o Column; - No Object Inspector, vai na propriedade Title - Caption para trocar o nome e Title - Alignment para alinhar. qualquer coisa posta ae. Abs. Kiko

Olá Dyeggo, Faça assim, crie arquivos txt com os nomes das cartas. Ex: CartaConta.txt e coloque no mesmo diretório da aplicação (.exe). No evento OnClick do ComboBox adicione: procedure TForm1.ComboBoxMensagemProntaClick(Sender: TObject); begin if ComboBoxMensagemPronta.ItemIndex = 0 then // Aniversário Memo.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'CartaAniversario.txt'); if ComboBoxMensagemPronta.ItemIndex = 1 then // Dividas Memo.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'CartaDivida.txt'); if ComboBoxMensagemPronta.ItemIndex = 2 then // Contas Memo.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'CartaContas.txt'); end; qualquer coisa posta ae. Abs. Kiko

Olá, Eu concordo com o Graymalkin... usando o DBGrid é mais fácil... Mas dê uma olhada neste tópico, acho q ele pode te ajudar http://scriptbrasil.com.br/forum/index.php?showtopic=56501 Não desencane! qualquer coisa posta ae. Abs. Kiko

Olá, você pode colocar 2 RadioButtons (MensagemPronta e EscreverMensagem) No Evento OnClick MensagemPronta if RadioButtonMensagemPronta.Checked then ComboBox1.Enabled:=True; No Evento OnClick EscreverMensagem if RadioButtonEscreverMensagem.Checked then Memo1.Enabled:=True; Explica melhor... Mas pelo q entendi tem como fazer sim Abs. Kiko

Crie na tabela q estao os emails Abs. Kiko

Olá, Fiz um exemplo, veja se te ajuda var Dias, Dias_Multa, ValorMulta: integer; Data_Entrega, Data_Retirada:TDate; begin with Query1 do begin Close; SQL.Clear; SQL.Add('SELECT * FROM Tabela1'); Open; Data_Entrega:=FieldByName('Data2').AsDateTime; Data_Retirada:=FieldByName('Data1').AsDateTime; end; Dias:= DaysBetween(Data_Entrega,Data_Retirada); Dias_Multa:=Dias - 7; if Dias_Multa > 0 then ValorMulta:=Dias_Multa * 2; end; qualquer coisa posta ae. Abs. Kiko

Olá Dhyeggo, você pode colocar um DBGrid com um checkbox embutido... que irá mostrar os e-mails do banco com a opçao de você checar... você precisará de um campo na sua tabela do tipo boolean Adicione um DBCheckBox e um DBGrid No Oncreate do Form DBCheckBox1.DataSource:= DataSource1; DBCheckBox1.DataField:= 'CAMPO'; DBCheckBox1.Visible:= False; DBCheckBox1.Color:= DBGrid1.Color; DBCheckBox1.Caption:= ''; E para enviar email você le assim: var Emails: TMemo; begin with Query do begin Close; SQL.Clear; SQL.Add('SELECT * FROM TABELA'); Open; while not(EOF) do begin if fieldByName('CAMPO_BOOLEAN').AsBoolean then Emails.Lines.Add(fieldByName('EMAILS').AsString); Next; end; end; end; qualquer coisa posta ae.. Abs. Kiko

Olá João, você pode fazer um Form Login e fazê-lo que ele seja inicializado primeiro. Segue um exemplo: // Verifica usuario e senha with QueryLogin do begin Close; SQL.Clear; SQL.Text:='SELECT * FROM TblUsuarios WHERE Usuario="'+EditUsuario.Text+'"'; open; if EOF then begin ShowMessage('Usuário não cadastrado'); EditUsuario.SetFocus; end else if (FieldByName('Senha').AsString=EditSenha.Text) then begin // Coloque o show do Form caso o usuario e senha seja corretos end else begin ShowMessage('Senha Incorreta'); EditSenha.SetFocus; end; end; qualquer coisa posta ae. Abs. Kiko

Olá, Acho q estes links podem te ajudar Link 1 Link 2 Link 3 Abs. Kiko

Olá Felipe, Dê uma olhada no help do Delphi na função SendMessage(). Ela envia mensagens usando API do windows... Acho q pode te ajudar Abs. Kiko

Olá Caio, Se eu não me engano com DBExpress o DBGrid não funciona... Ae você teria q mostrar os dados num StringGrid ou em Edit. Abs. Kiko

Olá Carla Esses arquivos ficam na mesma pasta do Executavel?? Se ficar você pode usar ExtractFilePath(Application.ExeName); // Retorna o caminho da sua aplicação ex: str_path := ExtractFilePath(Application.ExeName); frmAjuda.show; frmAjuda.WebBrowser1.Navigate(str_path + 'Culturas.htm'); Obs: Não seria str_path :='c:\projetos\Carla\Terraço2\'; As barras (/) estão ao contrário! Abs. Kiko

Olá Nightmare, Você terá que fazer na "unha" para preencher o StringGrid. Vai um exemplo ai... Coloque um StringGrid com 2 colunas e algumas Linhas... procedure TForm1.Button1Click(Sender: TObject); var Linha, Coluna: integer; begin Linha:=1; Coluna:=1; with Query1 do begin Close; SQL.Clear; SQL.Add('SELECT Campo FROM Tabela'); Open; while not(EOF) do begin if StringGrid.RowCount <= Linha then // Adiciona linhas conforme o nº registro StringGrid.RowCount:= StringGrid.RowCount + 1; StringGrid.Cells[Coluna,Linha]:=FieldByName('Campo').AsString; // mostra no grid o campo StringGrid.Cells[0,Linha]:= IntToStr(Linha); Linha:=Linha + 1; // Proxima Linha Next; // Proximo Registro end; end; end; qualquer coisa posta ae. Abs. Kiko

Olá V&A, var nome:string; begin nome:=FormatDateTime('dd-mm-yy hh-mm',now); end; qualquer coisa posta ae Abs. Kiko

Olá, Tenta assim: FormatDateTime('dd-mm-yy hh-mm',now); Abs. Kiko

Olá, Olha esta função (Calcula a Idade Atual) function IdadeAtual(Nasc : TDate): Integer; Var AuxIdade, Meses : String; MesesFloat : Real; IdadeInc, IdadeReal : Integer; begin AuxIdade := Format('%0.2f', [(Date - Nasc) / 365.6]); Meses := FloatToStr(Frac(StrToFloat(AuxIdade))); if AuxIdade = '0' then begin Result := 0; Exit; end; if Meses[1] = '-' then begin Meses := FloatToStr(StrToFloat(Meses) * -1); end; Delete(Meses, 1, 2); if Length(Meses) = 1 then begin Meses := Meses + '0'; end; if (Meses <> '0') And (Meses <> '') then begin MesesFloat := Round(((365.6 * StrToInt(Meses)) / 100) / 30.47) end else begin MesesFloat := 0; end; if MesesFloat <> 12 then begin IdadeReal := Trunc(StrToFloat(AuxIdade)); // + MesesFloat; end else begin IdadeInc := Trunc(StrToFloat(AuxIdade)); Inc(IdadeInc); IdadeReal := IdadeInc; end; Result := IdadeReal; end; Espero que ajude. Abs. Kiko

Olá, É assim tmb... procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin Edit2.Text:=Edit1.Text; end; Abs. Kiko

Olá, Como você está fazendo a conexão? você está usando componentes da DBControls? você pode usar uma Query e mostrar os dados num DBGrid. With Query1 do begin Close; SQL.Clear; SQL.Add('SELECT * FROM TABELA'); Open; end; Abs. Kiko

Ae, O erro diz que o campo Data Nascimento não foi encontrado. Verifica se o nome do campo esta certo! Abs. Kiko