| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

kak ispolzovat Canvas na procedure?

dezdemona ©   (2005-08-06 16:16:00) 

vot naprimer u menya est takaya procedura. no koqda pishu form1.canvas.pen:=clred; viletayet oshibka. (nesovmestimost TPen i Integer)
vot xochu uznat,kuda nujno napisat etu stroku na etoy procedure?

procedure TForm1.Button1Click(Sender: TObject);
Begin
(sender as tbutton).Left := random (650)+25;
 k:=k+1;
 if button1.Left > 325 then
 Begin
  (sender as tbutton).enabled:=false;
   n:=n+1;
   if n=5 then
   Begin
     form1.Color:=clred;
     ShowMessage (' bbbbb ');
   end;
 end;

--------
pozvolte sametit chto,v chistoy forme,dlya button.click-a eto poluchayetsya,a zdes net.
 label1.Caption:= 'bbbb '+ IntToStr(k)+' bbbbb';

end;

---

Eraser   (2005-08-06 16:47:00) [1]

dezdemona   (06.08.05 16:16)

form1.canvas.pen. Color:=clred;

---

dezdemonaa   (2005-08-06 16:24:00) [2]

uje zdelala.ne pravilno napisala strochku,Color zabila.

---

Наверх