Scribd
Upload
7 views4 pages

Delphi Color Button Click Example

The document is a code snippet for a network programming project in Delphi, defining a form with buttons for color selection. Each button changes the form's background color to a specific color when clicked. The implementation includes procedures for handling button click events to set the form's fill color.

Uploaded by

sangolumbujean
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
7 views4 pages

Delphi Color Button Click Example

The document is a code snippet for a network programming project in Delphi, defining a form with buttons for color selection. Each button changes the form's background color to a specific color when clicked. The implementation includes procedures for handling button click events to set the form's fill color.

Uploaded by

sangolumbujean
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd

SANGO

LUMBU
JEAN
M2/IL
PROGRAMMATION RÉSEAU

Unit Unit1 ;

Interface

Uses
[Link], [Link], [Link], [Link],
[Link],
[Link], [Link], [Link], [Link], [Link],
[Link] ;

Type
TForm1 = class(TForm)
btnNoire : TButton ;
btnRouge : TButton ;
btnVerte : TButton ;
btnBleue : TButton ;
btnJaune : TButton ;
btnCyane : TButton ;
btnMagenta : TButton ;
btnBlanche : TButton ;
procedure btnNoireClick(Sender : TObject) ;
procedure btnRougeClick(Sender : TObject) ;
procedure btnVerteClick(Sender : TObject) ;
procedure btnBleueClick(Sender : TObject) ;
procedure btnJauneClick(Sender : TObject) ;
procedure btnCyaneClick(Sender : TObject) ;
procedure btnMagentaClick(Sender : TObject) ;
procedure btnBlancheClick(Sender : TObject) ;

private
{ Private declarations }
Public
{ Public declarations }
End ;

Var
Form1 : TForm1 ;

Implementation

{$R *.fmx}

Procedure [Link](Sender : TObject) ;


Begin
[Link] := [Link] ;
End ;

Procedure [Link](Sender : TObject) ;


Begin
[Link] := [Link] ;
End ;

Procedure [Link](Sender : TObject) ;


Begin
[Link] := [Link] ;
End ;

Procedure [Link](Sender : TObject) ;


Begin
[Link] := [Link] ;
End ;

Procedure [Link](Sender : TObject) ;


Begin
[Link] := [Link] ;
End ;

Procedure [Link](Sender : TObject) ;


Begin
[Link] := [Link] ;
End ;
Procedure [Link](Sender : TObject) ;
Begin
[Link] := [Link] ;
End ;

Procedure [Link](Sender : TObject) ;


Begin
[Link] := [Link] ;
End ;

End.

You might also like