paperSelector.find("option:not(:selected)").each(function(){
$(this).attr("disabled",true);
});
// 선택안된 셀렉트 옵션 잠그기
if(advStudent.filter(':checked').val()==1){ //학생이면
tr_std.html(tr_std_html).fadeIn(150).css("background-color","#fffff");
}else{ // 학생이 아니면
tr_dis_reg.html(tr_dis_reg_html).fadeIn(150).css("background-color","#ffffff");
}
// 라디오 박스 체크된값 가져오기,
2015년 10월 29일 목요일
2015년 10월 27일 화요일
button줄바꿈
<input type="button" value="Really
Tall
 Button">
// this is not work on IE etc...
<input style="width:100px;white-space: normal;" type="button"
value="kkkkkk kkkkkkk kkkkkkkkk">
// it works perfectly.
// but it could not works that i want
<button style="width:250px;">Online Registration<br>(For International Participants</button>
// finally ... not bad.
// 하지만 overflow 시에는 직접 잘라줘야함.
// this is not work on IE etc...
<input style="width:100px;white-space: normal;" type="button"
value="kkkkkk kkkkkkk kkkkkkkkk">
// it works perfectly.
// but it could not works that i want
<button style="width:250px;">Online Registration<br>(For International Participants</button>
// finally ... not bad.
// 하지만 overflow 시에는 직접 잘라줘야함.
2015년 10월 18일 일요일
사용자이벤트
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
Type
// 이벤트 핸들러 생성
TMy1stEvent = procedure(PrvValue, CurValue: integer) of object;
// 값 변경 감시 클래스 정의 [사용자 이벤트 정의]
TWatchChangeValue = class
private
FOnChangeVal : TMy1stEvent;
public
procedure ChangeValue(PrvValue, CurValue: integer);
published
property OnChangeValue : TMy1stEvent read FOnChangeVal write FOnChangeVal;
end;
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
// 값 변경 감시 클래스 선언
WatchChangeValue : TWatchChangeValue;
// 이벤트 발생시 호출하는 함수 선언
procedure ChangeValue2(PrvValue, CurValue: integer);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
// 이벤트를 발생시키는 트리거 함수
WatchChangeValue.ChangeValue(edit1.Tag, StrToInt(edit1.Text));
if edit1.Tag <> StrToInt(edit1.Text) then
edit1.Tag := StrToInt(edit1.Text);
end;
// 이벤트 발생시 호출하는 함수
procedure TForm1.ChangeValue2(PrvValue, CurValue: integer);
begin
// 변경전 값과 변경후 값 표시
self.Caption := IntToStr(PrvValue) + '>>>' + IntToStr(CurValue)
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
// 이벤트 등록
WatchChangeValue := TWatchChangeValue.Create();
// 값 변경 이벤트가 발생되었을 때 호출할 함수 설정
WatchChangeValue.OnChangeValue := ChangeValue2;
end;
{ TWatchChangeValue }
// 이벤트 호출
procedure TWatchChangeValue.ChangeValue(PrvValue, CurValue: integer);
begin
if Assigned(OnChangeValue) then OnChangeValue(PrvValue, CurValue);
end;
end.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
Type
// 이벤트 핸들러 생성
TMy1stEvent = procedure(PrvValue, CurValue: integer) of object;
// 값 변경 감시 클래스 정의 [사용자 이벤트 정의]
TWatchChangeValue = class
private
FOnChangeVal : TMy1stEvent;
public
procedure ChangeValue(PrvValue, CurValue: integer);
published
property OnChangeValue : TMy1stEvent read FOnChangeVal write FOnChangeVal;
end;
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
// 값 변경 감시 클래스 선언
WatchChangeValue : TWatchChangeValue;
// 이벤트 발생시 호출하는 함수 선언
procedure ChangeValue2(PrvValue, CurValue: integer);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
// 이벤트를 발생시키는 트리거 함수
WatchChangeValue.ChangeValue(edit1.Tag, StrToInt(edit1.Text));
if edit1.Tag <> StrToInt(edit1.Text) then
edit1.Tag := StrToInt(edit1.Text);
end;
// 이벤트 발생시 호출하는 함수
procedure TForm1.ChangeValue2(PrvValue, CurValue: integer);
begin
// 변경전 값과 변경후 값 표시
self.Caption := IntToStr(PrvValue) + '>>>' + IntToStr(CurValue)
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
// 이벤트 등록
WatchChangeValue := TWatchChangeValue.Create();
// 값 변경 이벤트가 발생되었을 때 호출할 함수 설정
WatchChangeValue.OnChangeValue := ChangeValue2;
end;
{ TWatchChangeValue }
// 이벤트 호출
procedure TWatchChangeValue.ChangeValue(PrvValue, CurValue: integer);
begin
if Assigned(OnChangeValue) then OnChangeValue(PrvValue, CurValue);
end;
end.
// 출처 Posted by 떡잎 http://wwwi.tistory.com/280
피드 구독하기:
글 (Atom)