Задание: Пульсирующая кнопка

@vity · Регистрация: 04.03.2010

Author24 — интернет-сервис помощи студентам

Задание: Пульсирующая кнопка
Задание в текстовой форме

@igoriy · 05.04.2010, 18:26

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Interval:= 500;
 if Button1.Enabled then Button1.Enabled:= False
   else  Button1.Enabled:= True;
end;
 
end.

@*~<`PIK`>~* · 06.04.2010, 00:04

Сообщение от igoriy

Delphi

1	if Button1.Enabled then Button1.Enabled:= False else Button1.Enabled:= True;

это можно записать так:

Delphi

1	Button1.Enabled:= not Button1.Enabled;

@][акер · 06.04.2010, 01:02

Сообщение от *~<`PIK`>~*

Button1.Enabled:= not Button1.Enabled;

Написано в книге Михаила Фленова "Библия Delphi".

@vity 0 / 0 / 0 Регистрация: 04.03.2010 Сообщений: 14
		1
	Задание: Пульсирующая кнопка 05.04.2010, 10:52. Показов 962. Ответов 3 Метки нет (Все метки) Задание: Пульсирующая кнопка Задание в текстовой форме 0

@][акер #define книжный_червь Я 185 / 96 / 21 Регистрация: 30.01.2010 Сообщений: 780
	06.04.2010, 01:02	4
	Сообщение от *~<`PIK`>~* Button1.Enabled:= not Button1.Enabled; Написано в книге Михаила Фленова "Библия Delphi". 0