Ou vc pode desenhar (de verdade) em qualquer área do PageControl.
var
DC: HDC;
R: TRect;
CV: TCanvas;
begin
CV := TCanvas.Create;
//Toda janela tem um "device context"
DC := GetDC(PageControl1.Handle);
try
//Só precisamos associá-lo a um objeto Canvas
CV.Handle := DC;
//E
mas não coloca o texto em qualquer possição,
> porque quando tem texto na linha a informação a mais que eu quero colocar na
> linha vai pro final do texto atual e naum para posição que eu quero
>
> Em 31 de março de 2010 10:17, ricardo250175
> escreveu:
>
> >
> >
>
O jeito mais simples, sendo lin o índice da linha que vc quer e col a posição
dentro da linha:
Memo1.CaretPos := Point(col, lin);
Memo1.SelText := 'Texto'
ou, se preferir:
var
s: string;
begin
s := Memo1.Lines[lin];
Insert('Texto', s, col + 1);
Memo1.Lines[lin] := s;
end;
Particularme
Acho que o erro está em "for i := 0 to Length(conteudo) do"
O índice do primeiro caractere de uma string é 1 e não 0 (zero). Voce pode
estar tentando escrever em uma posição de memória que não está alocada.
--- Em delphi-br@yahoogrupos.com.br, "Felipe Lopes"
escreveu
>
> Galera boa noite
>
>
Pelo que entendi, vc quer listar o nome dos campos de uma tabela, certo?
Você não especificou exatamente qual o tipo de acesso a dados que vc está
usando, mas se for algo compatível com o TDataSet padrão do Delphi, vc pode
usar algo como:
var
i: integer;
begin
ComboBox1.Clear;
for i:= 0 t
Vc não especificou qual o tipo de acesso a dados que está usando, mas se for
compatível com TDataSet, vc pode usar a propriedade TFieldDefs para recuperar
informações da tabela:
var
i: integer;
begin
ComboBox1.Clear;
for i:= 0 to SQLQuery1.FieldDefs.Count - 1 do
begin
ComboBox1.Items
Vc não especificou qual o tipo de acesso a dados que está usando, mas se for
compatível com TDataSet, vc pode usar a propriedade TFieldDefs para recuperar
informações da tabela:
var
i: integer;
begin
ComboBox1.Clear;
for i:= 0 to SQLQuery1.FieldDefs.Count - 1 do
begin
ComboBox1.Items
7 matches
Mail list logo