Главная | Обратная связь | Поможем написать вашу работу!
МегаЛекции

If OpenDialog1.Execute then begin // используем диалоге для выбора файла

Begin

VL:=TEdit.Create(nil);

VL.Parent:=Form1;

end;

End.

17.Написать программу, в которой при нажатии кнопки динамически создается объект типа Tlabel, в котором находится текст “ЛЕТО

 

procedure TForm1.Button1Click(Sender: TObject);

Var VL:TLabel;

Begin

VL:=TLabel.Create(nil);

VL.Parent:=Form1;

VL.Caption:='ЛЕТО';

end;

End.

18.Написать программу, в которой при нажатии кнопки динамически создается объект типа TMemo, содержащий текст: “Наступила весна!”.

procedure TForm1.Button1Click(Sender: TObject);

Var VL:TMemo;

Begin

VL:=TMemo.Create(nil);

VL.Parent:=Form1;

VL.Text:='Наступила весна!';

end;

End.

 

 

25.Написать программу, в которой на форме находятся кнопка Button1 и панель Panel1. При нажатии кнопки на панели динамически создается объект типа TEdit, в котором написан текст “Мороз и солнце!”.

 

procedure TForm1.Button1Click(Sender: TObject);

Var VL:TEdit;

Begin

VL:=TEdit.Create(nil);

VL.Parent:=Panel1;

VL.Text:='Мороз и солнце!';

end;

End.

31.Написать программу, в которой на форме находятся кнопка Button1 и панель Panel1. При нажатии кнопки на панели динамически создается объект типа TLabel, в котором написан текст “Весна!”.

procedure TForm1.Button1Click(Sender: TObject);

Var VL:TLabel;

Begin

VL:=TLabel.Create(nil);

VL.Parent:=Panel1;

VL.Caption:='ВЕСНА!';

end;

End.

28.Написать программу, в которой на форме находятся кнопка Button1 и объект типа TstringGrid. При нажатии кнопки на объекте динамически создается объект типа TEdit, в котором написан текст “Привет!”.

Вариант 1

procedure TForm1.Button1Click(Sender: TObject);

Var VL:TEdit;

Begin

VL:=TEdit.Create(nil);

VL.Parent:=StringGrid1;

VL.Text:='Привет!';

end;

Вариант 2

procedure TForm1.StringGrid1Click(Sender: TObject);

Var VL:TEdit;

Begin

VL:=TEdit.Create(nil);

VL.Parent:=StringGrid1;

VL.Text:='Привет!';

end;

End.

 

 

26.Написать программу, в которой при нажатии кнопки динамически создается объект типа TButton с надписью “программа”.

 

procedure TForm1.Button1Click(Sender: TObject);

Var VL:TButton;

Begin

VL:=TButton.Create(nil);

VL.Parent:=Form1;

VL.Caption:='Программа!';

end;

End.

7.Написать программу, в которой при нажатии кнопки динамически создается объект типа TstringGrid, в котором во второй строке, третьем столбце находится текст “РОБОТ”.

procedure TForm1.Button1Click(Sender: TObject);

Var VL:TStringGrid;hr:integer;

Begin

VL:=TStringGrid.Create(nil);

VL.Parent:=Form1;

VL.Cells[2,1]:='РОБОТ';

end;

End.

10.Написать программу, в которой меняются местами первая и последняя строки объекта типа TStringGrid.

 

//Заносим значения

procedure TForm1.Button2Click(Sender: TObject);

Var i,j,k: integer;

begin

for i:= 1 to StringGrid1.RowCount do

for j:= 1 to StringGrid1.ColCount do begin

k:= random(100);

StringGrid1.Cells[j-1,i-1]:= inttostr(k);

 

end;

 

end;

 

end.

//Меняем СТОЛБЦЫ (НАДО СТРОКИ)

procedure TForm1.Button1Click(Sender: TObject);

Var NRow1,NRow2,j: integer; ws:string;

begin

NRow1:= StrToInt(Edit1.Text);

NRow2:= StrToInt(Edit2.Text);

for j:=0 to StringGrid1.RowCount-1 do begin

ws:= StringGrid1.Cells[NRow1,j];

StringGrid1.Cells[NRow1,j]:=StringGrid1.Cells[NRow2,j];

StringGrid1.Cells[NRow2,j]:= ws;

 

end;

end;

 

//СДЕЛАТЬ 2 EDITа, в них номер меняемых строк

---------------------------------------------------------------------------------------------------------------

 

Написать программу, в которой меняются местами четвертая и вторая строки объекта типа TStringGrid.

 

 

19.Написать программу, в которой при нажатии кнопки динамически создается объект типа TListBox, содержащий три строки: январь, февраль, март.

procedure TForm1.Button1Click(Sender: TObject);

Var VL:TListBox;

Begin

VL:=TListBox.Create(nil);

VL.Parent:=Form1;

VL.Items.Add('Январь');

VL.Items.Add('Февраль');

VL.Items.Add('Март');

end;

End.

 

 

23.Написать программу, в которой на форме находятся кнопка Button1 и панель Panel1. При нажатии кнопки на панели динамически создается объект типа TListbox с тремя строками: “ Весна ”, “Зима”, “Лето”.

procedure TForm1.Button1Click(Sender: TObject);

Var VL:TListBox;

Begin

VL:=TListBox.Create(nil);

VL.Parent:=Panel1;

VL.Items.Add('Весна');

VL.Items.Add('Зима');

VL.Items.Add('Лето');

end;

End.

 

 

5.Написать программу, создающую меню с элементами File, Edit, Open, Close, Exit.

 

 

 

 

//Вытащить на форму стандартный компонент TMainMenu => Щелкнув два раза по нему левой кнопкой мыши откроется меню, там создаем объекты нажатием левой кнопки мыши, затем во вкладке Object Inspector => Caption даем имя созданному объекту.

9.+++Написать программу, в которой построчно с помощью операторов последовательного метода доступа читается текстовый файл в объект типа TМемо. Использовать оператор readln. //Написана верно,но не работает

procedure TForm1.Button1Click(Sender: TObject);

Const d:array[1..12] of integer= (31,29,31,30,31,30,31,31,30,31,30,31);

Var F: TextFile; st:string;

tm:array[1..12] of real;

m:1..12;

data:string[5]; // dd.mm

min,ty,t:real;

i:integer;

Begin

for i:=1 to 12 do tm[i]:= 0;

ty:= 0; data:='';

Memo1.Clear;

if OpenDialog1.Execute then begin // используем диалоге для выбора файла

Поделиться:





Воспользуйтесь поиском по сайту:



©2015 - 2024 megalektsii.ru Все авторские права принадлежат авторам лекционных материалов. Обратная связь с нами...