Q&A
- 폼의 동적생성 에 한가지더...
type
TFrm_Mess = class(TForm)
...
UserName: string;
end;
var
Found: Boolean;
begin
Found := False;
for I := 0 to Screen.FormCount-1 do
begin
if Screen.Forms[I] is TFrm_Mess then
if TFrm_Mess(Screen.Forms[I]).UserName = 메세지보낸유저이름 then
begin
Screen.Forms[I].Show;
요기서.. -> Frm_Mess.memo1.add(메시지내용);
Found := True;
end;
end;
if not Found then // 메세지보낸유저와 대화하는 폼이 없다면
begin
Frm_Mess := TFrm_Mess.Create(nil); // 새로 생성
Frm_Mess.Show;
end;
end;
위에서 '요기서' 같이 하면서... 해당창이 앞으로 show는 돼는데요...
메세지는 가장 나중에 생성된 폼에 뜨거든요.... 폼 지정을 잘못하거 같은데...
Screen.Forms[I].Show; 이렇게 폼을 활성화했으면... 그 해당폼의 컴포는 어케
선택을 해야 할런지요.... 아까답변해주신 최용일님 한번더 부탁드리겠습니다.
TFrm_Mess = class(TForm)
...
UserName: string;
end;
var
Found: Boolean;
begin
Found := False;
for I := 0 to Screen.FormCount-1 do
begin
if Screen.Forms[I] is TFrm_Mess then
if TFrm_Mess(Screen.Forms[I]).UserName = 메세지보낸유저이름 then
begin
Screen.Forms[I].Show;
요기서.. -> Frm_Mess.memo1.add(메시지내용);
Found := True;
end;
end;
if not Found then // 메세지보낸유저와 대화하는 폼이 없다면
begin
Frm_Mess := TFrm_Mess.Create(nil); // 새로 생성
Frm_Mess.Show;
end;
end;
위에서 '요기서' 같이 하면서... 해당창이 앞으로 show는 돼는데요...
메세지는 가장 나중에 생성된 폼에 뜨거든요.... 폼 지정을 잘못하거 같은데...
Screen.Forms[I].Show; 이렇게 폼을 활성화했으면... 그 해당폼의 컴포는 어케
선택을 해야 할런지요.... 아까답변해주신 최용일님 한번더 부탁드리겠습니다.
2
COMMENTS
-
-
[Error] Main.pas(223): Incompatible types: 'TFrm_Mess' and 'TForm'
이런 에러가 나오는데요?
우짜지요?
최용일 wrote:
> 안녕하세요. 최용일입니다.
>
> Frm_Mess란 폼을 새로 지정해주세요... 그럼 문제 없을듯...
>
> var
> Found: Boolean;
> begin
> Found := False;
> for I := 0 to Screen.FormCount-1 do
> begin
> if Screen.Forms[I] is TFrm_Mess then
> if TFrm_Mess(Screen.Forms[I]).UserName = 메세지보낸유저이름 then
> begin
> Frm_Mess := Screen.Forms[I];
> Frm_Mess.Show;
> Frm_Mess.memo1.add(메시지내용);
> Found := True;
> Break;
> end;
> end;
> if not Found then // 메세지보낸유저와 대화하는 폼이 없다면
> begin
> Frm_Mess := TFrm_Mess.Create(nil); // 새로 생성
> Frm_Mess.Show;
> end;
> end;
>
> ^^ 항상 즐코하세요...
>
> 나옹맨 wrote:
> > type
> > TFrm_Mess = class(TForm)
> > ...
> > UserName: string;
> > end;
> >
> >
> > var
> > Found: Boolean;
> > begin
> > Found := False;
> > for I := 0 to Screen.FormCount-1 do
> > begin
> > if Screen.Forms[I] is TFrm_Mess then
> > if TFrm_Mess(Screen.Forms[I]).UserName = 메세지보낸유저이름 then
> > begin
> > Screen.Forms[I].Show;
> > 요기서.. -> Frm_Mess.memo1.add(메시지내용);
> > Found := True;
> > end;
> > end;
> > if not Found then // 메세지보낸유저와 대화하는 폼이 없다면
> > begin
> > Frm_Mess := TFrm_Mess.Create(nil); // 새로 생성
> > Frm_Mess.Show;
> > end;
> > end;
> >
> > 위에서 '요기서' 같이 하면서... 해당창이 앞으로 show는 돼는데요...
> >
> > 메세지는 가장 나중에 생성된 폼에 뜨거든요.... 폼 지정을 잘못하거 같은데...
> >
> > Screen.Forms[I].Show; 이렇게 폼을 활성화했으면... 그 해당폼의 컴포는 어케
> >
> > 선택을 해야 할런지요.... 아까답변해주신 최용일님 한번더 부탁드리겠습니다.
> >
(NOTICE) You must be logged in to comment on this post.
-
- 초보뽀록
- 2001.08.03 06:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 현진아버지
- 2001.08.03 06:00
- 0 COMMENTS
- /
- 0 LIKES
-
-
- ^뽀기^
- •
- 2001.08.03 04:07
- 2 COMMENTS
- /
- 0 LIKES
-
나그네•2001.08.09 03:49제가 질문을 잘 이해한 건지 모르겠는데요 폼 선택하는 거 메뉴를 두신다면서요... 뭐 버튼으로 하시던해...
-
^뽀기^•2001.08.09 22:51나그네님 답변고맙습니다. 그런데 그것이 문제가 아니고요 soket으로 받아온 데이타를 ClientFrame에 넣는...
-
- 미얀이
- •
- 2001.08.03 03:56
- 3 COMMENTS
- /
- 0 LIKES
-
최용일•2001.08.03 04:23안녕하세요. 최용일입니다. Canvas.CopyRect함수를 이용해서 for문으로 돌리면 되겠네요... 사본캔버...
-
미얀이•2001.08.03 04:41용일님 답변해 주셔서 감사합니다. 그런데여...ㅠ.ㅠ 어케 하는건지 아직도 모르겠습니다. 델파이 he...
-
홍성락•2001.08.06 23:58미얀이 wrote: > 용일님 답변해 주셔서 감사합니다. > > 그런데여...ㅠ.ㅠ 어케 하는건지 아직도 모르...
-
- 준
- •
- 2001.08.03 03:27
- 2 COMMENTS
- /
- 0 LIKES
-
이명훈•2001.08.03 08:26전역변수로 MouseDowning이란 Boolean형의 데이터를 선언하고 MouseDown이벤트에서 MouseDowing을 True ...
-
홍성락•2001.08.03 03:44준 wrote: > 마우스가 눌려있는 상태인지를 어떻게 체크하지요..? > 마우스가 눌린 상태로 좌로 이동하면...
-
- jazz
- 2001.08.03 03:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 나옹맨
- •
- 2001.08.03 02:39
- 2 COMMENTS
- /
- 0 LIKES
type TFrm_Mess = class(TForm) ... UserName: string; end; var Found: Boolean; begin Found := False; for I := 0 to Screen.FormCount-1 do begin if Screen.Forms[I] is TFrm_Mess then if TFrm_Mess(Screen.Forms[I]).UserName = 메...-
최용일•2001.08.03 04:26안녕하세요. 최용일입니다. Frm_Mess란 폼을 새로 지정해주세요... 그럼 문제 없을듯... var Foun...
-
나옹맨•2001.08.03 20:24[Error] Main.pas(223): Incompatible types: 'TFrm_Mess' and 'TForm' 이런 에러가 나오는데요? 우...
-
- 송인섭
- •
- 2001.08.03 01:48
- 1 COMMENTS
- /
- 0 LIKES
-
초보•2001.08.03 03:13안녕하세요.. 일단은 Char Type 의 버퍼에 데이터를 받구요 같은 포멧으로 Char Type의 구조체를 만드시...
-
- 한성민
- •
- 2001.08.03 01:26
- 3 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.08.03 03:16한성민 wrote: > 그냥더블클릭할때와 콘트롤키를 누른상태에서 더블클릭했을때 다른일을 시킬려고 합니다....
-
한성민•2001.08.03 02:33그런데 더블클릭 이벤트에서는 Shift를 인식못한다고 에러가 납니다.
-
홍성락•2001.08.03 03:46한성민 wrote: > 그런데 더블클릭 이벤트에서는 Shift를 인식못한다고 에러가 납니다. /////////////////...
-
- 이글루
- •
- 2001.08.03 00:12
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.08.03 04:34안녕하세요. 최용일입니다. 구현해서 사용하실려면 상당히 복잡하고 시간이 많이 걸릴텐데.... 그냥 ...
-
- 김명찬
- 2001.08.03 00:11
- 0 COMMENTS
- /
- 0 LIKES
-
- nayagod
- 2001.08.02 23:59
- 0 COMMENTS
- /
- 0 LIKES
-
- 델파이쵸
- 2001.08.02 23:57
- 0 COMMENTS
- /
- 0 LIKES
-
- 스따시꺼
- 2001.08.02 23:51
- 0 COMMENTS
- /
- 0 LIKES
-
- 델~초^^
- •
- 2001.08.03 02:38
- 1 COMMENTS
- /
- 0 LIKES
-
나그네•2001.08.14 01:03connections[0]과 connections[1] 과 같이 지정해서 사용하시면 안됩니다. connections[0]의 연결이 끊기...
-
- 허접한 넘팽이....
- •
- 2001.08.02 23:41
- 1 COMMENTS
- /
- 0 LIKES
-
김동환•2001.08.03 05:14허접한 넘팽이.... wrote: > 떠 허접한 질문점 할라구... > 실행파일을 시작프로그램에 등록하구 > 사용...
-
- 델러브
- •
- 2001.08.02 23:02
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.08.03 07:23델러브 wrote: > 안녕하세요. > 엑셀생성시에 좌우의 여백을 조절할수있을까요.. 데이타가 나온다음에는 ...
-
- 델사랑
- 2001.08.02 22:21
- 0 COMMENTS
- /
- 0 LIKES
-
- 장용준
- •
- 2001.08.02 22:00
- 2 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.08.02 22:50장용준 wrote: > DB의 문자열에 있는 알파벳을 순차적으로 하려고 하는 데 방법 좀 알려주세요.... > >...
-
장용준•2001.08.02 23:05...
Frm_Mess란 폼을 새로 지정해주세요... 그럼 문제 없을듯...
var
Found: Boolean;
begin
Found := False;
for I := 0 to Screen.FormCount-1 do
begin
if Screen.Forms[I] is TFrm_Mess then
if TFrm_Mess(Screen.Forms[I]).UserName = 메세지보낸유저이름 then
begin
Frm_Mess := Screen.Forms[I];
Frm_Mess.Show;
Frm_Mess.memo1.add(메시지내용);
Found := True;
Break;
end;
end;
if not Found then // 메세지보낸유저와 대화하는 폼이 없다면
begin
Frm_Mess := TFrm_Mess.Create(nil); // 새로 생성
Frm_Mess.Show;
end;
end;
^^ 항상 즐코하세요...
나옹맨 wrote:
> type
> TFrm_Mess = class(TForm)
> ...
> UserName: string;
> end;
>
>
> var
> Found: Boolean;
> begin
> Found := False;
> for I := 0 to Screen.FormCount-1 do
> begin
> if Screen.Forms[I] is TFrm_Mess then
> if TFrm_Mess(Screen.Forms[I]).UserName = 메세지보낸유저이름 then
> begin
> Screen.Forms[I].Show;
> 요기서.. -> Frm_Mess.memo1.add(메시지내용);
> Found := True;
> end;
> end;
> if not Found then // 메세지보낸유저와 대화하는 폼이 없다면
> begin
> Frm_Mess := TFrm_Mess.Create(nil); // 새로 생성
> Frm_Mess.Show;
> end;
> end;
>
> 위에서 '요기서' 같이 하면서... 해당창이 앞으로 show는 돼는데요...
>
> 메세지는 가장 나중에 생성된 폼에 뜨거든요.... 폼 지정을 잘못하거 같은데...
>
> Screen.Forms[I].Show; 이렇게 폼을 활성화했으면... 그 해당폼의 컴포는 어케
>
> 선택을 해야 할런지요.... 아까답변해주신 최용일님 한번더 부탁드리겠습니다.
>