Премьера RAD Studio XE8 в Санкт-Петербурге, Казани, Тбилиси
Приглашаем вас принять участие в Мировом туре RAD Studio XE8, который пройдет 19 мая в Казани, 21 мая в Санкт-Петербурге и 28 мая в Тбилиси. Вы узнаете как:
Приглашаем вас принять участие в Мировом туре RAD Studio XE8, который пройдет 19 мая в Казани, 21 мая в Санкт-Петербурге и 28 мая в Тбилиси. Вы узнаете как:
Круг и квадрат с возможностью менять цвета
Компоненты: TTimer и TBitBtn Обработка события OnClick кнопки TBitBtn var Form1: TForm1; a,b:integer; implementation {$R *.dfm} procedure TForm1.BitBtn1Click(Sender: TObject); begin if a=1 then begin timer1.Interval:=1; a:=2; BitBtn1.Caption:=’Слови меня =))’; end else beginRead More…