БАҚЫЛАУ ЖҰМЫСЫ
Мәтінді форма бойынша сол жақтан оң жаққа үздіксіз жылжытыңыз.
Мәтінді формада төмендегі траектория бойынша үздіксіз жылжытыңыз. 
Программа
Формаға Label және Button компоненттерін суреттегідей орналастырыңыз.
Button2 объектісінің қасиетін өзгертіңіз:
DragMode: dmAutomatic
Button2 объектісіне MouseMove оқиғасын өңдейтін код жазыңыз:
procedure TForm1.Button2MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
begin
Button2.Left := Button2.Left+10;
Button2.Top := Button2.Top+10;
end;
Button1 обектісіне Click оқиғасын өңдеуге арналған код жазыңыз:
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := 'Мы были в этом уверены!'
end;
Программаны орындаңыз.
Программаны өзгертіңіз: тінтуір меңзерін Button2 обектісіне жылжытқанда ол көрінбейтін болуы керек. Меңзерді алып тастағанда ол қайта көрінуі керек.
БАҚЫЛАУ ЖҰМЫСЫ
Батырма курсордан кез келген бағытта қашып жүретіндей етіп программаны өзгертіңіз. Бірақ форма шекарасынан шықпауы керек.
ІІ. Мультипликациясы, бейнеклипі және гиперсілтемесі бар программа
Формаға 268х163 өлшемді панельді орналастырыңыз.
Панельдің үстінде IMAGE1 компонентін орналастырыңыз. Оның өлшемі 072х163 болуы керек. IMAGE1 компонентіне Дракон.jpg файлын орналастырыңыз.
Формада интервалы 250 болатын таймер компонентін орналастырып, OnTimer оқиғасына келесі кодты жазыңыз:
With Image1 do
Begin
Left:=Left-Width div 4;
If Left=-Width Then Left:=0;
End;
Программаны орындап, сақтаңыз.
Формаға жаңа панель және MediaPlayer1 компоненттерін орналастырыңыз.
Форма құру процедурасына Cool.avi бейнеклипін ойнату кодын жазыңыз:
MediaPlayer1.Filename:='Cool.avi';
MediaPlayer1.Open;
MediaPlayer1.Display:=Panel2;
MediaPlayer1.Play;
Программаны орындаңыз және программа дұрыс жұмыс істесе сатаңыз.
Формада гиперсілтеме мәтіні бар тексті орналастырыңыз. Мәтін қаріпінің (шрифт) түсі көк және асты сызылған болуы керек. Мәтінге курсорды әкелгенде "Сайт преподавателя" көмекші мәтін шығуы және курсордың түрі қаламға өзгеруі керек. Программаның USES бөліміне ShellAPI модулін қосыңыз. Гиперсілтемені басу оқиғасы үшін келесі кодты жазыңыз:
ShellExecute(0,'Open', 'http://www.gor.h1.ru','','',SW_SHOW);
БАҚЫЛАУ ТАПСЫРМАЛАРЫ
Гиперсілтемені өзгертіңіз: тінтуірді үстіне әкелгенде ғана оның түсі көкке және асты сызылған болып өзгеруі керек.
Достарыңызбен бөлісу: |
