s3c

Veja Trunc e Round

A primeira coluna na verdade não é um SubItem e sim o Caption do Ítem que só alinha à esquerda. Uma dica é você desprezar o Caption deixando MinWidth, MaxWidth e Width = 1. A altura das linhas acho que só alteram quando você altera a fonte.

DM.dmBitsPerPel := 32;

porque você testa VarIsEmpty(IE) se IE é uma variável local ?

var DM:DEVMODE; begin EnumDisplaySettings(nil, 0, DM); DM.dmPelsWidth := 1024; DM.dmPelsHeight := 768; ChangeDisplaySettings(DM, 0); end;

Pensei que você quisesse saber o tamanho da tela no momento da execução do seu aplicativo. você quer modificar a resolução de tela pelo Delphi ?

O Delphi disponibiliza a variável Screen que representa a tela na qual seu aplicativo está executando.

você deve estar perdendo o foco em algum ponto após executar a função para criar o MDIChild; provavelmente no seu .exe

Quando você utiliza forms MDIChilds, eles tem que ter um form MDI pai que deve ser o Main Form de TAppilication. Com isso, você tem que dizer p/ sua dll que o Application dela é o Application do executável, senão dará erro no MDIChild. Quando você finaliza a dll, você tem que voltar o TApplication original dela, senão poderá dar algum erro de Windows.

Olá Ricardo, crio MDIChilds em dlls e o foco fica na MDIChild. Não sei o que pode estar ocorrendo, mas lá vai o código básico que é utilizado: function Cria_MDIChild(App:TApplication):Boolean; begin Result := false; try Application := App; // atribui o TApplication do .exe Form1 := TForm1.Create(Application); // Cria o MDIChild Form1.Show; // Após o Show, o foco fica no MDIChild Result := true; except begin // bla bla bla end; end; end; initialization OldApp := Application; // Salva o TApplication da dll finalization Application := OldApp; // Restaura o TApplication

Poste o código que cria o MdiChild na dll.

WinExec(PChar(OpenDialog.Filename),sw_show);

Colega, quando você faz: buf := tmemorystream.Create; buf.LoadFromFile('c:/teste.mp3); você já está alocando memória e transferindo o arquivo p/ a memória alocada. Quando você faz:l := buf.Read(texto,sizeof(texto)); você copia os bytes da memória já alocada p/ outra parte de memória; ou seja; você utiliza memória em dobro. Quando você faz:buf2.Write(texto,sizeof(texto)); você aloca outro trecho de memória e faz a cópia dos bytes; ou seja; você está alocando memória triplamente. Se for uma simples cópia você pode fazer:buf := tmemorystream.Create; buf.LoadFromFile('c:/teste.mp3); buf.SaveToFile('c:/teste2.mp3'); buf.Free; Quanto ao stack overflow, existe um limite p/ arrays estáticos que normalmente é 1MB; então você pode aumentar este limite em:Project/Options/Linker/Max stack size. Ou também definir um array dinâmico e alocar memória´p/ ele:texto : array of char; SetLength(texto, buf.Size);

DB é a unit que implementa as classes TField, TNumericField, etc... DBTables é a unit que implementa as classes TTable, TDatabase, etc... Poste seu código e o erro de compilação que está dando.

if not DirectoryExists('C:\Nova Pasta') then CreateDir('C:\Nova Pasta');

Acho que você não entendeu. Não some nada nos eventos, apenas manda executar a função de soma. Nesta função ou procedure, some Edit1+Edti2+Edit... e jogue o resultado no Edit8. Não importa quantas vezes os eventos são executados ou quantas vezes a função é executada. A soma sempre estará correta porque ela fará: Soma := Edit1+Edit2...+Edit7; Edit8.text := FloatToStr(Soma);

Nos eventos apenas mande executar a função e não faça nenhum cálculo. Na verdade não precisa ser uma função, pode ser uma procedure. Nesta procedure você soma todos os Edits e joga o valor da soma no Edit8.

Eu sei disso. Acho que me expressei mal. Ao invés de você acumular um campo chamado soma nos eventos dos Edits, execute uma função que retorne o valor da soma de todos os Edits e jogue no Edit8. O valor será sempre colocado em tempo real e não importa quantas vezes se entre e saia de um Edit que a soma estará sempre correta.

Ao invés de somar a cada enter ou tab dos edits, crie uma função soma que soma todos os edits e retorne um Integer ou Double. Nos enters e tabs dos edits você faz: Edit8.Text := FloatToStr(soma);

Mas do jeito que está, se sair do Edit1 ele atualiza o campo soma. Quando sair do Edit2 o campo soma ficará Edit1+Edit2. Se voltar e sair do Edit2 novamente, o campo soma ficará Edit1+Edit2+Edit2. É assim mesmo que deve funcionar ?

Vamos por parte: TNumericField(Query1.FieldByName('Campo_Numero')).DisplayFormat := '#.0';Esta foi só uma linha-exemplo, você deve adaptar os nomes que você utiliza: 1-TNumericField - Existe e é descendente de TField. 2-Query1 - você deve colocar o nome da sua TQuery ou TTable. 3-FieldByName - Existe e é uma função da classe TDataset que retorna um TField, portanto pode ser usada nas classes herdadas TQuery e TTable. 4-'Campo_Numero' - você deve colocar o nome do seu campo numérico. 5-DisplayFormat - Existe e é um propriedade da classe TNumericField, por isso você deve fazer o cast de TField retornado pela função FieldByName para TNumericField. ps:Veja tb se DB e DBTables estão no seu uses.

Que linha ?

Bom, você pode colocar em PopupMenu do TEdit um Popup vazio ou no evento onMouseDown: uses Clipbrd; if Button = mbRight then Clipboard.AsText := '';

Evento onKeyPress: if Key = #22 then Key := #0;

Colega, é um evento do objeto TApplication; defina: procedure Minimizando(Sender:TObject); Depois:procedure TForm1.FormCreate(Sender: TObject); begin Application.OnMinimize := Minimizando; end; procedure TForm1.Minimizando(Sender:TObject); begin // quando entrar aqui, a aplicação já está minimizada end;