Форум: "Начинающим";
Текущий архив: 2005.09.11;
Скачать: [xml.tar.bz2];
Внизkak ispolzovat Canvas na procedure? Найти похожие ветки
← →
dezdemona (2005-08-06 16:16) [0]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;
← →
dezdemonaa (2005-08-06 16:24) [1]uje zdelala.ne pravilno napisala strochku,Color zabila.
← →
Eraser © (2005-08-06 16:47) [2]dezdemona (06.08.05 16:16)
form1.canvas.pen.Color:=clred;
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2005.09.11;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c