Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "KOL";
Текущий архив: 2004.01.13;
Скачать: [xml.tar.bz2];

Вниз

Глюк StatusText   Найти похожие ветки 

 
nsvi   (2003-04-26 02:20) [0]

Обнаружил такую картину:
стоит только обнулить StatusText т.е.
Form1.Form.StatusText[0]:=PChar(" ");
как тут же Runtime Error 216 at BFE9CDE8, причем это наблюдается в Win98.
В WinME и XP этого нет. В других не пробовал, но говорили мне, что и в WinNT тот же Error.
А если в данный момент мне не надо ничего выводить в StatusText? Как быть?
Пробовал выводить пробел, картина та же.

Даю это сообщение для тех, кто столкнется с этой ситуацией. Нельзя оставлять Form1.Form.StatusText пустым.


 
BaRToV   (2003-04-26 10:39) [1]

> Нельзя оставлять Form1.Form.StatusText пустым.
Что за бред?!...

Form1.Form.StatusText[0] := #0;
или
Form1.Form.StatusText[0] := "";
И под Win9x работает на ура.


 
nsvi   (2003-04-27 01:35) [2]

А если имеется такое?

if High then
W1:="gthhyjg"
else
W1:="";
Form1.Form.StatusText[0] := Pchar(W1);

и попробуй вставить это в
procedure TForm1.KOLForm1FormCreate(Sender: PObj);

Имелись несколько программок, все не работали в Win98 именно из-за этого. И не только при открытии формы, но и в процессе работы программ, если обнулялась строка статуса. Если бы это был бред, я бы не убил на это несколько часов работы.


 
BaRToV   (2003-04-27 09:07) [3]

> Имелись несколько программок, все не работали в Win98 именно из-за этого.
Еще раз скажу, все работает.

KOL/MCK 1.72, Delphi 5, Win 98 SE и Win Xp.

procedure TForm1.KOLForm1FormCreate(Sender: PObj);
var
b: Boolean;
st: string;
begin
b := FALSE; //TRUE; // Играемся параметрами

if b then
st := "Петрович"
else
( st) [3] > Имелись несколько программок, все не работали в Win98 именно из-за этого.
Еще раз скажу, все работает.

KOL/MCK 1.72, Delphi 5, Win 98 SE и Win Xp.

procedure TForm1.KOLForm1FormCreate(Sender: PObj);
var
b: Boolean;
st: string;
begin
b := FALSE; //TRUE; // Играемся параметрами

if b then
st := "Петрович"
else
st := "";

Form1.Form.StatusText[0] := PChar(st);
end;

Залей мне на мыло посмотрю.


 
Avenger [NhT]   (2003-04-27 13:36) [4]

Да паренек это у тя винда глючит...



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

Форум: "KOL";
Текущий архив: 2004.01.13;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.008 c
1-37651
Эдуард
2003-12-26 11:32
2004.01.13
Создание компонента в DLL


1-37697
Komar
2003-12-26 07:44
2004.01.13
Работа с текстом


11-37597
Jin
2003-04-27 14:26
2004.01.13
KOLMaskEdit


14-37927
Snappy
2003-12-18 01:28
2004.01.13
Теория нечетких множеств(обучалка)


7-37954
АСт
2003-11-01 16:47
2004.01.13
Запуск приложения





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский