Q&A
- 버튼과 패널에 대한 질문입니다.
다음과 같이 버튼 하나를 올려놓고 클릭시 패널이 생성될때 넓이와 높이가 100, 100으로 생성이 됩니다.
그런데 문제는 여기 있습니다. 만약 버튼이 폼안의 오른쪽에 있다고 했을때
즉 폼의 사각의 size를 체크해서 그 안에 panel이 생기도록 하고 싶습니다.
다시한번 말씀드린다면 폼안의 오른쪽에 버튼이 있다면 그 버튼 클릭시 오른쪽으로 패널이 생기는게 아니라 왼쪽으로 패널이 생기게 하고 싶습니다.
고수님들의 조언 부탁드립니다.
procedure TForm1.Button2Click(Sender: TObject);
var
HintPanel : TPanel;
pt : TPoint;
begin
GetCursorPos(pt);
pt := ScreenToClient(pt);
HintPanel := TPanel.create(Self);
with HintPanel do
begin
Parent := Form1;
SetBounds(pt.X, pt.Y, 100, 100);
end;
end;
그런데 문제는 여기 있습니다. 만약 버튼이 폼안의 오른쪽에 있다고 했을때
즉 폼의 사각의 size를 체크해서 그 안에 panel이 생기도록 하고 싶습니다.
다시한번 말씀드린다면 폼안의 오른쪽에 버튼이 있다면 그 버튼 클릭시 오른쪽으로 패널이 생기는게 아니라 왼쪽으로 패널이 생기게 하고 싶습니다.
고수님들의 조언 부탁드립니다.
procedure TForm1.Button2Click(Sender: TObject);
var
HintPanel : TPanel;
pt : TPoint;
begin
GetCursorPos(pt);
pt := ScreenToClient(pt);
HintPanel := TPanel.create(Self);
with HintPanel do
begin
Parent := Form1;
SetBounds(pt.X, pt.Y, 100, 100);
end;
end;
(NOTICE) You must be logged in to comment on this post.
-
- 김종균
- •
- 2002.08.26 23:09
- 1 COMMENTS
- /
- 0 LIKES
-
한원희•2002.08.26 23:19안녕하세요. 한원희입니다. 델파이의 string 형은 문자열의 길이와 문자열에 대한 참조값을 같이 가지고...
-
- 김경민
- 2002.08.26 21:13
- 0 COMMENTS
- /
- 0 LIKES
-
- 이승근
- •
- 2002.08.26 21:11
- 2 COMMENTS
- /
- 0 LIKES
-
홍성락•2002.08.26 21:18hsr/////////////////////////////////////////////////// 아래처럼해보세요 ComboBox1.ItemIndex := Com... -
김경민•2002.08.26 21:18방법상에 문제가 좀 있는것 같군요 table record가 변할때 combobox에 보여줄려고 하는것 같은데 table에...
-
- 나옹이
- •
- 2002.08.26 20:59
- 4 COMMENTS
- /
- 0 LIKES
-
나옹이•2002.08.26 23:45procedure TForm1.Button1Click(Sender: TObject); begin with ZipMaster1 do try ZipFileName :...
-
박상기•2002.08.27 00:52C:test.txt <==============요거 맞나요? C:test.txt가 맞을 듯....
-
나옹이•2002.08.27 01:07C:test.txt 일케 했는데요... ZipFileName := 'c:ZipTest.zip'; 일케두 바꾸공.... 걍 주거버리내...
-
나옹이•2002.08.27 01:13디렉토리를 하니깐....잘 되는뎅.... test.txt 라고 파일 하나만 압축하라고 지정하니깐...못하네요... ...
-
- 박재헌
- 2002.08.26 20:32
- 0 COMMENTS
- /
- 0 LIKES
-
- 안경훈
- •
- 2002.08.26 19:41
- 1 COMMENTS
- /
- 0 LIKES
-
석•2002.08.26 22:03var Series1 : TLineSeries; begin Series1 := TLineSeries.Create(Chart1); ...
-
- 양종석
- 2002.08.26 19:40
- 0 COMMENTS
- /
- 0 LIKES
-
- 강혁진
- •
- 2002.08.26 19:04
- 1 COMMENTS
- /
- 0 LIKES
-
강혁진•2002.08.30 22:33================================================ 한델에서 답변이 없어서 다우교육장인 키미아카데...
-
- 델파이사랑
- •
- 2002.08.26 19:00
- 2 COMMENTS
- /
- 0 LIKES
다음과 같이 버튼 하나를 올려놓고 클릭시 패널이 생성될때 넓이와 높이가 100, 100으로 생성이 됩니다. 그런데 문제는 여기 있습니다. 만약 버튼이 폼안의 오른쪽에 있다고 했을때 즉 폼의 사각의 size를 체크해서 그 안에 panel이 생기...-
홍성락•2002.08.26 22:50hsr/////////////////////////////////////////////////////////// 위 소스에서 버튼 위치가 아니러 커서 ...
-
델파이사랑•2002.08.26 23:33갈수록 델파이가 재미있어지네여.........ㅎㅎㅎ
-
- 델사랑
- •
- 2002.08.26 18:29
- 1 COMMENTS
- /
- 0 LIKES
-
한원희•2002.08.26 23:02안녕하세요. 한원희입니다. 스크롤바 메시지 중에, WM_VSCROLL 메시지가 있습니다. 스크롤바를 움직일 ...
-
- 김종균
- •
- 2002.08.26 11:26
- 2 COMMENTS
- /
- 0 LIKES
-
바다를향해•2002.08.26 23:16정확한 답변이 될런지는 모르겠지만.... 예를 들어서 NULL 은 코엑스에 가보니 코엑스몰이 없더라는 것...
-
한원희•2002.08.26 22:58안녕하세요. 한원희입니다. Null은 Variant 타입에만 적용되는 것으로 Nil과는 용법이 다릅니다. 다른 ...
-
- 이중철
- •
- 2002.08.26 10:45
- 1 COMMENTS
- /
- 0 LIKES
-
이추형•2002.08.28 02:19일단 실시간으로 데이타가 쌓이는 테이블에 대해서 Range Scan은 잘 사용하지 않는것으로 압니다. 왜냐하...
-
- 김영재
- •
- 2002.08.26 04:55
- 1 COMMENTS
- /
- 0 LIKES
-
YoungMan•2002.08.26 05:23테이블 이나 쿼리 컴포넌트 위에서 마우스 오른쪽버튼 눌러서 필드에디터를 부르시면 DisplayFormat라는 ...
-
- 이성근
- •
- 2002.08.26 03:54
- 1 COMMENTS
- /
- 0 LIKES
-
한원희•2002.08.26 23:13안녕하세요. 한원희입니다. 제가 보기에는 마이다스의 ClientDataSet으로 로컬 DB를 만드신 후에, 이를 ...
-
- 김헌대
- 2002.08.26 00:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 김헌대
- •
- 2002.08.25 20:26
- 3 COMMENTS
- /
- 0 LIKES
-
이민수•2002.08.25 21:37바코드가 어떤건지 잘 모르겠는데여... 버튼같은거 클릭해서 이벤트 뼈대 만드신 다음에 barcode1 ...
-
김헌대•2002.08.25 23:58제가 쓰는건 Zbarcode인데여.. 소스봐도 잘모르겠어여.. 워나기 초보라서.. 아마두.. 소스보면 이런부...
-
이민수•2002.08.26 07:56이건 컴포넌트를 실행시에 동적으로 생성해서 사용할 때 필요한거구요 디자인할 때 폼에 추가시킨 것은...
-
- 유성욱
- •
- 2002.08.25 08:58
- 2 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2002.08.25 11:49안녕하세요 하얀까마귀 입니다. 넘 어렵게 생각하신것 같네요.. 그냥 간단한겁니다. var &nb...
-
유성욱•2002.08.26 08:58^^ 감사합니다. 제가 초보라서 한가지만 더 여쭤볼께요 역변환은 어떻게 하죠. 어떤 함수...
-
- 유희철
- •
- 2002.08.25 07:42
- 2 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2002.08.25 11:53안녕하세요 하얀까마귀 입니다. SDI 라면 간단하게 폼에서 코드몇줄 써주시면 될것 같네요.. 폼에 보...
-
유희철•2002.08.25 22:14답변 감사드립니다 님두 즐거운하루되세요 ^ ^
-
- 조걸
- •
- 2002.08.25 06:02
- 3 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2002.08.25 12:02안녕하세요 하얀까마귀 입니다. 딱히 답변이라고는 못하겠고.. 프로그래밍 하면서 좀 기분나쁜게.. ...
-
이민수•2002.08.25 08:41대개 컴포넌트를 쓰면 편합니다. 폼모양 바꾸는거, 타이틀바 없애거나 버튼추가/제거하는거, 테두리...
-
하병준•2002.08.26 21:28움 디자인이라면 스킨엔진이라는 컴포넌트가 잇씁니다.~ 원하는 (버튼,폼 패널, 등등의 여러 컨트롤)의 ...
-
- 신형우
- •
- 2002.08.24 22:22
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2002.08.24 22:47안녕하세요. 최용일입니다. WM_NCLBUTTONDBLCLK메세지를 이용하세요... type &nb...
위 소스에서 버튼 위치가 아니러 커서 위치에서 생성되던데요.
하여간 폼 내부에 생성이라면 ...
procedure TForm1.Button1Click(Sender: TObject);
var
HintPanel : TPanel;
pt : TPoint;
SetX, SetY : integer;
begin
GetCursorPos(pt);
pt := ScreenToClient(pt);
SetX := 0;
SetY := 0;
if Form1.Width - pt.X < 100 then SetX := 100;
if Form1.Height - pt.Y < 127 then SetY := 100; //127은 폼의 타이틀부분높이를 27로 생갓 해ㅆ을때입니다.
HintPanel := TPanel.create(Self);
with HintPanel do
begin
Parent := Form1;
SetBounds(pt.X-SetX, pt.Y-SetY, 100, 100);
end;
end;