파란달 wrote:

> 폼의 Border에 비트맵을 올리고자 합니다.

> 혹 아시는 분 계시면 한수 부탁합니다.





폼의 border 이라 함은 어디인지... 쩝...

내 나름대로 생각이...

폼의 바탕에 그림을 깔려고 하는거 같은데...

그럼 아래의 소스를 참고하시기 바랍니다.

unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;



type

TForm1 = class(TForm)

procedure FormCreate(Sender: TObject);

procedure FormPaint(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;

Bitmap: TBitmap;

implementation

{$R *.DFM}



procedure TForm1.FormCreate(Sender: TObject);



begin

Bitmap := TBitmap.Create;

Bitmap.LoadFromFile('C:test.bmp');

end;



procedure TForm1.FormPaint(Sender: TObject);

var

X, Y, W, H: LongInt;

begin

with Bitmap do begin

W := Width;

H := Height;

end;

Y := 0;

while Y < Height do begin

X := 0;

while X < Width do begin

Canvas.Draw(X, Y, Bitmap);

Inc(X, W);

end;

Inc(Y, H);



end;

end;



end.





행복하셔요 조규춘올림.

먼저 관심을 가져 주신 조규춘씨에게 감사

드립니다.

제가 질문을 잘못했나요?



조규춘씨가 알려주신 방법은 폼의 바탕에 비트멥을 올리는

것 같군요, 하지만 제가 알고자 하는 것은 폼의 경계를 나타내는

Border에 다시말해서 Frame에 비트멥을 올리고자 합니다.



혹 방법을 아시면 한수 부탁합니다.