버튼위에 마우스를 올리면 레이블 박스에 글이 쓰이고 마우스가 버튼위를 벗어나면 레이블에 글씨가 변하게 할려고 하는데요.
버튼위에 마우스를 올리면 글이 변하는것은 되는데...
버튼을 벗어나면 글이 바뀌게 하는게 안되네요.
procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
begin
label1.Caption := '첫번채 마우스 위에 있습니다.';
end;
위에것은 마우스를 버튼위에 올린것입니다.
버튼을 벗어날때는 어떤 이벤트를 사용해야 될지 모르겠습니다.
고수님들의 답변을 기다리겠습니다.
수고하세요.
버튼이 어디에 얹혀있나요?
판넬위에? 아니면 그냥 폼위에??
아뭏튼 그것들을 이용하면 될듯 한데요...
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label1.Caption := '버튼을 벗어났어요.';
end;
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label1.Caption := '버튼을 벗어났어요.';
end;
정규성 wrote:
> 버튼위에 마우스를 올리면 레이블 박스에 글이 쓰이고 마우스가 버튼위를 벗어나면 레이블에 글씨가 변하게 할려고 하는데요.
> 버튼위에 마우스를 올리면 글이 변하는것은 되는데...
> 버튼을 벗어나면 글이 바뀌게 하는게 안되네요.
>
>
> procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
>
> begin
> label1.Caption := '첫번채 마우스 위에 있습니다.';
> end;
>
> 위에것은 마우스를 버튼위에 올린것입니다.
> 버튼을 벗어날때는 어떤 이벤트를 사용해야 될지 모르겠습니다.
> 고수님들의 답변을 기다리겠습니다.
> 수고하세요.