1. LedColor .
2. SetColor, LedColor if Led.
2. OnCreate. , Events, OnCreate . LedColor .
3. OnCreate. , OnClick . LedColor .
Delphi
, Delphi . , . , .
unit Unit1; //
interface //
uses //
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type //
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Led: TShape;
Button3: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1; //
LedColor: integer; // .
//
implementation
{$R *.dfm}
//
function SetColor ():integer;
begin
if LedColor = 1 then Form1.Led.Brush.Color:= clRed;
if LedColor = 2 then Form1.Led.Brush.Color:= clYellow;
if LedColor = 3 then Form1.Led.Brush.Color:= clGreen;
SetColor:=0;
end;
// ,
procedure TForm1.FormCreate(Sender: TObject);
begin
LedColor:= 1;
SetColor();
end;
// 1
procedure TForm1.Button1Click(Sender: TObject);
begin
LedColor:= 1;
SetColor();
end;
// 2
procedure TForm1.Button2Click(Sender: TObject);
begin
LedColor:= 2;
SetColor();
end;
// 3
procedure TForm1.Button3Click(Sender: TObject);
begin
LedColor:= 3;
SetColor();
end;
end. //
.
|
|
1.7.6 C++
//--------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//--------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int LedIndicator;
//--------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//--------------------------------------------------------------
int SetIndicator (void)
{
if (LedIndicator == 1) Form1->Led->Brush->Color = clRed;
if (LedIndicator == 2) Form1->Led->Brush->Color = clYellow;
if (LedIndicator == 3) Form1->Led->Brush->Color = clGreen;
};
//--------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
LedIndicator = 1;
SetIndicator ();
}
//--------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
LedIndicator = 1;
SetIndicator ();
}
//--------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
LedIndicator = 2;
SetIndicator ();
}
//--------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
LedIndicator = 3;
SetIndicator ();
}
//--------------------------------------------------------------
. , . , .
- Timer System . 2.1.
2.1 Timer
Enabled | |
Interval | |
Name | , |
OnTimer. , Interval.