1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
|
unit fonction;
interface
USES
IniFiles,
Math,
Controls,
SysUtils,
Forms,
Dialogs,
Graphics,
windows,
messages,
StdCtrls,
ComCtrls,
Printers,
Winsock,
Registry;
procedure MontrerCacherBp(bp:Tbutton; ConditionEnabled:boolean);
implementation
USES
Classes;
procedure MontrerCacherBp(bp:Tbutton; ConditionEnabled:boolean);
begin
if ConditionEnabled
then begin
if bp.Enabled then bp.Enabled:= false;
end
else begin
if not bp.Enable then bp.Enable:=true;
end;
end; |
Partager