아리엘 wrote:

> 스피드 버튼의 항목중 Glyph 프로퍼티에서 그림을 잡아 주잖아요

>

> 근데 제가 16*16짜리 그림두개를 함쳐서 만든 16*32짜리를 넣었는데

> 이벤트에 따라 앞에 그림만 보여주거나 뒤에것만 보여주고 싶은데 안될까요..

>

> 스피드버튼 Enable속성을 끄거나 켜면 뒤에것이 보이거나 앞에것이 보이는데

> 클릭시 이렇게 하고싶은데 Enable를 안되게 하면 아에 클릭이 안되잖아요..

>

> 코딩상 스피드 버튼에 그림이 뜨게 하는법을 알려주세요..



안녕하세요. ^^

질문에 요지에 만는 답변인지는 모르겠는데요.

먼저 스피드버튼에.. 버튼이미지를 하나 넣으시구요.

아래소스처럼 해보심.. 코딩으로.. 이미지를 넣었다.. 없앴다

하는걸 만들어봤습니당...

참고하시구요.. 모르겠음.. 질문주세요.

그럼..20000.





type

TForm1 = class(TForm)

BitBtn1: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

Bitmap: TBitmap;

IsExistBitmap: Boolean;

public



end;



var

Form1: TForm1;



implementation



{$R *.DFM}



procedure TForm1.FormCreate(Sender: TObject);

begin

Bitmap := TBitmap.Create;

IsExistBitmap := False;

end;



procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Bitmap.Free;

end;



//버튼을 클릭하면.. 이미지 사라졌다 나타났다 함니당..

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

IsExistBitmap := not IsExistBitmap;

if IsExistBitmap then

begin

Bitmap.Assign(BitBtn1.Glyph); //버튼이미지를 변수에 저장해둠..

BitBtn1.Glyph.Assign(nil); //버튼이미지 없앰.

end

else BitBtn1.Glyph.Assign(Bitmap); //변수에 저장된 이미지를 다시 버튼에 넣음..

end;