Предыдущая публикация
Pascal ABC - o`zida formalar hosil qilsa ham bo'lar ekan , asosiysi matn maydoni ixcham (t.
p 7.0 day noqulay emas ) forma yaratdim lekin maqsadga yetaolmayabman. (((((
Следующая публикация
p 7.0 day noqulay emas ) forma yaratdim lekin maqsadga yetaolmayabman. (((((
Комментарии 5
//$VCLDESIGN+
var
Form1: Form;
TextLabel1: TextLabel;
TextLabel2: TextLabel;
Edit1: Edit;
//$VCLDESIGN-
procedure TextBox1OnClick;
begin
end;
procedure TextLabel1OnClick;
begin
end;
procedure Form1OnCreate;
begin
end;
procedure Panel1OnClick;
begin
end;
procedure InitControls;
begin
Form1:= Form.Create(0,0,372,334);
Form1.InitControl(True,False,alNone,crDefault,clBtnFace,'Форма1',''
TextLabel1:= TextLabel.Create(Form1,40,32,274,24);
TextLabel1.InitControl(True,True,alNone,crDefault,clActiveBorder,'Qaysi dasturlash tilini bilasiz?',''
TextLabel2:= TextLabel.Create(Form1,136,120,68,29);
TextLabel2.InitControl(True,True,alNone,crDefault,clHighlightText,'Natija:',''
Edit1:= Edit.Create(Form1,80,80,209,21);
Edit1.InitControl(True,True,alNone,crDefault,clWindow,'',''
TextLabel1.Font.Name:= 'Arial';
TextLabel1.Font.Size:= 16;
TextLabel2.Font.Size:= 18;
Form1....Ещёuses vcl;
//$VCLDESIGN+
var
Form1: Form;
TextLabel1: TextLabel;
TextLabel2: TextLabel;
Edit1: Edit;
//$VCLDESIGN-
procedure TextBox1OnClick;
begin
end;
procedure TextLabel1OnClick;
begin
end;
procedure Form1OnCreate;
begin
end;
procedure Panel1OnClick;
begin
end;
procedure InitControls;
begin
Form1:= Form.Create(0,0,372,334);
Form1.InitControl(True,False,alNone,crDefault,clBtnFace,'Форма1',''
TextLabel1:= TextLabel.Create(Form1,40,32,274,24);
TextLabel1.InitControl(True,True,alNone,crDefault,clActiveBorder,'Qaysi dasturlash tilini bilasiz?',''
TextLabel2:= TextLabel.Create(Form1,136,120,68,29);
TextLabel2.InitControl(True,True,alNone,crDefault,clHighlightText,'Natija:',''
Edit1:= Edit.Create(Form1,80,80,209,21);
Edit1.InitControl(True,True,alNone,crDefault,clWindow,'',''
TextLabel1.Font.Name:= 'Arial';
TextLabel1.Font.Size:= 16;
TextLabel2.Font.Size:= 18;
Form1.OnCreate:=Form1OnCreate;
Form1.Position:= poScreenCenter;
Form1.OnCreate;
Form1.Show;
end;
begin
InitControls;
end.
mana bu kodlar quyidagi rasmdagi dasturni xosil qildi: