в одной ячейке надписи были в 2-х или 3-х рядках и текст отображался целиком а не прятался за границами

[KSP]

Как мне сделать так чтобы в одной ячейке надписи были в 2-х или 3-х рядках и текст отображался целиком а не прятался за границами ячейки. спасибо.

[Kukkk]

В лейбл вроде нельзя,можно в TMemo.

[Kukkk]

Вот пока делал свою прогу получилось у меня что в лейбл можно строчки делать)))
while not eof(f) do ///Пока не конец файла
begin
read(f,c); ///Читаем из файла ф символ в переменную типа char
g:=g+c; ///Добавляем наш символ в переменную g типа string
End;
Label1.Caption:=(g); ///Ну и выводим в лейбл что получается

Код не проверял,должен работать.

[Alex21]

Пробуем так: #13#10

[Stilet]

В лейбл можно все, например :

[I]unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Memo1: TMemo;
procedure Memo1Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Memo1Change(Sender: TObject);
var i:integer;
begin

// А вот так мы в лабель выводим несколько строк в цикле
// вообще если иметь тело с потомками TStrings, то мона в лабель
// выводить одной командой просто:
// label.caption:=memo.lines.text
// но поскольку тебе нужен скорее всего цикл то смотри сюда:

//********* FOR ******************
Label1.Caption:='';
for i :=0 to Memo1.Lines.Count-1 do
begin
Label1.Caption:=Label1.Caption+#10# 13+Memo1.Lines;
end;
//******* END FOR ****************{}
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

// а это чтоб слова не переносились, и не рвались
Label1.AutoSize:=true;
end;
end.


Вот так!

[KSP]

я извиняюсь мне нада в ячейку в StringGrid

[Alex21]

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
 s := 'Hello world1! Hello world2! Hello world3! Hello world4!';
 DrawText(StringGrid1.Canvas.Handle,PChar(s),length(s),Rect,DT_WORDBREAK);
end;

[KSP]

Спасибо но просьба. Как мне сделать так штоби при вводе массива:


procedure TForm1.Button4Click(Sender: TObject);
var i,j,ii:integer;
begin
f1:=TStringList.create();
f1.LoadFromFile('\\172.50.47.23\x\V asa.ksp');
ii:=0;
for i:=0 to 5 do
for j:=2 to 5 do
begin
Form2.StringGrid1.Cells[i,j]:=f1.Strings[ii];
inc(ii);
end;
Form2.Show;
end;

Все значения сами переносились по словам и когда вводить текст тоже чтобы само переносилось по словам



Спасибо