음...
물론 델파이에서도 Trigger Event가 있지요...
파워빌더 보다 더욱 강력한...
질문의 내용을 제가 정확히 이해 했는지 모르겠는데...
TabbedNoteBook의 OnChange 이벤트를 임의로 부를 수 있도록
예제를 만들어 봤습니다...
간단히 TabbedNoteBook을 붙이시고 버튼을 하나 붙이세요...
글구... TabbedNoteBook의 OnChange Event에다가 아래와 같이
코딩하시구요...
procedure TForm1.TabbedNotebook1Change(Sender: TObject; NewTab: Integer;
var AllowChange: Boolean);
begin
ShowMessage('안녕하세요? 탭페이지 1번 입니다');
end;
그 담에 이 이벤트를 부를 버튼을 하나 붙이신담에...
Button의 OnClick 이벤트에다가 아래와 같이 코딩해 보세요...
procedure TForm1.Button1Click(Sender: TObject);
var
Soo: Boolean;
begin
TabbedNoteBook1Change(Self, 0, Soo);
end;
글구 실행해 보세요... 어때요?
잘 작동 하지요?
TabbedNoteBook1Change Procedure의 인자에 맞게 값만 대입시켜
주면 간단히 해결할 수 있습니다.
여기서 마지막 인자 AllowChange는 포인터에 의한 참조니깐...
직접 True등으로 값을 주시면 안되는건 아시죠?
직접 변수를 넣어 주셔야 합니다...
그럼 즐통 되시길...
|