Q&A
- 동적생성한 이미지가 보이질 않네요...제발 부탁드립니다.
동적으로 생성한 이미지가 보이질 않네요.
어떻게 하는건지 고수님의 조언을 부탁드립니다.
참고로 애니채팅을 구현할려고 합니다...
아래 저의 잘못된 소스입니다....
먼저 클래스로 캐릭터이미지, 위치정보, 유저이름을 선언했습니다.
TUser = class
Image : TImage;
Chr_num, ToX, NowX, ToY, NowY : integer;
UserName : String;
public
constructor Create(Owner : TObject);
end;
var
Mainfrm: TMainfrm;
Name1 : String;
Chr_num, Current : Integer;
ToX, ToY, NowX, NowY {LastX, LastY} : Integer;
User : array[0..20] of TUser;
UserCount : integer;
S: array[0..20] of Char;
implementation
uses LoginForm;
{$R *.DFM}
생성자를 선언
constructor TUser.Create(Owner : TObject);
begin
Self.NowX := 100;
Self.ToX := 100;
Self.NowY := 200;
Self.ToY := 200;
Self.Image := TImage.Create(Mainfrm);
end;
procedure TMainfrm.FormShow(Sender: TObject);
begin
.
.
.
User[UserCount] := TUser.Create(Mainfrm);
User[UserCount].UserName := Name1;
StrCopy(S, Default_path);
StrCat(S, Pchar(IntToStr(Chr_num)));
StrCat(S, Default_ext);
User[UserCount].Image.Picture.LoadFromFile(S);
User[UserCount].Image.Top := 200;
User[UserCount].Image.Left := 100;
.
.
.
end;
무엇이 잘못되었는지 조언을 부탁드립니다.
제가 델파이는 초보라서 참 어렵네요...
어떻게 하는건지 고수님의 조언을 부탁드립니다.
참고로 애니채팅을 구현할려고 합니다...
아래 저의 잘못된 소스입니다....
먼저 클래스로 캐릭터이미지, 위치정보, 유저이름을 선언했습니다.
TUser = class
Image : TImage;
Chr_num, ToX, NowX, ToY, NowY : integer;
UserName : String;
public
constructor Create(Owner : TObject);
end;
var
Mainfrm: TMainfrm;
Name1 : String;
Chr_num, Current : Integer;
ToX, ToY, NowX, NowY {LastX, LastY} : Integer;
User : array[0..20] of TUser;
UserCount : integer;
S: array[0..20] of Char;
implementation
uses LoginForm;
{$R *.DFM}
생성자를 선언
constructor TUser.Create(Owner : TObject);
begin
Self.NowX := 100;
Self.ToX := 100;
Self.NowY := 200;
Self.ToY := 200;
Self.Image := TImage.Create(Mainfrm);
end;
procedure TMainfrm.FormShow(Sender: TObject);
begin
.
.
.
User[UserCount] := TUser.Create(Mainfrm);
User[UserCount].UserName := Name1;
StrCopy(S, Default_path);
StrCat(S, Pchar(IntToStr(Chr_num)));
StrCat(S, Default_ext);
User[UserCount].Image.Picture.LoadFromFile(S);
User[UserCount].Image.Top := 200;
User[UserCount].Image.Left := 100;
.
.
.
end;
무엇이 잘못되었는지 조언을 부탁드립니다.
제가 델파이는 초보라서 참 어렵네요...
2
COMMENTS
-
-
쩝.. 제가 델파이는 잘 모르지만요.. 혹시.. 동적생성한 image의
Height와 Width의 크기가 잘못되지 않았나 싶네요..
노광민 wrote:
> 동적으로 생성한 이미지가 보이질 않네요.
> 어떻게 하는건지 고수님의 조언을 부탁드립니다.
> 참고로 애니채팅을 구현할려고 합니다...
> 아래 저의 잘못된 소스입니다....
>
> 먼저 클래스로 캐릭터이미지, 위치정보, 유저이름을 선언했습니다.
> TUser = class
> Image : TImage;
> Chr_num, ToX, NowX, ToY, NowY : integer;
> UserName : String;
> public
> constructor Create(Owner : TObject);
> end;
>
> var
> Mainfrm: TMainfrm;
>
> Name1 : String;
> Chr_num, Current : Integer;
> ToX, ToY, NowX, NowY {LastX, LastY} : Integer;
> User : array[0..20] of TUser;
> UserCount : integer;
> S: array[0..20] of Char;
>
> implementation
>
> uses LoginForm;
>
> {$R *.DFM}
>
> 생성자를 선언
> constructor TUser.Create(Owner : TObject);
> begin
> Self.NowX := 100;
> Self.ToX := 100;
> Self.NowY := 200;
> Self.ToY := 200;
> Self.Image := TImage.Create(Mainfrm);
> end;
>
>
> procedure TMainfrm.FormShow(Sender: TObject);
> begin
> .
> .
> .
> User[UserCount] := TUser.Create(Mainfrm);
> User[UserCount].UserName := Name1;
> StrCopy(S, Default_path);
> StrCat(S, Pchar(IntToStr(Chr_num)));
> StrCat(S, Default_ext);
> User[UserCount].Image.Picture.LoadFromFile(S);
> User[UserCount].Image.Top := 200;
> User[UserCount].Image.Left := 100;
> .
> .
> .
>
> end;
>
> 무엇이 잘못되었는지 조언을 부탁드립니다.
> 제가 델파이는 초보라서 참 어렵네요...
>
(NOTICE) You must be logged in to comment on this post.
-
- 심 해영
- 2000.04.12 00:06
- 0 COMMENTS
- /
- 0 LIKES
-
- 궁금녀
- 2000.04.11 23:23
- 0 COMMENTS
- /
- 0 LIKES
-
- 윤용권
- 2000.04.11 23:11
- 0 COMMENTS
- /
- 0 LIKES
-
- 어린왕자
- •
- 2000.04.11 22:51
- 3 COMMENTS
- /
- 0 LIKES
-
강민주•2000.04.11 23:11안녕하세요. 걍.. 만들어
-
하얀까마귀•2000.04.11 23:02안녕하세요 하얀까마귀 입니다. Delete(s, 2 ,1); 이라는 함수가 있어요.. 보시면 알겠지만 이게 s라...
-
어린왕자•2000.04.12 00:02답변 감사합니다.. 무지 쉽네요..왜 내가 몰랐을까?.. 암튼 잘 써먹을께요.. 하얀까마귀 wrote:...
-
- 노광민
- •
- 2000.04.11 22:50
- 2 COMMENTS
- /
- 0 LIKES
동적으로 생성한 이미지가 보이질 않네요. 어떻게 하는건지 고수님의 조언을 부탁드립니다. 참고로 애니채팅을 구현할려고 합니다... 아래 저의 잘못된 소스입니다.... 먼저 클래스로 캐릭터이미지, 위치정보, 유저이름을 선언했습니다. T...-
여덕수•2000.04.12 01:33안녕하세요.. 마당쇠 여덕수입니다... TImage의 Parent를 정해주세요.. 모든 컨트롤들은 디자인타임에...
-
김봉준•2000.04.12 00:20쩝.. 제가 델파이는 잘 모르지만요.. 혹시.. 동적생성한 image의 Height와 Width의 크기가 잘못되지 않...
-
- 초보1
- •
- 2000.04.11 22:43
- 3 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2000.04.11 23:07안녕하세요 하얀까마귀 입니다.. Sql.Add(' update pilji '); Sql.Add(' set sojae = :sojae...
-
초보1•2000.04.12 00:50하얀까마귀 wrote: > 안녕하세요 하얀까마귀 입니다.. > > Sql.Add(' update pilji '); > Sql....
-
하얀까마귀•2000.04.12 03:20> > 죄송한데 한가지만 더 질문합니다... > > ParamByName('sojae').AsString := 어떤값; > Param...
-
- 최 소 영
- •
- 2000.04.11 22:33
- 3 COMMENTS
- /
- 0 LIKES
-
강인규•2000.04.12 02:19답이 에러메세지에 다써있네요. 폼을 만들수 없습니다. 엑티브된 MDI폼이 없습니다. Project/Option 에...
-
최 소 영•2000.04.12 22:14강인규 wrote: > 답이 에러메세지에 다써있네요. > 폼을 만들수 없습니다. > 엑티브된 MDI폼이 없습니다...
-
배불뚝•2000.04.13 02:19최 소 영 wrote: > 강인규 wrote: > > 답이 에러메세지에 다써있네요. > > 폼을 만들수 없습니다. > > ...
-
- 김민오
- 2000.04.11 21:22
- 0 COMMENTS
- /
- 0 LIKES
-
- 조승기
- •
- 2000.04.11 20:49
- 1 COMMENTS
- /
- 0 LIKES
-
이치형•2000.04.11 23:44조승기 wrote: > 제목 그대롭니다. > Windows 2000 Server에서 Delphi4를 Install하는데... 안돼는군요. ...
-
- 하소연
- •
- 2000.04.11 20:47
- 1 COMMENTS
- /
- 0 LIKES
-
이치형•2000.04.12 00:14하소연 wrote: > 안녕하세요 소연이에요. > 염체 불구하고 다시 델피언님들한테 도움을 받고자 글을 올립...
-
- 조현석
- 2000.04.11 20:44
- 0 COMMENTS
- /
- 0 LIKES
-
- 야스퍼
- 2000.04.11 20:13
- 0 COMMENTS
- /
- 0 LIKES
-
- 어린왕자
- 2000.04.11 20:08
- 0 COMMENTS
- /
- 0 LIKES
-
- topsman
- •
- 2000.04.11 20:04
- 2 COMMENTS
- /
- 0 LIKES
-
이치형•2000.04.12 00:51topsman wrote: > MS-SQL server를 이용하는 프로그램을 만들려구 하는데요... > > 일단 MS-SQL은 nt s...
-
강동길•2000.04.11 21:26안녕하세요? 델파이 강의실 -> 한델강의실에 가보시면 자료가 잘 나와있습니다. 여기서 참조하심이 ...
-
- 김홍만
- •
- 2000.04.11 19:54
- 1 COMMENTS
- /
- 0 LIKES
-
이현신•2000.04.11 23:17김홍만 wrote: > 안녕하세요? > 시작시 자동업그레이드가 되는 프로그램을 어떻게 만드는지 간략한 설명...
-
- 선희
- 2000.04.11 19:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 여용구
- •
- 2000.04.11 18:06
- 1 COMMENTS
- /
- 0 LIKES
-
구창민•2000.04.11 20:52여용구 wrote: > 안녕하십니까.. > > 다름이 아니라.. 두개의 애플리케이션 사이의 데이타 연동을 윈...
-
- 엑소라인
- •
- 2000.04.11 11:20
- 2 COMMENTS
- /
- 0 LIKES
-
ACCESS•2000.04.15 05:04엑소라인 wrote: > delphi, access db, ado connection을 이용하여 프로그램 중입니다. > > AdoQry1.Cl...
-
nilriri•2000.04.11 17:39select * from table1 where hdate between :fromdate and :todate; parambyname('fromdate').value := s...
-
- 강두헌
- •
- 2000.04.11 21:25
- 1 COMMENTS
- /
- 0 LIKES
-
강민주•2000.04.11 22:52안녕하세요. 이진파일로 주소록만든 소스가 팁란에 제가 올려 뒀거든요. 그거 참고 하시구요. Text파...
-
- 김경한
- 2000.04.11 10:46
- 0 COMMENTS
- /
- 0 LIKES
TImage의 Parent를 정해주세요..
모든 컨트롤들은 디자인타임에서 폼위에 올려놓을때, 자동으로 생성이 되고
Parent를 지정받게 됩니다.
그런데 동적으로 생성할때는 Create로 생성을 할뿐, Parent를 자동으로
지정해주지는 않습니다.
따라서 생성한 다음 적당한 위치에서 Parent를 지정해주어야 합니다.
...
Image1.Parent := Panel1;
...
과 같이 되겠죠...
그럼...
노광민 wrote:
> 동적으로 생성한 이미지가 보이질 않네요.
> 어떻게 하는건지 고수님의 조언을 부탁드립니다.
> 참고로 애니채팅을 구현할려고 합니다...
> 아래 저의 잘못된 소스입니다....
>
> 먼저 클래스로 캐릭터이미지, 위치정보, 유저이름을 선언했습니다.
> TUser = class
> Image : TImage;
> Chr_num, ToX, NowX, ToY, NowY : integer;
> UserName : String;
> public
> constructor Create(Owner : TObject);
> end;
>
> var
> Mainfrm: TMainfrm;
>
> Name1 : String;
> Chr_num, Current : Integer;
> ToX, ToY, NowX, NowY {LastX, LastY} : Integer;
> User : array[0..20] of TUser;
> UserCount : integer;
> S: array[0..20] of Char;
>
> implementation
>
> uses LoginForm;
>
> {$R *.DFM}
>
> 생성자를 선언
> constructor TUser.Create(Owner : TObject);
> begin
> Self.NowX := 100;
> Self.ToX := 100;
> Self.NowY := 200;
> Self.ToY := 200;
> Self.Image := TImage.Create(Mainfrm);
> end;
>
>
> procedure TMainfrm.FormShow(Sender: TObject);
> begin
> .
> .
> .
> User[UserCount] := TUser.Create(Mainfrm);
> User[UserCount].UserName := Name1;
> StrCopy(S, Default_path);
> StrCat(S, Pchar(IntToStr(Chr_num)));
> StrCat(S, Default_ext);
> User[UserCount].Image.Picture.LoadFromFile(S);
> User[UserCount].Image.Top := 200;
> User[UserCount].Image.Left := 100;
> .
> .
> .
>
> end;
>
> 무엇이 잘못되었는지 조언을 부탁드립니다.
> 제가 델파이는 초보라서 참 어렵네요...
>