Тажриба иши. Borland Delphi дастурлаш тизимида ишлаш асослари. Ишдан максад: Borland Delphi

17. Unit1 модулидаги тугмалар типларини ўзгартиринг. Бунинг учун MB_OK сўзини MB_YESNO сўзига алмаштиринг. Дастурни ишга туширинг. OK тугмасини босинг. Хабар ойнасида иккита, яъни ДА ва НЕТ тугмачалари пайдо бўлади (8- расм).

8 – расм. Хабар ойнаси кўриниши.
Энди OK тугмасини босиш оркали Чикиш амалини ва Хабар ойнаси эса, тасдиклаш амалини бажариш жараёнини кўриб чикамиз.
18. OK тугмасидаги сўзни «Чикиш» сўзига алмаштиринг (Caption хусусияти оркали, 8.1- пунктига каранг).
19. Фараз килайлик, дастурдан чикиш фойдаланувчи исми оркали амалга оширилсин, яъни фойдаланувчига мурожаат, киритиш каторидаги сўз ўзгарувчан кисм – исми ва ўзгармас кисм - саволдан тузилган бўлсин. TForm1.Botton1Click процедурасига куйидаги ўзгартиришларни киритинг:
procedure TForm1.Button1Click(Sender: TObject);
var
S1, S2:PChar;
Size: Byte;
begin
S2:=' , Cиз хакикатдан ҳам дастурдан чикишни хохлайсизми?';
{сўзнинг ўзгармас кисми буферга ёзилади}
Size := Edit1.GetTextLen+StrLen(S2)+1;
{Text1 киритиш майдонидан матнли каторнинг узунлиги олинади}
GetMem(S1, Size);
{каторни хотирага олиш}
Edit1.GetTextBuf(S1,Size);
{сўзнинг ўзгарувчан кисми буферга ёзилади}
StrCat(S1,S2); {каторларни (сўзларни) бирлаштириш}
Application.MessageBox(S1, 'Cўров', MB_YESNO);
FreeMem(S1); {каторни бўшатиш}
end;
20. Форма учун системали менюни ўчиринг. Бунинг учун Form1 формасининг BorderIcons хусусиятидаги biSystemMenu кисмига False кийматини кўйинг (9- расм).
21. Ойна ўлчамини ўзгартирувчи хусусиятни ўчиринг. Бунинг учун Form1 формасидаги BorderStyle хусусиятига biSingle кийматини кўйинг (9- расм).
22. Проектни сакланг ва уни ишга туширинг (13-расмга каранг). Дастур ишлашини тугатиш учун Run менюсидаги ProgrammReset пункти ишлатилади.