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

Под вистой не отображается label   Найти похожие ветки 

← →
Великий   (2010-06-21 20:54) [0]

В программе есть Label (если это важно то он стоит поверх Image).имеется следующий код:
If combobox1.text="Íàáîð âàííû" then
begin
 label1.Visible:=true;
 label2.Caption:="";
 label1.Color:=clwhite;
 label1.Refresh;
 label1.Font.Color:=clBlack;
 label1.Refresh;

 Image1.Picture.LoadFromFile("C:\bakalavr\1etag_vanna.jpg");
 Image1.Refresh;
 sleep(3000);
 sndPlaySound("C:\bakalavr\sound\clickerx.wav",1);
 Label2.Caption:= Label2.Caption + "1";
 label2.Refresh;
 sleep(500);

 sndPlaySound("C:\bakalavr\sound\clickerx.wav",1);
 Label2.Caption:= Label2.Caption + "ý";
 label2.Refresh;
 sleep(500);

 sndPlaySound("C:\bakalavr\sound\clickerx.wav",1);
 Label2.Caption:= Label2.Caption + "ò";
 label2.Refresh;
 sleep(500);

 sndPlaySound("C:\bakalavr\sound\clickerx.wav",1);
 Label2.Caption:= Label2.Caption + "à";
 label2.Refresh;
 sleep(500);

 sndPlaySound("C:\bakalavr\sound\clickerx.wav",1);
 Label2.Caption:= Label2.Caption + "æ";
 label2.Refresh;
 sleep(500);

 sndPlaySound("C:\bakalavr\sound\clickerx.wav",1);
 Label2.Caption:= Label2.Caption + " ";
 label2.Refresh;
 sleep(500);

 sndPlaySound("C:\bakalavr\sound\clickerx.wav",1);
 Label2.Caption:= Label2.Caption + "â";
 label2.Refresh;
 sleep(500);

 sndPlaySound("C:\bakalavr\sound\clickerx.wav",1);
 Label2.Caption:= Label2.Caption + "à";
 label2.Refresh;
 sleep(500);

 sndPlaySound("C:\bakalavr\sound\clickerx.wav",1);
 Label2.Caption:= Label2.Caption + "í";
 label2.Refresh;
 sleep(500);

 sndPlaySound("C:\bakalavr\sound\clickerx.wav",1);
 Label2.Caption:= Label2.Caption + "í";
 label2.Refresh;
 sleep(500);

 sndPlaySound("C:\bakalavr\sound\clickerx.wav",1);
 Label2.Caption:= Label2.Caption + "à";
 label2.Refresh;
 delay(2000);
 end;
В ХР всё норм

---

← →
Харакири   (2010-06-21 21:00) [1]

Удалено модератором

---

← →
Rouse_ ©   (2010-06-21 22:01) [2]

Вопрос где?

---

← →
turbouser ©   (2010-06-21 23:34) [3]

Удалено модератором

---

← →
Rouse_ ©   (2010-06-21 23:42) [4]

Удалено модератором

---

← →
KilkennyCat ©   (2010-06-22 00:21) [5]

Удалено модератором

---

← →
Германн ©   (2010-06-22 01:30) [6]

Удалено модератором

---

← →
nobody   (2010-06-22 15:37) [7]

Удалено модератором

---

← →
icWasya ©   (2010-06-22 15:41) [8]

вместо label.Refresh везде поставь Application.ProcessMessages;

---

← →
KilkennyCat ©   (2010-06-22 19:51) [9]

Procedure PlaySnd(var s : string);
begin
 sndPlaySound("C:\bakalavr\sound\clickerx.wav",1);
 Label2.Caption:= Label2.Caption + s;
 Application.ProcessMessages;
 sleep(500);
end;
----------------------------------------
var
 i : integer;
 filename : string;
begin
 If combobox1.text="Íàáîð âàííû" then begin
   label1.Visible:=true;
   label2.Caption:="";
   label1.Color:=clwhite;
   label1.Font.Color:=clBlack;
   application.process.message;

   filename := "1etag_vanna.jpg";
   Image1.Picture.LoadFromFile("C:\bakalavr\" + filename);
   Image1.Refresh;
   sleep(3000);

   bukvi := "òàæ âàííà"  
   for i := 1 to length(filename) - 4 do PlaySnd(bukvi[i]);

   delay(2000);
 end;
end;

хотя бы уж так... хотя разрешение лучше отрубать более грамотно, не всегда оно .3

---

← →
KilkennyCat ©   (2010-06-22 19:52) [10]

>  bukvi := "òàæ âàííà"  

это лишнее...

---

← →
Великий   (2010-06-23 21:54) [11]

не помогло(( к сожалению..

---

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

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



Память: 0.48 MB
Время: 0.006 c