unit u_info_now_bulletin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, fcButton, fcImgBtn, fcShapeBtn, ExtCtrls, Buttons;

type
  Tfrm_info_now_bulletin = class(TForm)
    Timer1: TTimer;
    SpeedButton1: TSpeedButton;
    procedure fcShapeBtn1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_info_now_bulletin: Tfrm_info_now_bulletin;

implementation

uses u_info_bulletin;

{$R *.dfm}

procedure Tfrm_info_now_bulletin.fcShapeBtn1Click(Sender: TObject);
begin
  Timer1.Enabled:=false;
  frm_info_now_bulletin.Hide;
  try
    frm_info_bulletin:=tfrm_info_bulletin.Create (self);
    frm_info_bulletin.ShowModal;
  finally
    frm_info_bulletin.Free;
    frm_info_bulletin:=nil;
  end;
end;

procedure Tfrm_info_now_bulletin.Timer1Timer(Sender: TObject);
begin
  if SpeedButton1.Caption='¹«¸æ' then
    SpeedButton1.Caption:=''
  else
    SpeedButton1.Caption:='¹«¸æ';
end;

procedure Tfrm_info_now_bulletin.SpeedButton1Click(Sender: TObject);
begin
  Timer1.Enabled:=false;
  frm_info_now_bulletin.Hide;
  try
    frm_info_bulletin:=tfrm_info_bulletin.Create (self);
    frm_info_bulletin.ShowModal;
  finally
    frm_info_bulletin.Free;
    frm_info_bulletin:=nil;
  end;

end;

end.