Veja como mostrar facilmente todo o conteúdo de um campo memo.

A maioria dos desenvolvedores utilizam o componente DBGrid (ou similar) para mostrar o conteúdo de uma tabela. Os problemas começam quando temos um campo do tipo Memo. Mostrar seu conteúdo fica um pouco complicado. Mas há uma forma interessante de fazer isto. Primeiramente vamos explicar a funcionalidade: O DBGrid está mostrando o conteúdo de nossa tabela. No campo memo fazemos um duplo clique e uma janela (pequena) é aberta mostrando seu conteúdo. Vamos à codificação disto aí em cima. Primeiro uma função que é a responsável por abrir a janela e mostrar o conteúdo do campo memo: function TForm1.MostraMemo(Dts: TDataSource; Dbg: TDBGrid; Fld: TField): Boolean; var   Frm: TForm;   Ret: Boolean;   Mem: TDBMemo; begin   Ret := False;   if Dts.DataSet.RecordCount > 0 then      if Dbg.SelectedField = Fld then begin         Ret := True;         Frm := TForm.Create(nil);         try           Frm.Width       := 240;           Frm.Height      := 120;           Frm.Top         := Mouse.CursorPos.Y;           Frm.Left        := Mouse.CursorPos.X;           Frm.BorderStyle := bsToolWindow;           Frm.Caption     := Fld.DisplayLabel;           Mem := TDBMemo.Create(nil);           try             Mem.Parent     := Frm;             Mem.Align      := alClient;             Mem.DataSource := Dts;             Mem.DataField  := Fld.FieldName;             Mem.ReadOnly   := True;             Mem.ScrollBars := ssVertical;             Frm.ShowModal;           finally             Mem.Free;           end;         finally           Frm.Free;         end;      end;   Result := Ret; end; Agora o trabalho é no DBGrid. No evento "OnDblClick" faça o seguinte: procedure TForm1.DBGrid1DblClick(Sender: TObject); begin   MostraMemo(DBGrid.DataSource, DBGrid1, DBGrid1.SelectedField); end; Este é todo o trabalho !

Quebra-Linha

Colaborador..: Marcelo Torres
Categoria(s).: Delphi;
Versão.......: 1.00
Data.........: 30/06/2005 11:29:35
Visualizado..: 9227 vezes
Fonte........: Marcelo Torres