Вниз
Скачать: CL | DM;

Работа со статусной строкой   Найти похожие ветки 

 
konst ©   (2005-06-13 11:31) [0]

подскажите, плиз, как правильно в KOL работать со статусной строкой формы?

можно ли разбивать на ячейки, наподобие как в VCL:
Form.StatusText[1]:="Статус для первой ячейки";
Form.StatusText[2]:="Статус для второй ячейки";
и тд ?


 
Thaddy   (2005-06-13 11:40) [1]

Form.StatusText[0]:="This";
   Form.StatusText[1]:="is";
   Form.StatusText[2]:="an";
   Form.StatusText[3]:="example";


 
konst ©   (2005-06-13 11:48) [2]

точно также ? а зачем же тогда свойство Status.SimpleText ?

Спасибо.


 
ECM ©   (2005-06-13 12:40) [3]

Form.SimpleStatusText := "bla-bla-bla";
что эквивалентно:
Form.StatusText[255]  := "bla-bla-bla";

при этом статусная строка начинает отображаться как простой текст - все что было записано (если было) в Form.StatusText[i] -не отображается...
Подробнее см. MSDN описание Windows Controls:Status Bars (SB_SIMPLE)


 
konst ©   (2005-06-15 11:18) [4]

Спасибо, однако есть непонятная для меня закавыка.
Как свойство StatusText, рАвно как и SimpleStatusText принимают значение типа PChar, а не обычный String.

То есть, например для вывода в статусную строку числа необходимо проводить аж два преобразования: Int2Str() и затем StrPCopy(), верно ?


 
ECM ©   (2005-06-15 11:38) [5]

2konst [4]
Лучше так:
 
 Form.StatusText[0] := PChar(Int2Str(...));

или так (если ты не используешь ShortString глобально):

var
 S: String;
...
 S := Int2Str(...);
 Form.StatusText[0] := @S[1];


 
konst ©   (2005-06-15 12:29) [6]

2ECM[5]:

Спасибо огромное! всё по полочкам разложили.
тему считаю исчерпанной.



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c
6-1131097945
guru-guru
2005-11-04 12:52
2006.02.12
Помогите разобраться с IdHTTP


8-1125394696
rentgen
2005-08-30 13:38
2006.02.12
Можно ли как-то "склеить" "массив" из TBitmap в AVI ???


6-1130246746
Monah
2005-10-25 17:25
2006.02.12
как сделать ирк клиент средствами делфи


1-1137402516
tigra
2006-01-16 12:08
2006.02.12
Печать Printer.Canvas.TextOut


11-1098448368
Gleb
2004-10-22 16:32
2006.02.12
Ошибка в TToolBar?




   Наверх