Fórum Xmaker

Ler linhas de um campo do tipo "Memo" Para ler o conteúdo de um campo "Memo" utilize a propriedade "Conteudo" do objeto, essa propriedade é do tipo "TStringList", exemplo: var I: Integer; begin for I:=0 to TabGlobal.DCLIENTES.Obs.Conteudo.Count-1 do ShowMessag...

Prezados

A todos Boas Festas e um novo Ano cheio de Paz e Felicidades estendido a todos os familiares.

A versão nova do Xmaker não veio, mas continuamos esperando , e temos certeza que quando vier trará grandes
novidades para nós.

Abraços


Adilson

wkarts, Bom dia ! Ve a procedure abaixo se te ajuda . Abra o seu formulario Princ.pas e vá para para a procedure e mude os numerais 141 e 30 para as suas novas configurações. Adilson procedure TFormPrincipal.BtnMinimizaClick(Sender: TObject); begin if BtnMinimiza.Caption = '>' then PnOpcoes.Width :=...

Dimmy

tente neste

apv-2011@hotmail.com


Att.

Adilson

Dimmy

envie para adilsonpv@ig.com.br


Adilson Paes

Dimmy

Bom dia !


Favor verificar se não criou o seu BD em versão anterior do firebird ex. Firebird 1.5
Verificar se as Dlls estão no diretorio, verificar se não esta faltando alguma.


Att.

Adilson

Ronaldo,

Clique no campo superior esquerdo fontes do projeto e depois em Publicas.

t+

Dimmy,

Mostre a parte do programa que você alterou, para que possamos te ajudar.


Adilson

Dimmy

Bom dia !

Form Princ ;
procedure tformprincipal.btnminimizaclick;
altere a procedure acima com o tamanho escolhido.

espero ter ajudado.

Adilson

Prezado Dimmy, tente assim ... var ControleCampo: TWinControl; begin ControleCampo := ActiveControl; while (ControleCampo <> nil) and (ControleCampo.Owner <> Self) do ControleCampo := ControleCampo.Parent; if (Key = Chr(13)) AND NOT (NOMEDOSEUCAMPOMEMO.FOCUSED) then begin Key := #0; {Atua como a tec...