|
µ¨¸¶´ç °ø½Ä ÀºÇà°èÁ |
ÇϳªÀºÇà 227-910235-83607 |
¿¹±ÝÁÖ ÀÌ»ó±¹(¿î¿µÁø) |
|
|
|
|
|
|
|
|
|
|
°ÁÂ, ÆÁ, Á¤º¸ |
°ÁÂ, ÆÁ, Á¤º¸ ÀÔ´Ï´Ù. |
|
|
|
ÀÚ¹ÙÀÇ Toast VCL¿ëÀÔ´Ï´Ù... |
±è½ÃÁØ
(±è½ÃÁØ)
2016-07-26 ¿ÀÈÄ 4:18:13
Ä«Å×°í¸®:
ÆÁ
2881ȸ Á¶È¸
÷ºÎÆÄÀÏ ´Ù¿î·Îµå
uBread.zip
|
|
|
ÀÚ¹ÙÀÇ Toast VCL¿ëÀÔ´Ï´Ù... ¸Þ½ÃÁö°¡ ¶¹´Ù°¡ 1500 millisecond°¡ Áö³ ÈÄ ¸Þ½ÃÁö°¡ »ç¶óÁý´Ï´Ù...
¾Æ·¡ ÆÄÀ̾î¸ÛÅ°¿ëÇÏ°í °ÅÀÇ ºñ½ÁÇϳª ¸Þ¸ð¸® ÇØÁ¦ ¹æ¹ýÀÌ ´Ù¸¨´Ï´Ù..
µ¨ÆÄÀÌ ÀÔ¹®ÀÚµéÀ̳ª ¸¸µé±â ±ÍÂúÀº ºÐµéÀº °®´Ù ¾²½Ã±â ¹Ù¶ø´Ï´Ù..
»ç¿ë¿¹Á¦)
uses uBread;
procedure Bread(AOwner: TComponent; msg: string); begin TBread.Create(AOwner, msg); end;
procedure Form1.Button1Click(Sender: TObject); begin Bread(Self, 'ÀúÀåµÇ¾ú½À´Ï´Ù...'); end;
// Ŭ·¡½º... unit uBread;
interface
uses Vcl.ExtCtrls, Vcl.Controls, Vcl.Graphics, System.SysUtils, System.Classes, Vcl.Forms;
type TBread = class(TPanel) private FTimer: TTimer; procedure Free; procedure OnBreadTimer(Sender: TObject); public constructor Create(AOwner: TComponent; msg: string); reintroduce; destructor Destroy; override; end;
var FInterval: Integer = 1500; // ¸Þ½ÃÁö°¡ ¶° ÀÖ´Â ½Ã°£...
implementation
{ TBread }
constructor TBread.Create(AOwner: TComponent; msg: string); begin inherited Create(AOwner);
Parent := AOwner as TForm; ParentBackground := False; // if True not change color DoubleBuffered := True; Color := clHighlight; Font.Name := '¸¼Àº °íµñ'; Font.Style := [fsBold]; Font.Size := 10; Font.Color := clWhite; Caption := msg; Width := Canvas.TextWidth(msg) + 80; // * 2; Height := Canvas.TextHeight(msg) + 20; // * 2; Left := ((AOwner as TForm).Width div 2) - (Width div 2); Top := ((AOwner as TForm).Height div 2) - (Height div 2);
FTimer := TTimer.Create(Self); FTimer.Interval := FInterval; FTimer.Enabled := True; FTimer.OnTimer := OnBreadTimer; end;
destructor TBread.Destroy; begin
inherited; end;
procedure TBread.Free; begin FreeAndNil(FTimer); Destroy; end;
procedure TBread.OnBreadTimer(Sender: TObject); begin FTimer.Enabled := False; Free; end;
end.
|
|
|
|
|
|
|
|
|